Send mail in MS Outlook

[Lucas]

This code is easier and also works.


Macro Macro10

Code:

Copy      Help

typelib Outlook {00062FFF-0000-0000-C000-000000000046} 9.0


Outlook.Application a._getactive
Outlook.MailItem aa=a.CreateItem(Outlook.olMailItem)
aa.To="Doe, John"
aa.Subject="test"
aa.Body="This is a test"
aa.Save
IDispatch SafeItem
SafeItem._create("Redemption.SafeMailItem")
SafeItem.Item = aa
SafeItem.Recipients.ResolveAll
SafeItem.Send

but I continue thinking, that type of protection will have the window ("a program is trying to automatically send e-mail...) so that (SendClickMessage, SendKey) in Yes button don't work.

Do you know another way?