mit vba mail über internen webmailer versenden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Matthias,
danke für den Tipp. Leider komme ich damit nicht weiter. Ich habe folgenden Code benutzt, erhalte aber die Fehlermeldung:
Laufzeitfehler '-2147220977 (8004020f)':
Der Server hat eine oder mehrere Empfängeradressen zurückgewiesen.
Die Serverantwort lautet: 530 SMTP authentication is required.
Die Server IP ist richtig angegeben und die Empfängeradresse ist auch richtig angegeben.
wir benutzen einen Webmailer (HMail-Server).
Leider habe ich keine Idee, woran es liegen könnte.
Option Explicit
'Make a list in Sheet("Sheet1") with
'In column A the names of the people
'In column B the E-mail addresses
'In column C yes or no , if the value is yes a mail will be send
'
'The Macro will loop through each row in Sheet1 and if there is a E-mail address in column B
'and "yes" in column C it will create a mail with a reminder like this for each person.
'
'
'Dear Jelle (Jelle is a name in column A for example)
'
'Please contact us to discuss bringing your account up to date

Sub CDO_Personalized_Mail_Body()
Dim iMsg As Object
Dim iConf As Object
Dim cell As Range
Dim Flds As Variant
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
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.10.78.152"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With
For Each cell In Sheets("Sheet1").Columns("B").Cells.SpecialCells(xlCellTypeConstants)
If cell.Offset(0, 1).Value  "" Then
If cell.Value Like "?*@?*.?*" And LCase(cell.Offset(0, 1).Value) = "yes" Then
MsgBox cell
Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = cell.Value
.From = "Hans.Mustermann@muster.de"
.Subject = "Reminder"
.TextBody = "Dear " & cell.Offset(0, -1).Value & vbNewLine & vbNewLine & _
"Please contact us to discuss bringing your account up to date"
.Send
End With
Set iMsg = Nothing
End If
End If
Next cell
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub

Bitte weiterhin um Hilfe, daher noch offen!!!
Gruß DirkR

Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.10.78.152" .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "USERNAME" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "PASSWORD" .Update End With

Hallo Matthias,
danke für deine Antwort. Ich habe den Code erweitert, allerdings bokomme ich nun folgende Fehlermeldung:
Laufzeitfehler '2147220975 (80040211)':
Die Nachricht konnte nicht an den SMTP-Server gesendet werden. Der
Transportfehlercode lautet 0x80040217. Die Serverantwort lautet not available
Kannst du damit etwas anfangen?
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.10.78.152"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Hans.Mustermann"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "DRSB2012"
.Update
End With
Gruß DirkR

Beliebteste Forumthreads (12 Monate)

mit vba mail über internen webmailer versenden

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

mit vba mail über internen webmailer versenden

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread