ich möchte gerne Emails per vba versenden und zwar so, dass es auch ohne outlook funktioniert, denn nicht jeder hat Outlook und Outlook unterstützt keinen Zugriff auf Exchange Server.
Nun habe ich folgende Funktion:
Function EMailVersendenPort(ByVal eMailMa As String, eMailKunde As String, Betreff As String, Text As String, Server As String, Port As Integer, User As String, password As String) ', CDateiName As String)
Dim objEMail, body
Dim schema As String
schema = "http://schemas.microsoft.com/cdo/configuration/"
Set objEMail = CreateObject("CDO.Message")
With objEMail
.From = eMailMa
.To = eMailKunde
.Subject = Betreff
.Textbody = Text
'.AddAttachment CDateiName
With .Configuration.Fields
.Item(schema & "sendusing") = 2
.Item(schema & "smtpserver") = Server
.Item(schema & "smtpserverport") = Port
.Item(schema & "smtpauthenticate") = 1
.Item(schema & "smtpusessl") = True 'bei GoogleMail erforderlich!
.Item(schema & "sendusername") = User
.Item(schema & "sendpassword") = password
End With
.Configuration.Fields.Update
If MsgBox("Soll die E-Mail jetzt versendet werden?", vbYesNo, "E-Mail versenden?") = vbYes Then
.send
Else
Exit Function
End If
End With
Set objEMail = Nothing
If Err.Number 0 Then
MsgBox Err.Number & vbCrLf & Err.Description
Else
MsgBox "Mail wurde erfolgreich versendet."
End If
On Error GoTo 0
End Function
Leider funktioniert das aber nicht (mehr).Ich habe mich gerade bei meinem Email Account eingeloggt und die Zugangsdaten stimmen.
Es ist der Server: "smtp.web.de" und der Port 587.
Beim Googlekonto kam gleich eine Sicherheitswarnung, dass versucht wurde auf das Konto zuzugreifen von einer App, die Google nicht bekannt ist.
Bei web.de kommt die Meldung: Der Transport konnte keine Verbindung zum Server herstellen.
Die gleiche Meldung kommt, wenn ich (was ich eigentlich will), über einen Exchange-Server Emails versenden will.
Kann bitte jemand helfen?
Gruß Oisse