[VBA] chybová hláška MS Outlook

[Kooca]

Zdravím,

ve VBA mám fci na automatické zasílání mailů v závislosti na čase a události. Ovšem těstě před odesláním zprávy se zobrazí následující hláška, která se musí ručně odklikdnout: Program se pokusil automaticky odeslat zprávu el. pošty pod vaším jménem. Chcete potvrdit odeslání zprávy?

Někde jsem četl, že existuje speciální patch na outlook, který tuto bezpečnostní vlastnost odstraní.

Může mi někdo poradit?

Díky Petr

[Fox!MURDER]

nebylo by jednodussi posilat to bez outphoocku ?

[Kooca]

outphoocku = outlook?

[night_]

je to v nastaveni outlooku, na express je to v nastaveni/zabezpeceni/"Upozornit, pokud se jina aplikace ... blabla"
pocitam ze v normalnim outlooku to taky nekde bude

[Kooca]

Tak jsem asi slepej, ale já to v outlooku nenašel..(

[helioland]

all done )

' nastarteni outlocku
Dim objOL As New Outlook.Application
Dim objMail As MailItem
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)

With objMail
.To = "mejl.nejakej@provajdr.com"
.subject = "subject"
.Body = "hokus pokus a abraka dabra"
.Display
AppActivate objMail ' vobjeveni melju na screenu
SendKeys "%d" ' a vochcavka maximalni, poslat nu natvrdo at to posle

End With
'chcipnuti outlocku
Set objMail = Nothing
Set objOL = Nothing