VB-Homepage Tipp 424

automatisches E-Mail versenden mit Outlook

Damit alles klappt, müssen Sie natürlich Outlook auf dem entsprechenden System installiert haben und über eine geöffnete Verbindung verfügen.
Desweiteren müssen Sie Ihrem Projekt unter Verweise die
Outlook 98 Type Library (bei Einsatz von Outlook98) hinzufügen.

Alles andere ist nicht mehr viel Tipparbeit und Sie können Ihre automatische E-Mail generieren lassen. Im Beispiel wird dies gleich beim Programmstart unter Form_Load erlediegt und das Programm wieder beendet.

Form_Load
Dim objOutlook As New Outlook.Application
Dim objOutlookMsg As Outlook.MailItem

' Neue Mail generieren
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

With objOutlookMsg
   .To = "webmaster@vb-homepage.de"
   .Subject = "Information"
   .Body = "Guten Tag" & vbNewLine & vbNewLine
   .Body = .Body & "Dies ist eine automatisch generierte Mail. " & vbNewLine
   .Body = .Body & "Information. " & vbNewLine
   .Body = .Body & "Weitere Information. " & vbNewLine & vbNewLine
   .Body = .Body & "Mfg"
   .Importance = olImportanceHigh                          'Status der Mail = WICHTIG
   .Send
End With

Set objOutlookMsg = Nothing

' Outlook Instanz schließen
Set objOutlook = Nothing

'Programmende
Unload Me
End

Tipp-Download

Quelle :

Zurück zur Übersichtsseite