Problem with email (Outlook)

[Morris_Zg]

Hi, I am tryin to send e-mail automaticaly with vb6, and for this I am using the code down here.

But the problem is with Outlook, when the e-mail should be sent. Outlook pops up a notification: "A program is trying to automatically send an email on my behalf. Do You want to allow this?". And there is to choose YES or NO.

How can this YES be chosen automatically from vb? (Because, the assumption is that user will not be present to click YES after he runs the application!)

Dim objOutlook As Object
Dim objOutlookMsg As Object
 
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)
 
With objOutlookMsg
 
  .To = txt_ToEmail
  .Subject = "Measurement data"
  .Body = "Measurement data are in the attachment"
  '.HTMLBody = "HTML version of message"
   intFileNbr2 = FreeFile
  .Attachments.Add (strFileName2)
  .send
 
End With
 
Set objOutlookMsg = Nothing
Set objOutlook = Nothing