Sub EMAILs_durch_VBA_kurz_und_bündig()
On Error GoTo Fehlermelden
Dim OutLookJob As Object, E_Mail As Object
Set OutLookJob = CreateObject("Outlook.Application")
FLYER = "C:\TEMP.XLS" 'Anhang Beispiel als Option
Set E_Mail = OutLookJob.CreateItem(0)
E_Mail.To = "UserName@deineHomepage.de"
E_Mail.Subject = "Dies ist deine Betreffzeile!"
'E_Mail.attachments.Add FLYER 'hier optional mit Anhang
E_Mail.body = "Hallo Jungs und Girls! Der Lenz ist da!"
E_Mail.display
E_Mail.send
Set E_Mail = Nothing
Set OutLookJob = Nothing
Exit Sub
Fehlermelden:
MsgBox ("Es wurde keine EMAIL durch Outlook geschickt.")
End
End Sub
Sub Mail()
Dim ol, neumail, empfänger
Set ol = CreateObject("Outlook.Application")
Set neumail = ol.CreateItem(olMailItem)
With neumail
.Recipients.Add "vorname1.nachname1@t-online.de"
.CC = "vorname2.nachname2@aol.de"
.Subject = "Testmail"
.Body = "Diese mail wurde von einem Programm verschickt"
' .Attachment.Add Source:="dateiname", DisplayName:="Mein Anhang"
.Send
End With
End Sub