Makro zum Auslesen einer Mail mit Bestelldaten

Hallo Freunde, ich bekomme per Mail (Outlook 2013) Bestellungen im HTML - Format.
Aus diesen Mails benötige ich nur die Artikelnr. und die Menge (Stückzahl) in Form einer Textdatei
welche ich dann über eine andere Anwendung einlesen kann.
Ich hatte mir das so gedacht, das die jeweilige Mail per Makro aufgerufen wird und die gewünschten Daten in eine txt-Datei in einen beliebigen Ordner
auf den Rechner geschrieben wird. Dateiname die Bestellnummer.
Der Body meiner Mail sieht folgender Maßen aus:
<body>

<o:p> </o:p>
<table border="0" cellpadding="0" class="MsoNormalTable" style="mso-cellspacing:1.5pt;
mso-yfti-tbllook:1184;mso-padding-alt:0cm 0cm 0cm 0cm">
<tr style="mso-yfti-irow:0;mso-yfti-firstrow:yes">
<td style="padding:.75pt .75pt .75pt .75pt">
 <o:p></o:p>
</td>
<td style="padding:.75pt .75pt .75pt .75pt">
 <o:p></o:p>
</td>
<td style="padding:.75pt .75pt .75pt .75pt">
 <o:p></o:p>
</td>
<td style="padding:.75pt .75pt .75pt .75pt">
 <o:p></o:p>
</td>
</tr>
<tr style="mso-yfti-irow:1">
<td colspan="4" style="padding:.75pt .75pt .75pt .75pt"></td>
</tr>
<tr style="mso-yfti-irow:2">
<td colspan="4" style="padding:.75pt .75pt .75pt .75pt">
<table border="0" cellpadding="0" class="MsoNormalTable" style="mso-cellspacing:
1.5pt;mso-yfti-tbllook:1184;mso-padding-alt:0cm 0cm 0cm 0cm">
<tr style="mso-yfti-irow:0;mso-yfti-firstrow:yes;mso-yfti-lastrow:yes">
<td style="padding:.75pt .75pt .75pt .75pt">
 <o:p></o:p>
<h3 align="center" style="text-align:center">
Ihre Bestellung<o:p></o:p></h3>
</td>
</tr>
</table>
</td>
</tr>
<tr style="mso-yfti-irow:3">
<td colspan="4" style="padding:0cm 0cm 0cm 0cm">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" class="MsoNormalTable" style="mso-cellspacing:0cm;mso-yfti-tbllook:1184;mso-padding-alt:0cm 0cm 0cm 0cm">
<tr style="mso-yfti-irow:0;mso-yfti-firstrow:yes">
<td style="padding:3.75pt 3.75pt 3.75pt 3.75pt">


Menge<o:p></o:p>
</td>
<td style="padding:3.75pt 3.75pt 3.75pt 3.75pt">


Artikelnummer<o:p></o:p>
</td>
<td style="padding:3.75pt 3.75pt 3.75pt 3.75pt">


Artikelname<o:p></o:p>
</td>
<td style="padding:3.75pt 3.75pt 3.75pt 3.75pt">



Einzelpreis<o:p></o:p>
</td>
<td style="background: #F0F0F0; padding: 3.75pt 3.75pt 3.75pt 3.75pt">



Gesamtpreis<o:p></o:p>
</td>
</tr>
<tr style="mso-yfti-irow:1">
<td style="border: none; border-top: solid #CCCCCC 1.0pt; background: #FAFAFA; padding: 3.75pt 3.75pt 3.75pt 3.75pt" valign="top">


1 
Stück<o:p></o:p>
</td>
<td style="border: none; border-top: solid #CCCCCC 1.0pt; background: #FAFAFA; padding: 3.75pt 3.75pt 3.75pt 3.75pt" valign="top">


4317784018821<o:p></o:p>
</td>
<td style="border: none; border-top: solid #CCCCCC 1.0pt; background: #FAFAFA; padding: 3.75pt 3.75pt 3.75pt 3.75pt" valign="top">


