Microsoft Office Tutorials and References
In Depth Information
9.4.4 Zusammensetzen einer E-Mail
det den Anhang der E-Mail. Weitere Elemente ergänzt gegebenenfalls
der Benutzer.
Der Rückgabewert vom Typ Boolean kann ausgewertet werden, um
festzustellen, ob sich der Benutzer zum Speichern der E-Mail im Aus-
gangskorb entschlossen hat oder nicht. Falls er speichert, wird die
E-Mail in den Postausgang gelegt:
Rückgabewert
Abbildung 9.29
Nach dem Speichern
9.4.4
Zusammensetzen einer E-Mail
Alle Elemente einer E-Mail können auch per VBA-Code erzeugt und
zusammengestellt werden. Im folgenden Beispiel wird eine E-Mail mit
Empfänger, Betreff, Inhalt und Anhang zusammengefügt und gesendet.
Elemente
erzeugen
Sub EMailZusammensetzen()
Dim appOutlook As Outlook.Application
Dim MailItem As Outlook.MailItem
' Anwendung Outlook starten
Set appOutlook = CreateObject("Outlook.Application")
' E-Mail erstellen
Set MailItem = appOutlook.CreateItem(olMailItem)
' Eigenschaften hinzufügen
MailItem.To = "max.muster@mailziel.de"
MailItem.Subject = "Test"
MailItem.Body = "Hallo" & vbCrLf & "Welt"
' Anhang hinzufügen
On Error GoTo Fehler
MailItem.Attachments.Add "C:\Temp\test1.jpg"
' E-Mail senden
MailItem.Send
' Anwendung Outlook beenden
appOutlook.Quit
Search JabSto ::




Custom Search