VBA smtp mails
Versenden von SMTP Mails mit hilfe von VBA
Guten Tag Gemeinde
ich hab ein Problem mit VBA / SMTP mails.
Ich will aus einer Exceltabelle mit Hilfe von VBA eine Email versenden, die mit SMTP versendet wird.
Hier der Code
das Problem ist wenn ich das so eingebe, erhalte ich eine fehlermeldung, dass
"
Laufzeitfehler '-2147220977 (8004020f)':
Der Server hat eine oder mehrere Empfänger zurückgewiesen. Die
Serverantwort lautet: 550 5.7.1 Unable to relay for test@benutz.com
"
es Taucht auch nur dann auf wenn ich ins ausland etwas versenden will.
wenn ich mehrer email adressen mit der endung de benutze habe ich kein Problem.
Vielen Dank schonmal im Voraus
Gruß
Broken
Guten Tag Gemeinde
ich hab ein Problem mit VBA / SMTP mails.
Ich will aus einer Exceltabelle mit Hilfe von VBA eine Email versenden, die mit SMTP versendet wird.
Hier der Code
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
' 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") = "SMTP Server"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With
strbody = "Dear Madams," & vbNewLine & vbNewLine & _
"please find attached the test order overview." & vbNewLine & vbNewLine & _
"Kind Regards" & vbNewLine & vbNewLine & _
"test gmbh"
With iMsg
Set .Configuration = iConf
.To = "benutz@test.de;test@benutz.com "
.CC = ""
.BCC = ""
.From = """mir"" <tester@hans.de>"
.Subject = "Order "
.TextBody = strbody
.AddAttachment "C:\view.xls"
.Send
End With
das Problem ist wenn ich das so eingebe, erhalte ich eine fehlermeldung, dass
"
Laufzeitfehler '-2147220977 (8004020f)':
Der Server hat eine oder mehrere Empfänger zurückgewiesen. Die
Serverantwort lautet: 550 5.7.1 Unable to relay for test@benutz.com
"
es Taucht auch nur dann auf wenn ich ins ausland etwas versenden will.
wenn ich mehrer email adressen mit der endung de benutze habe ich kein Problem.
Vielen Dank schonmal im Voraus
Gruß
Broken
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 108044
Url: https://administrator.de/forum/vba-smtp-mails-108044.html
Ausgedruckt am: 24.12.2024 um 01:12 Uhr
5 Kommentare
Neuester Kommentar