Hello,
I use a very simple code to send a mail (with Outlook).
But I have the following prompt : "A program is trying to automatically send e-mail on your behalf. Do you want to allow this ?"
I would like to not have any more this message, do you know how to do ???
Thanks for your help
Sub SendAttachment()
Dim appOutlook As New Outlook.Application
Dim mailItem As mailItem
Set mailItem = appOutlook.CreateItem(olMailItem)
With mailItem
.To = "xxx@xxx.com"
.Subject = "try"
'.Attachments.Add ("c:/doc.txt"
.Body = "ced"
.ReadReceiptRequested = True
.Send
End With
End Sub
I use a very simple code to send a mail (with Outlook).
But I have the following prompt : "A program is trying to automatically send e-mail on your behalf. Do you want to allow this ?"
I would like to not have any more this message, do you know how to do ???
Thanks for your help
Sub SendAttachment()
Dim appOutlook As New Outlook.Application
Dim mailItem As mailItem
Set mailItem = appOutlook.CreateItem(olMailItem)
With mailItem
.To = "xxx@xxx.com"
.Subject = "try"
'.Attachments.Add ("c:/doc.txt"
.Body = "ced"
.ReadReceiptRequested = True
.Send
End With
End Sub