E-NORM Montagekoffer leer, 8 Fach <o:p></o:p>
</td>
<td style="border: none; border-top: solid #CCCCCC 1.0pt; background: #FAFAFA; padding: 3.75pt 3.75pt 3.75pt 3.75pt" valign="top">


72,55 € 
pro Stück<o:p></o:p>
</td>
<td style="border: none; border-top: solid #CCCCCC 1.0pt; background: #F0F0F0; padding: 3.75pt 3.75pt 3.75pt 3.75pt" valign="top">


72,55 € <o:p></o:p>
</td>
</tr>
<tr style="mso-yfti-irow:2">
<td style="border: none; border-top: solid #CCCCCC 1.0pt; background: white; padding: 3.75pt 3.75pt 3.75pt 3.75pt" valign="top">


1 
Stück<o:p></o:p>
</td>
<td style="border: none; border-top: solid #CCCCCC 1.0pt; background: white; padding: 3.75pt 3.75pt 3.75pt 3.75pt" valign="top">


4317784018838<o:p></o:p>
</td>
<td style="border: none; border-top: solid #CCCCCC 1.0pt; background: white; padding: 3.75pt 3.75pt 3.75pt 3.75pt" valign="top">


E-NORM Montagekoffer leer,12 Fach <o:p></o:p>
</td>
<td style="border: none; border-top: solid #CCCCCC 1.0pt; background: white; padding: 3.75pt 3.75pt 3.75pt 3.75pt" valign="top">


72,55 € 
pro Stück<o:p></o:p>
</td>
<td style="border: none; border-top: solid #CCCCCC 1.0pt; background: #F0F0F0; padding: 3.75pt 3.75pt 3.75pt 3.75pt" valign="top">


72,55 € <o:p></o:p>
</td>
</tr>
<tr style="mso-yfti-irow:3">
<td style="border: none; border-top: solid #CCCCCC 1.0pt; background: #FAFAFA; padding: 3.75pt 3.75pt 3.75pt 3.75pt" valign="top">


1 
Stück<o:p></o:p>
</td>
<td style="border: none; border-top: solid #CCCCCC 1.0pt; background: #FAFAFA; padding: 3.75pt 3.75pt 3.75pt 3.75pt" valign="top">


4317784018845<o:p></o:p>
</td>
<td style="border: none; border-top: solid #CCCCCC 1.0pt; background: #FAFAFA; padding: 3.75pt 3.75pt 3.75pt 3.75pt" valign="top">


E-NORM Montagekoffer leer,17 Fach <o:p></o:p>
</td>
<td style="border: none; border-top: solid #CCCCCC 1.0pt; background: #FAFAFA; padding: 3.75pt 3.75pt 3.75pt 3.75pt" valign="top">


72,55 € 
pro Stück<o:p></o:p>
</td>
<td style="border: none; border-top: solid #CCCCCC 1.0pt; background: #F0F0F0; padding: 3.75pt 3.75pt 3.75pt 3.75pt" valign="top">


72,55 € <o:p></o:p>
</td>
</tr>
<tr style="mso-yfti-irow:4">
<td colspan="3" style="border:none;border-top:solid #CCCCCC 1.0pt;padding:
.75pt .75pt .75pt .75pt">
 <o:p></o:p>
</td>
<td style="border:none;border-top:solid #CCCCCC 1.0pt;padding:3.75pt 3.75pt 3.75pt 3.75pt">


Zwischensumme:<o:p></o:p>
</td>
<td style="border: none; border-top: solid #CCCCCC 1.0pt; background: #F0F0F0; padding: 3.75pt 3.75pt 3.75pt 3.75pt">



217,64 €<o:p></o:p>
</td>
</tr>
<tr style="mso-yfti-irow:5">
<td colspan="3" style="width:262.5pt;padding:.75pt .75pt .75pt .75pt" width="350">
 <o:p></o:p>
</td>
<td style="padding:3.75pt 3.75pt 3.75pt 3.75pt">


Porto (UPS):<o:p></o:p>
</td>
<td style="background: #F0F0F0; padding: 3.75pt 3.75pt 3.75pt 3.75pt">


- <o:p></o:p>
</td>
</tr>
<tr style="mso-yfti-irow:6">
<td colspan="3" style="padding:.75pt .75pt .75pt .75pt">
 <o:p></o:p>
</td>
<td style="padding:3.75pt 3.75pt 3.75pt 3.75pt">


zzgl. MwSt 19%:<o:p></o:p>
</td>
<td style="background: #F0F0F0; padding: 3.75pt 3.75pt 3.75pt 3.75pt">


41,35 €<o:p></o:p>
</td>
</tr>
<tr style="mso-yfti-irow:7;mso-yfti-lastrow:yes">
<td colspan="3" style="padding:.75pt .75pt .75pt .75pt">
 <o:p></o:p>
</td>
<td style="padding:3.75pt 3.75pt 3.75pt 3.75pt">


Gesamtbetrag:<o:p></o:p>
</td>
<td style="background: #F0F0F0; padding: 3.75pt 3.75pt 3.75pt 3.75pt">



258,99 €<o:p></o:p>
</td>
</tr>
</table>
</div>
</td>
</tr>
<tr style="mso-yfti-irow:4">
<td colspan="4" style="padding:0cm 0cm 0cm 0cm">
<table border="0" cellpadding="0" class="MsoNormalTable" style="mso-cellspacing:
1.5pt;mso-yfti-tbllook:1184;mso-padding-alt:0cm 0cm 0cm 0cm">
<tr style="mso-yfti-irow:0;mso-yfti-firstrow:yes;mso-yfti-lastrow:yes">
<td style="padding:0cm 0cm 0cm 0cm">
 <o:p></o:p>
<h3 align="center" style="text-align:center">
Weitere Informationen<o:p></o:p></h3>
</td>
</tr>
</table>
</td>
</tr>
<tr style="mso-yfti-irow:5">
<td colspan="2" style="width:262.5pt;padding:.75pt .75pt .75pt .75pt" width="505">


Lieferanschrift 
<o:p></o:p>

<div class="MsoNormal">

<hr align="left" noshade size="1" style="color:gray" width="90%" />
</div>
</td>
<td colspan="2" style="width:262.5pt;padding:.75pt .75pt .75pt .75pt" width="203">


Rechnungsanschrift 
<o:p></o:p>

<div class="MsoNormal">

<hr align="left" noshade size="1" style="color:gray" width="90%" />
</div>
</td>
</tr>
<tr style="mso-yfti-irow:6">
<td colspan="2" style="width:262.5pt;padding:.75pt .75pt .75pt .75pt" width="505">

Mustermann Firma
</td>
<td colspan="2" style="width:262.5pt;padding:.75pt .75pt .75pt .75pt" width="203">

Mustermann Firma
</td>
</tr>
<tr style="mso-yfti-irow:7">
<td colspan="2" style="width:262.5pt;padding:.75pt .75pt .75pt .75pt" width="505">

Felix Mustermann
</td>
<td colspan="2" style="width:262.5pt;padding:.75pt .75pt .75pt .75pt" width="203">
Felix Mustermann
</td>
</tr>
<tr style="mso-yfti-irow:8">
<td colspan="2" style="width:262.5pt;padding:.75pt .75pt .75pt .75pt" width="505">

Musterstraße 123
</td>
<td colspan="2" style="width:262.5pt;padding:.75pt .75pt .75pt .75pt" width="203">

Musterstraße 123
</td>
</tr>
<tr style="mso-yfti-irow:9">
<td colspan="2" style="width:262.5pt;padding:.75pt .75pt .75pt .75pt" width="505">
 
</td>
<td colspan="2" style="width:262.5pt;padding:.75pt .75pt .75pt .75pt" width="203">

 <o:p></o:p>
