|
Hallo liebe Community,
ich habe einen Code programmiert, um diese leidigen Bewerbungen per Email zu automatisieren. Der Code funktioniert auch. Lediglich wundert mich nicht, warum die gesendeten Mails nicht im Ordner "Gesendet" meines Email-Accounts angezeigt werden. Hier der entscheidende Teil des Codes:
Set myMail = CreateObject("CDO.Message")
Dim NewMail As CDO.Message
Set NewMail = New CDO.Message
NewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
NewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
NewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "..."
NewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
NewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
NewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "..."
NewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "..."
NewMail.Configuration.Fields.Update
Kenne mich mit Email-Codierung leider nicht so sehr aus. Die Unterschiede zwischen IMAP, POP3 und SMTP verstehe ich beispielsweise nicht. Weiß jemand, was ich tun muss, um das hinzubekommen?
Gruß
|