Mail per Makro
29.07.2005 09:49:58
Ingo
Diesen Thread hab ich vor einigen tagen schon mal eingestellt, aber irgendwie scheint er nicht bemerkt worden zu sein. Sorry, dass ich es nochmal probiere.
Dieses Makro hab ich mir vor einigen Tagen aus dem Forum von Frederik Fuhrmann bekommen um aus Outlook Mail per Makro zu versenden. Klappt auch wunderbar.
Meine Frage, kann ich auch eine Signatur mit einbinden?
Sub mail()
Dim objOutlook, objOutlookMsg
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
.Subject = "Aktualisierung "
.To = "Christiansen, Ingo"
.Body = "Guten Tag!" & vbLf & "MfG I.Christiansen"
.Attachments.Add ThisWorkbook.Path & "\Mail_makro.xls"
.Send
End With
MsgBox "Nachricht wurde gesendet!"
End Sub
Vielen Dank im Vorraus
Ingo Christiansen