Emails versenden per 1&1 Provider

[Josef]

Hallochen zusammen.
Mein Problem: Versneden von Emails(ca. 1200) aus Access.
Hier die Funktion die ich benutze:
Public Function Mail_senden(s_To As String, s_From As String, s_Subject As String, s_TextBody As String, s_Attachment As String)
On Error GoTo Err_f
Dim eMail
Set eMail = CreateObject("CDO.Message")
With eMail
.To = s_To
.FROM = s_From
.Subject = s_Subject
.TextBody = s_TextBody
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' Name or IP of Remote SMTP Server
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtprelay.t-online.de"
'Server port (typically 25)
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
'==End remote SMTP server configuration section=='
If s_Attachment <> "" Then
.AddAttachment s_Attachment
End If
.Send
End With
exit_f:
Set eMail = Nothing
Exit Function
Err_f:
xFehler = 1
MsgBox Error$ & Err.Number, 48, "Siber Anwenderfehler..."
Resume exit_f
End Function

Auf meinen Rechner Fuktioniert alles (Internet t-online).

Mein Kunde hat 1&1 Provider.
Kann mir jemand sagen was ich da Code ändern muss, damit es funktioniert.

Wir benutzen noch Access 2003

MfG
Josef

[IngGi]

Hallo Josef,

an Stelle des SMTP-Servers von T-Online (smtprelay.t-online.de) musst du denjenigen von 1&1 (smtp.1und1.de) eintragen.

Gruß Ingolf