</td>
</tr>
<tr style="mso-yfti-irow:10">
<td colspan="2" style="width:262.5pt;padding:.75pt .75pt .75pt .75pt" width="505">


123456 Musterhausen
</td>
<td colspan="2" style="width:262.5pt;padding:.75pt .75pt .75pt .75pt" width="203">

 <o:p>123456
Musterhausen</o:p>
</td>
</tr>
<tr style="mso-yfti-irow:11">
<td colspan="2" style="width:262.5pt;padding:.75pt .75pt .75pt .75pt" width="505">


Deutschland
<o:p></o:p>
</td>
<td colspan="2" style="width:262.5pt;padding:.75pt .75pt .75pt .75pt" width="203">
 
</td>
</tr>
<tr style="mso-yfti-irow:12">
<td colspan="4" style="width:525.0pt;padding:.75pt .75pt .75pt .75pt" width="708">

 
<o:p></o:p>
</td>
</tr>
<tr style="mso-yfti-irow:13">
<td colspan="2" style="width:262.5pt;padding:.75pt .75pt .75pt .75pt" width="505">


Kundeninformation:/span> <o:p></o:p>

<div class="MsoNormal">

<hr align="left" noshade size="1" style="color:gray" width="90%" />
</div>
</td>
<td colspan="2" style="width:262.5pt;padding:.75pt .75pt .75pt .75pt" width="203">


Zahlung (Rechnung)
<o:p></o:p>
<div class="MsoNormal">

<hr align="left" noshade size="1" style="color:gray" width="90%" />
</div>
</td>
</tr>
<tr style="mso-yfti-irow:14">
<td style="width:101.25pt;padding:.75pt .75pt .75pt .75pt" width="194">


KKunden-Nr.:
<o:p></o:p>
</td>
<td style="width:161.25pt;padding:.75pt .75pt .75pt .75pt" width="311">

123456879
</td>
<td colspan="2" style="width:262.5pt;padding:.75pt .75pt .75pt .75pt" width="203">


Sie zahlen per Rechnung o:p></o:p>
</td>
</tr>
<tr style="mso-yfti-irow:15">
<td style="width:101.25pt;padding:.75pt .75pt .75pt .75pt" width="194">


Bestell-Nr.:
<o:p></o:p>
</td>
<td style="width:161.25pt;padding:.75pt .75pt .75pt .75pt" width="311">


245
<o:p></o:p>
</td>
<td colspan="2" style="width:262.5pt;padding:.75pt .75pt .75pt .75pt" width="203">


nach Erhalt. <o:p></o:p>
</td>
</tr>
<tr style="mso-yfti-irow:16">
<td style="width:101.25pt;padding:.75pt .75pt .75pt .75pt" width="194">


SShop-Login:
<o:p></o:p>
</td>
<td style="width:161.25pt;padding:.75pt .75pt .75pt .75pt" width="311">
 
</td>
<td colspan="2" style="width:262.5pt;padding:.75pt .75pt .75pt .75pt" width="203">

 
<o:p></o:p>
</td>
</tr>
<tr style="mso-yfti-irow:17">
<td style="width:101.25pt;padding:.75pt .75pt .75pt .75pt" width="194">


USt-IdNr.: <o:p></o:p>
</td>
<td style="width:161.25pt;padding:.75pt .75pt .75pt .75pt" width="311">
</td>
<td colspan="2" style="width:262.5pt;padding:.75pt .75pt .75pt .75pt" width="203">

 
<o:p></o:p>
</td>
</tr>
<tr style="mso-yfti-irow:18">
<td colspan="4" style="width:525.0pt;border:none;border-bottom:solid gray 1.0pt;
padding:.75pt .75pt .75pt .75pt" width="708">


 
Kommissionsdaten: <o:p></o:p>
</td>
</tr>
<tr style="mso-yfti-irow:19">
<td style="width:101.25pt;padding:.75pt .75pt .75pt .75pt" valign="top" width="194">


