Aus Excel heraus Mail(mit OE ) generieren
08.07.2008 22:55:57
Susanne99
Weiß jemand, wie ich anstatt Outlook Office entweder Outlook Express oder Thunderbird ansprechen könnte?
Gruß
Hallo Susanne,
hier mal ein kleiner Code um eine Outlook- Mail zu senden.
Sub MailSenden()
Dim MyOutApp As Object, MyMessage As Object
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = "Hier kommt die Adresse rein"
.Subject = "hier der Betreff"
.body = "Mein Text"
'.Attachments.Add 'für Anlagen
.Importance = 2 'Wichtigkeit hoch
.Display
'.Send 'Hier wird die Mail gesendet
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub
Gruß Tino
www.VBA-Excel.de