Hallo zusammen,
ich habe ein Makro geschrieben, das automatisch Emaisl verschickt ohne die lästige Abfrage. Wenn ich das Makro bei mir starte läuft es einwandfrei. Wenn ich es auf einem anderen Rechner starte kommt es vor, daß er 3 mails verfasst die dann offen bleiben, erst dann werden die restlichen mails verfasst und verschickt, aber die 3 geöffneten müssen manuell verschickt werden. Hier mal der Quelltext:
Sub mailVersenden()
Dim outl As Object
Dim Mail As Object
Set outl = CreateObject("Outlook.Application")
Set Mail = outl.CreateItem(olMailItem)
Mail.BodyFormat = 2
Mail.Subject = "Fällige Aufgaben"
Mail.body =“Irgendwas“
Mail.To = "max@mustermann.de"
Mail.Display
AppActivate ThisWorkbook
SendKeys "%s", True
Set outl = Nothing
Set Mail = Nothing
Application.Wait (Now + TimeValue("0:00:02"))
endsub
Vielleicht kann mir jemand helfen