Quelltext der Seite 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 ==
<gallery>
Bild:scripting_4.jpg|PDF Datei ablegen
</gallery>

[[Kategorie:Scriptingbeispiele]]