Send a mail with SDK

[ced62]

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&quot
.Body = "ced"
.ReadReceiptRequested = True
.Send

End With

End Sub

 

[ced62]

I have installed the ADMPACK and now that is working well