Office: Outlook überprüfen ob email gesendet

E.GO · 23. Juli 2015

Hallo,
ich möchte überprüfen ob die mail auch gesendet wurde.
Wenn erfolreich, dann in Tabelle5 eine 1 sonst 0

mein bisheriger Code

Code:

Option Explicit

Sub Emailtest()
Dim olApp As Object
Dim olOldBody As String
Dim loletzteL As Long

'Outlook_Starten
With Application
.ScreenUpdating = False
.EnableEvents = False
End With

loletzteL = Tabelle5.Cells(1048576, 15).End(xlUp).Row

Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.GetInspector.Display
olOldBody = .htmlBody
.to = "deineMail@web.de"
.Subject = "Test"
.htmlBody = "Hallo,ist nur ein Test" & Now & olOldBody
End With
If olApp.CreateItem(0).Sent Then
'If olApp.CreateItem(0).Submitted Then
Tabelle5.Cells(loletzteL + 1, 15).Value = 1
Else
Tabelle5.Cells(loletzteL + 1, 15).Value = 0
End If

With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub

Sub Outlook_Starten()
Dim Status As Variant
Status = Shell("outlook.exe", 1)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dabei wird aber immer nur eine 0 nach Tabelle5 geschrieben.
Wie bekomme ich, wenn gesendet eine 1 in die Tabelle?

LG E.GO

:)

HS(V) · 26. Juli 2015

Hallo,

Im Anhang ein Beispiel mit einem Klassenmodul.

Menu Extra Referenz: "Microsoft Outlook 12.0 Object library" oder höher Ankreuzen.

E.GO · 26. Juli 2015

Hallo Harry,

Super Code. Danke!
Habe jetzt aber noch das Problem, dass beim 2. Start des Makros ein Laufzeitfehler 462 kommt.
"Der Remote-Server-Computer existiert nicht oder ist nicht verfügbar"
im Makro SendTest wird die Zeile Set itmevt.itm = outmail gelb gefärbt.
Muss da noch ein object geschlossen werden?

LG E.GO

HS(V) · 26. Juli 2015

Hallo E.GO,

Einen zweiten oder dritten Mal Funktioniert gut hier.

Vielleicht:
Code:

Set itmevt = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

E.GO · 26. Juli 2015

Hallo Harry,

hat super geklappt.Danke vielmals!
Für alle Makro-Interessierten.

Code:

Private Sub itm_Close(Cancel As Boolean)
Dim blnSent As Boolean
On Error Resume Next
blnSent = itm.Sent

If Err.Number = 0 Then
Range("A1").Value = "Email not sent"
Else
Range("A1").Value = "Email sent"
End If

Set itmevt = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Herzlichen Dank!

E.GO

HS(V) · 26. Juli 2015

Schön dass es funktioniert.
Danke für das feedback.

Office: Outlook überprüfen ob email gesendet

Outlook überprüfen ob email gesendet

Outlook überprüfen ob email gesendet

Outlook überprüfen ob email gesendet

Outlook überprüfen ob email gesendet - Similar Threads - Outlook überprüfen email

Outlook startet mehrfach

Übersetzungsfunktion in Outlook (MS 365)

Kann mit Outlook von ionos.de weder Emails abrufen noch welche versenden.

Outlook 2016

Überprüfung von Grammatik, Rechtschreibung und mehr in Outlook.com und Outlook im Web

Wie überprüfe ich die Rechtschreibung in Outlook im Web?

Microsoft Outlook: Namen überprüfen (Namensauflösung)