Hallo,
da bin ich wieder.
Folgendes Problem. Ich möchte gerne eine Tabelle an mehrer E-Mailempäger schicken(an jeden Empfänger eine neue Mail). Folgendes habe ich mir überlegt:
Dim outl, Mail As Object
Application.DisplayAlerts = False
Set outl = CreateObject("Outlook.application")
Sheets("Tabelle2").Activate
Range("A1").Select
Do Until ActiveCell.Value = ""
Set Mail = outl.createitem(0)
Mail.Subject = "Test"
Mail.body = "Test"
Mail.To = ActiveCell.Value
Mail.attachments.Add "C:\Dokumente und Einstellungen\Patricia\Eigene Dateien\Excel Dokumente\pac.xls" 'Mail.display
Mail.display
Mail.send
Set Mail = Nothing
ActiveCell.Offset(1, 0).Select
Loop
Leider ist das Format der E-Mail Rich-Text, ich möchte aber gerne die E-Mail im HTML Format senden. wie kann ich das Format der E-Mail per VBA umstellern?
Danke für eure Hilfe! |