CDO Versand überprüfen

12/10/2009 - 18:17 von Hubert Holler | Report spam
Ich verwende folgenden Code um ein E-Mail mit ACC00 mit CDO zu
versenden:

Public Function CDO_Mail(strbody As String, strbetreff As String,
email As String)

Dim iMsg As Object
Dim iConf As Object
' Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/
sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/
smtpserver") _
= "ultimusmail"
.Item("http://schemas.microsoft.com/cdo/configuration/
smtpserverport") = 25
.Update
End With

With iMsg
Set .Configuration = iConf
.DSNOptions = 2
.To = Trim(email)
.CC = ""
.BCC = ""
.From = """Name"" <name@domain.com>"
.Subject = strbetreff
.TextBody = strbody
.Send
End With

End Function
-

Das ganz funktioniert auch ohne Probleme.
Nur wie kann ich überprüfen, ob der Versand auch o.k. war. Ich habe da
nàmlich auch mal eine ungültige E-Mail Adresse eingegeben, weiss aber
nicht wie ich einen, ungültigen bzw. Versand der nicht angekommen ist,
überprüfen kann.

Hoffe da kann mir jemand weiterhelfen.
Vielen Dank für jede Antwort
 

Lesen sie die antworten

#1 Stefan Dase
12/10/2009 - 18:34 | Warnen spam
Hallo Hubert!

Ich verwende folgenden Code um ein E-Mail mit ACC00 mit CDO zu
versenden:

[...]

Nur wie kann ich überprüfen, ob der Versand auch o.k. war. Ich habe da
nàmlich auch mal eine ungültige E-Mail Adresse eingegeben, weiss aber
nicht wie ich einen, ungültigen bzw. Versand der nicht angekommen ist,
überprüfen kann.



Da die Send-Methode keinen Rückgabewert liefert, kannst du nur allgemein
auf einen Fehler auswerten. Dieser wird dir aber nur Verletzungen an der
CDO-Schnittstelle mitteilen, die Emailadresse kannst du damit nicht
validieren.

Wenn du auch eine Rückmeldung benötigst, könntest du Outlook direkt per
OLE verwenden. Über diesen Weg làsst sich dann auch der Posteingang
auswerten.

Viele Grüße aus Bremen,
Stefan

Ähnliche fragen