I have been sending Excel work books to outlook mail recepients using VBA.

The code is written in the Excel VBA Editor as follows:
Dim oMSOutlook As Object
Dim oEmail As Object


Set oMSOutlook = CreateObject("Outlook.Application")
Set oEmail = oMSOutlook.CreateItem(olMailItem)
With oEmail
.Attachments.Add (ActiveWorkbook.FullName)
.To = "
.Send
End With

Question:

When I run the following code outlook generate a message saying
" A programm is trying to send mails automatically . Do you want to allow
this?"

How to avoid this message. since there are more than 50 mails and have to
press
"Yes" for all these mails.


pls help


- Zulfi

See http://www.outlookcode.com/d/sec.htm for your options.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"zulfi" wrote in message
...
I have been sending Excel work books to outlook mail recepients using VBA.

The code is written in the Excel VBA Editor as follows:
Dim oMSOutlook As Object
Dim oEmail As Object


Set oMSOutlook = CreateObject("Outlook.Application")
Set oEmail = oMSOutlook.CreateItem(olMailItem)
With oEmail
.Attachments.Add (ActiveWorkbook.FullName)
.To = "
.Send
End With

Question:

When I run the following code outlook generate a message saying
" A programm is trying to send mails automatically . Do you want to allow
this?"

How to avoid this message. since there are more than 50 mails and have to
press
"Yes" for all these mails.


pls help


- Zulfi