Hallo zusammen,
ich versuche in eine durch ein Excel Makro erstellt Email, welche mit HTML gestaltet wurde, einen Einzug zu machen.
Sub Mail()
Dim olApp As Object
Dim objNachricht As Object
Set olApp = CreateObject("Outlook.Application")
Set objNachricht = olApp.CreateItem(0)
With objNachricht
<strong></strong>objNachricht.htmlbody = "<span style=""font-size:11pt""><font face=""Arial"">" & _
"<p>Sehr geehrte Damen und Herren,</p>" & _
...<strong>
"<p>Bilder werden wie folgt benötigt:" & _
"<ul>" & _
"<li>Datenformat: TIFF (Bildkomprimierung LZW), EPS, PSD, JPG oder PNG</li><li>Auflösung: mind. 300 dpi und 1500 Pixel</li><li>Mit weißem, freigestelltenm Hintergrund</li><li>Bitte bennen Sie jeden einzelne Bilddatei so, dass eine eindeutige Zuordnung der Artikel zum jeweiligen Produktfoto möglich ist (z.B. EAN / GTIN)</li>" & _
"</ul>" & _
"Übertragen der Bilder: <u>Bis zu 14 MB</u> direkt per Mail - auf Wunsch können wir Ihnen gernen einen Link zum bequemen Upload zukommen lassen.</p>" & _
"<p>Bitte stellen Sie uns <b>ALLE abgefragten Informationen innerhalb von 5 Werktagen zur Verfügung</b>.</p>" & _
"<p>Gerne stehen wir Ihnen bei Fragen zur Verfügung:<br>" & _
"Prozess, bzw. Befüllen der Formulare: +49-211-xxx-xxxx, bzw. xxx@xxxxx.de <br>" & _
"Bildübermittlung: +49-211-xxx-xxxx, bzw. xxx@xxxxx.de</p>"</strong>
Set objRecipient = .Recipients.Add("Test")
objRecipient.Type = 1
' Set objRecipient = .Recipients.Add("") 'Mailadresse ändern falls gewünscht
' objRecipient.Type = 2
.Importance = 2
.ReminderTime = Date + 1
' '.send
.Display
End With
Set objRecipient = Nothing
Set objNachricht = Nothing
End Sub
Der Einzug soll die Telefonnummern bei "Prozess, bzw. Befüllen der Formulare:..." und "Bildübermittlung" auf gleicher gleicher Höhe schreiben.
Wenn ich <div style=""text-indent: 10em;""> nutze, erscheint in der Email die Telefonnummer gar nicht mehr.
Hab iht vielleicht eine Lösung parat?
Vg
Julius
|