Potvrzení hlášky v Outlooku při odesílání mailu z Excelu

[scorpio1]

Dobrý den,
z Excelu odesílám makrem pomocí příkazu

Kód: Vybrat vše

ThisWorkbook.SendMail Recipients:="jan.novak@firmaxy.cz"

mail pomocí Outlooku (případně mail odesílám pomocí příkazu CreateObject("Outlook.Application")... ).
V obou případech se zobrazí hláška MS Outlook, která vyžaduje RUČNÍ potvrzení odeslání emailu. Po potvrzení se běh makra vrací zpět do MS Excel.

Hláška:
MS Outlook
Program se pokouší automaticky odeslat ve vašem zastoupení e-mail. Chcete tuto akci povolit? Ano/Ne/Storno

Otázka:
Je možné z prostředí Excelu "na dálku" potvrdit odeslání mailu v Outlooku? Aby to nemusel dělat uživatel?
Něco jako SendKeys nebo nějak nastavit Outlook, aby se "neptal" a pak tu vlastnost nastavit zpátky nebo ...

Díky.

[Reklama]

[navstevnik]

Prikaz SendKeys ve VBA odesle do bufferu klavesnice zadane kody odpovidajici klavesam, kde cekaji na vyzvednuti nejakou aplikaci.
Prikaz umisti v procedure pred prikazy odesilani mailu.
Podle stavu prednastaveni (fokusu) tlacitek Ano/Ne/Storno v hlasce vloz znaky, ktere presunou fokus na pozadovane tlacitko (Ano) a pridej Enter. Kody odpovidajici klavesam najdes v napovede.

[scorpio1]

SendKeys už jsem zkoušel:

Kód: Vybrat vše

SendKeys "{LEFT}"
SendKeys "{ENTER}"
ThisWorkbook.SendMail Recipients:="jan.novak@firmaxy.cz"


... to nefungovalo - akceptuje Outlook příkazy makra Excelu?

[scorpio1]

... nebo mě ještě napadlo, jestli není problém v tom, že ta potvrzovací hláška Outlooku vždy čeká vteřin, než je tlačítko "Ano" přístupné. Po dobu 5 vteřin čekání je tlačítko "Ano" zašeděné.
Ale když ta sekvence stisknutí je uložená v bufferu ...? Mělo by to fungovat, ale nefunguje. Jde nějak ověřit, jestli to v tom bufferu opravdu je?
U jiného makra, které ale pracuje jen v rámci Excelu, příkaz SendKeys funguje bez problémů.
Díky.

[navstevnik]

Nemam Outlook nainstalovany, takze nemohu overit, nekdo jiny?