ich habe diese Email Funktion im Netz gefunden und würde die gerne im Quellcode aufrufen lassen. Die Frage ist simple aber im Netz finde ich leider nichts woraus ich schlau werde.
Beste Grüße und vielen Dank
Christian
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