09.03.2018, 17:16
Hallo,
ich habe diesen Code geschrieben um Emails mit Outlook zu senden.
Set objOLMail = CreateObject("Outlook.Application")
With objOLMail.CreateItem(0)
.To = Cells(row_number, 4)
'.CC = ""
'.BCC = ""
.Sensitivity = 1 '0 = normal, 1 = persönlich, 2 = privat, 3 = vertraulich
.Importance = 1 '0 = low, 1 = normal, 2 = wichtig!
.Subject = "Danke für deine Stimme"
.BodyFormat = 1 '0=Text 1=HTML
.HTMLBody = Body_text
.DeleteAfterSubmit = False
.Sent
'.Display 'Anschauen der Mail und manuelles Senden
End With
Jetzt wollte ich, dass es die Emails direkt sendet, deswegen auch .sent. Allerdings passiert dann Email technisch garnichts, also es wird keine Email gesendet. Bei .display, wird die Email so wie ich will angezeigt und ich kann sie dann auch manuell senden. Warum funktioniert .sent nicht?
Danke im vorraus
ich habe diesen Code geschrieben um Emails mit Outlook zu senden.
Set objOLMail = CreateObject("Outlook.Application")
With objOLMail.CreateItem(0)
.To = Cells(row_number, 4)
'.CC = ""
'.BCC = ""
.Sensitivity = 1 '0 = normal, 1 = persönlich, 2 = privat, 3 = vertraulich
.Importance = 1 '0 = low, 1 = normal, 2 = wichtig!
.Subject = "Danke für deine Stimme"
.BodyFormat = 1 '0=Text 1=HTML
.HTMLBody = Body_text
.DeleteAfterSubmit = False
.Sent
'.Display 'Anschauen der Mail und manuelles Senden
End With
Jetzt wollte ich, dass es die Emails direkt sendet, deswegen auch .sent. Allerdings passiert dann Email technisch garnichts, also es wird keine Email gesendet. Bei .display, wird die Email so wie ich will angezeigt und ich kann sie dann auch manuell senden. Warum funktioniert .sent nicht?
Danke im vorraus