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 :