Hallo Forum!
Ich suche eine Möglichkeit den SendenButton in Outlook zu steuern. Per SendKeys geht das nicht, da VBA gestoppt wird sobald das EMailFenster angezeigt wird.
Geht das ganze auch mit dem Befehl FindControl(ID).Execute?
Danke schonmal!
MfG, Andreas
Hi Andi,
Ich suche eine Möglichkeit den SendenButton in Outlook zu
steuern. Per SendKeys geht das nicht, da VBA gestoppt wird
sobald das EMailFenster angezeigt wird.
biste da sicher?
Option Explicit
Sub Outlookstarten()
Dim OApp As Object, ONameSpace As Object, OFolder As Object, n
Set OApp = CreateObject("Outlook.Application")
Set ONameSpace = OApp.GetNamespace("MAPI")
Set OFolder = ONameSpace.GetDefaultFolder(6)
OFolder.Display
Application.SendKeys "%nm", True
For n = 1 To 20000
Cells(1, 1) = n
Next n
Application.SendKeys "[email protected]{TAB}{TAB}", True
Application.SendKeys "Erinnerung{TAB}", True
Application.SendKeys "Guten Morgen,~Sei gegrüßt.", True
'Application.SendKeys "%s", True
End Sub
Geht das ganze auch mit dem Befehl FindControl(ID).Execute?
K.A., vielleicht geht es über API sicherer als über Sendkeys.
Google mal nach
FindWindow Declare
bzw
FindWindowA Declare
in Groups. FindWindows heißen…
Ein Problem gibts noch, habe OL2003 ganz neu, wie man auf das S von Senden oder das p von Optionen per Tastatur kommt ist rätselhaft.
Mit Tab bleibt man in der Auswahlreihe obendrüber, und auch Alt+s klappt nicht…
Gruß
Reinhard
Hi Reinhard!
Danke für deine Antwort!
Ich hatte ganz vergessen zu Erwähnen daß ich das aus Excel heraus machen will.
Per SendKeys „%s“ hab ich es schon versucht, da wird das Programm angehalten und sobald der SendenDialog wieder weg ist, geht es wieder weiter…
Mein Ziel ist es, Einladungen zu Terminen an andere Personen automatisch (aus Excel heraus) zu verschicken. Dafür muss ich einmal den EinladungsButton drücken und dann den SendenButton.
Ich hab keine Ahnung ob das mit FindControls(ID).Execute geht…
Mit SendKeys gehts nicht.
MfG Andi