Thank you Sue for a quick respons

I have found one solution - In "ThisOutlookSession" I wrote:

Sub SendNewMail(NewTo As String, NewSubject As String, NewAttach As String)
Dim MyOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Set MyOutlook = Application
Set objMail = MyOutlook.CreateItem(olMailItem)
With objMail
.BodyFormat = olFormatHTML
.To = NewTo
.Attachments.Add NewAttach
.Subject = NewSubject
.Send
End With
End Sub

And I called this function from Excel (VBA) by:

Sub test()
Call ", "Test",
"C:\test.xls")
End Sub

This really worked - I've tested it many times, you can also chack it.
Then, I saved the Project and restarted Outlook. After that it does not
work(???) - "Run-time error 438"

Would you be so kind and tell me how to handle This problem?

Regards


"Sue Mosher [MVP-Outlook]" wrote:

See http://www.outlookcode.com/d/sec.htm for your options with regard to the "object model guard" security in Outlook 2000 SP2 and later versions.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"Gvaram" wrote in message ...
I'd like to make connection from Excel to Outlook using VBA - create new mail
and send it.
I did it, but before sending the mail, there always appear security warning
like "A program is trying to automatically send e-mail on your behalf ......"
and it needs someone to click "Yes" after about 5-6 seconds.
Please, help: is there any method to override this problem and send mail
automatically without any confirmations? If yes, how can i do it?