Send mail in MS Outlook

[Lucas]

I tried

Macro Macro5

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.Send

but a message of security appears.

Is there any way of do it automatically?