Supportnet / Forum / E-Mail/Outlook
Makro Outlook wird in der Taskleiste abgelegt
Frage
Hallo,
ich brauche Eure Hilfe, da beim ausführen des Makros die Outlook-Anwendeung immer wieder nur in der Taskleite abgelegt wird.
Wie kann ich sicherstellen, daß die Outlook-Anwendung noch aktiv ist beim einfügen?
Ich hoffe Ihr habt eine Idee die mir weiterhilft.
Gruß
Kerstin
Dim ol, Mail As Object
Set ol = CreateObject("Outlook.Application")
Set Mail = ol.CreateItem(0)
Mail.Subject = " Muster " & Now
Mail.To = "Muster.@de"
Mail.cc = ""
Mail.bcc = ""
Mail.body = Chr(13)
Mail.Display
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "{TAB}", Wait = True
Application.SendKeys ("^v") , Wait = True
Application.SendKeys ("%s") ,Wait = True
Application.Wait (Now + TimeValue("0:00:02"))
Workbooks.Open FileName:="C:\Dokumente und Einstellungen\Admin\Desktop\Versand\VersandmeldungX.xls"