E-Mails über VBA versenden

Um über VBA eine E-Mail senden zu können, tragen Sie in das gewünschte Event den folgenden Code ein:

Set objOL = CreateObject("Outlook.Application")
Set oItem = objOL.CreateItem(0)

With oItem
  .Subject = "Hier steht Ihr Nachrichtentitel mit einer Zusammenfassung: " & ShellCache(2)
  .To = "Mail@domain.com"
  .Body = "Hier steht die Nachricht mit detaillierten Informationen: " & ShellCache(1) & vbNewLine & vbNewLine & "Das ist der auslösende Artikel: " & ShellCache(3)
  .Send
End With

Bilder

•