BBemerkung:
<o:p></o:p>
</td>
<td colspan="3" style="width:423.75pt;padding:.75pt .75pt .75pt .75pt" width="514">
 
</td>
</tr>
<tr style="mso-yfti-irow:20">
<td style="width:101.25pt;padding:.75pt .75pt .75pt .75pt" valign="top" width="194">


Bemerkung zur Bestellung:/span>

<o:p></o:p>
</td>
<td colspan="3" style="width:423.75pt;padding:.75pt .75pt .75pt .75pt" width="514">
 
</td>
</tr>
<tr style="mso-yfti-irow:21">
<td colspan="4" style="width:525.0pt;padding:.75pt .75pt .75pt .75pt" width="708">
</td>
</tr>
<tr style="mso-yfti-irow:22;mso-yfti-lastrow:yes">
<td colspan="4" style="width:525.0pt;padding:.75pt .75pt .75pt .75pt" width="708">
</td>
</tr>
</table>

<o:p> </o:p>

</body>

Ich habe schon verschiedene Beiträge gelesen, diese zielen jedoch immer nur auf ganze Ordner hin.

Für Eure Hilfe wäre ich sehr dankbar, da meine VBA-KEnntnisse nur auf den Makrorekorder beschrankt sind.

Mit freundlichen
Grüßen Burghard

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 342004

Url: https://administrator.de/forum/makro-zum-auslesen-einer-mail-mit-bestelldaten-342004.html

Ausgedruckt am: 14.04.2025 um 14:04 Uhr

6 Kommentare

Neuester Kommentar

Suche benutzen:
EMail auslesen, verschieben und mit Excel ausgelesene Daten weiterverarbeiten

Gruß

Recht vielen Danke BibersBaum, den Beitrag habe ich bereits gelesen.
Leider kann ich diesen Code nicht anpassen.
MfG
Burghard

Servus,

vielleicht könntest du

den Mail-Body von Formatierungscode bereinigen
den relevanten Teil als Code-Block formatieren (Zeichen </>)

Damit steigen die Chancen, dass sich das auch jemand genauer anschaut...

Hallo MrCount,
recht vielen Dank für den Hinweis.
Das mit dem bereinigen habe ich nicht hinbekommen. Vielleicht geht auch ein Screenshot.

Gruß

Find ich ja super die Jungs die in ein Administrator Forum kommen, null Ahnung, null Code mit dem sie erste Versuche unternommen haben und sich dann hier ihre Arbeit machen lassen möchten. Zumindest ein Grundmaß an VBA-Wissen sollte man hier eigentlich erwarten können, zumal du ja später nicht wie der Ochs vorm Berg stehen willst.
Wenn ich doch was machen möchte, versuche ich mir doch zu aller erst das Wissen anzueignen anstatt sofort in ein Forum zu rennen und zu sagen, kann ich nicht, macht mal...so finde ich das persönlich echt dreist..

Ich geh ja auch nicht morgens zum Bäcker, nehme mir 3 Brötchen ohne zu bezahlen und sag dann sorry, ich kann leider nicht selbst backen.

Hallo BibersBaum,
recht vielen Dank für Deinen Beitrag und Deine Hilfe.
Ich bin beeindruckt von Deinem Wissen wie man sich in einem Forum bewegt.
Vor allem wie man andere nicht so schlaue Teilnehmer kritisiert. Einfach Top.
Ich denke in einem anderen netteren Forum mit wirklich helfenden Teilnehmern
bin ich besser aufgehoben und möchte mich von den hier sehr hohem Niveau
verabschieden.
Gruß Burghard

Frage VB for Applications Entwicklung

Mehr von bustue

VBA und Regex in Excelbustue - 3 Kommentare

Mit Excel Privaten Termin an Outlook übergebenbustue - 6 Kommentare

WSH MsGBox Scriptbustue - 4 Kommentare

Heiß diskutiert