Von Excel generierte Email automatisch senden

[Scorpion]

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

[Couch81]

Hi!

Könnte es sein, dass "send" statt "sent" hilft?

Grüße
Sascha

[Käpt'n Blaubär]

Hallo,

Warum funktioniert .sent nicht?

ich könnte mir glatt vorstellen, daß der Befehl abgeändert werden müßte.

Begründung: send kommt von senden und nicht von senten.

[schauan]

Hallöchen,

send kommt englisch gesehen von send und in der Vergangenheit wäre es sent, ist ein unregelmäßiges Verb. Allerdings will der TE sicher nix in der (oder die) Vergangenheit senden

[Käpt'n Blaubär]

Hallöchen,

Der langen Rede kurzer Sinn: wie Du jetzt offensichtlich selber festgestellt hast, habe ich also doch recht.
Ein Umstand, der meine von Dir gequälte Seele nun doch wieder ins Gleichgewicht bringt.