Lautsprecher
Erfahrenes Mitglied
Hallo,
ich verschicke mit meinen VB-Pgm Emails via Outlook:
Ich würde jetzt nur ganz gerne 100%tig sicher gehen, dass die Email auch wirklich verschickt wurde, und es da keine Fehler gab.
Kann man sich vielleicht irgendeinen ReturnCode zurück liefern lassen oder gibts da in der
Library für Microsoft Outlook irgendeinen Befehl dafür
Grüße
ich verschicke mit meinen VB-Pgm Emails via Outlook:
Code:
Private Sub email_schreiben(Adresse As String)
On Error Resume Next
Set olApp = New Outlook.Application
Set oItem = olApp.CreateItem(olMailItem)
With oItem
'Adressen:
.To = Adresse
'Nachricht:
.Subject = "Automatische Mitarbeiter-Abmeldung"
.HTMLBody = "Sehr geehrte Damen und Herren,<p>Folgender Mitarbeiter wurde wegen fehlender Gehen-Buchung vom System automatisch nach <font color=" & farbe & "><b>10 Stunden</b></font> abgemeldet.</p><p>Name: <b>" & Nachname & " " & Vorname & " </b></p></p><p>PersonalNr: <b>" & Perso & " </b></p><p>Datum: <b>" & Datokommen & " </b></p><p>Zeit: <b>" & Zeitkommen & " </b></p><p>Bitte Zeiten korrigieren!</p>"
'.Display
.Send
Call insert
End With
Set oItem = Nothing
End Sub
Ich würde jetzt nur ganz gerne 100%tig sicher gehen, dass die Email auch wirklich verschickt wurde, und es da keine Fehler gab.
Kann man sich vielleicht irgendeinen ReturnCode zurück liefern lassen oder gibts da in der
Library für Microsoft Outlook irgendeinen Befehl dafür
Grüße