Funktion aufrufen

Public Sub sendMail()
Dim myMail      As Outlook.MailItem
Dim myOutlApp   As Outlook.Application
' Ein neue Outlook-Instanz und ein neues Mailitem erstellen
Set myOutlApp = New Outlook.Application
Set myMail = myOutlApp.CreateItem(olMailItem)
With myMail
' Den Empfänger der Mail festlegen
.To = "Christian.Stoffers@Airbus.com"
' Einen CC-Empfänger hinzufügen
'.CC = "other.recipient@somewhere.else.invalid"
' Den Betreff der Mail festlegen
.Subject = "Refused Requests"
' Text in die Mail einfügen
.Body = "Hello dear friend, " & vbCrLf & vbCrLf & _
"This is my first mail produced and sent via Outlook-Automation." & _
vbCrLf & vbCrLf & "And now I will try add an attachment."
' Ein Attachment aus dem Dateisystem anhängen
'.Attachments.Add "c:\path\to\a\file.dat"
' Die Email abschicken
.Send
' Anstatt die Email sofort zu senden, kann man auch die Display-Methode des
' Mailitems verwenden, um die Email anzuzeigen und sie vom Benutzer manuell
' verschicken zu lassen.
End With
' Die Outlook-Instanz beenden
myOutlApp.Quit
' Objektvariablen zerstören und Speicher freigeben
Set myMail = Nothing
Set myOutlApp = Nothing
End Sub