SMTP-Mailversand bereitet Probleme
11.08.2014 12:12:30
Albert
ich versende aus einer Exceltabelle Mails via SMTP mit nachfolgendem Code.
Sub Mail_schicken()
'Variablendeklaration für Mailversand
Dim iMsg As Object
Dim iConf As Object
Dim Flds As Variant
Dim Mailbetreff as String
Dim Mailinhalt as String
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") _
= "10.130.54.16"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With
With iMsg
Set .Configuration = iConf
.To = "dummy@dummyman.de"
'.CC = ""
'.BCC = ""
.From = ""
.Subject = Mailbetreff
.TextBody = Mailinhalt
.Send
End With
End Sub
Über die Tage und Wochen stelle ich immer wieder fest, dass das verschicken
Probleme macht, weil möglicherweise das Netzwerk nicht optimal läuft.
Gibt's eine Möglichkeit zu prüfen, ob die Netzwerkauslastung über einem bestimmten
Prozentsatz liegt und erst dann die Mail verschickt.
Besten Dank für nen Hinweis
Gruß
Albert