Sending saved mails in Drafts through VBA

[Dr Zenith]

Hey guys,

Am using the following code to save mails in the draft through VBA (mainly to avoid annoying malware prompt).

How do you send a saved mail in draft through VBA??

Sub Mail_Workbook_1()
    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    Bod = Range("A1").Value
    With OutMail
        .To = "xxxx&xxx.com"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .Body = "Body"
        .Attachments.Add
        .Save
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

 

[Andrew Poulsom]

Won't you get the same "annoying prompt" when you do that? Have a look here:

http://www.rondebruin.nl/mail/prevent.htm

 

[Dr Zenith]

Thanks for the link!!

Won't you get the same "annoying prompt" when you do that? Have a look here:

http://www.rondebruin.nl/mail/prevent.htm

I guess not, as I am just sending a mail already saved in draft. Someone told me there is way to do it in VBA

 

[Andrew Poulsom]

I found this on Google:

http://www.tek-tips.com/viewthread.cfm?qid=1361305&page=271