Outlook Security Popup when sending email via Excel

[D_M_K]

Hi

I am hoping somebody can help me with my issue.

I have setup a document that opens a CSV file, transfers the data and saves the file in a location but also emails before it closes. however I am getting a pop up I would like to bypass and Application.DisplayAlerts = False doesn't seem to do so.

The popup I am getting is :

Microsoft Outlook

"A program is trying to send an e-mail message on your behalf. If this is unexpected, click Deny and verify your antivirus software is up-to-date."

This has 3 buttons Allow Deny Help

Is there a way I can get this to auto allow through excel?

Many Thanks in advance.

DMK

 

[gruntingmonkey]

Hi, try the following

Change .Send to .Display and put SendKeys "^{ENTER}" before the With OutMail line.

Or just leave at .Display and the email pops up and you have to press Send manually.

 

[Smitty]

Welcome to the Board!

See: What is Redemption

HTH,

 

[D_M_K]

Hi, try the following

Change .Send to .Display and put SendKeys "^{ENTER}" before the With OutMail line.

Or just leave at .Display and the email pops up and you have to press Send manually.

i'm a bit confused as the only .send I have is in the .sendmail and I cant do .displaymail .. This is the code I have:

Windows("Data Collection Form.csv").Activate
ActiveWorkbook.SaveAs Filename:="c:\filepath\DCF_" & _
Format(Now(), "mm_dd_yyyy hh mm"), FileFormat:=xlCSV, Password:="", _
WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.SendMail Recipients:="email@email.com"
Application.DisplayAlerts = False
ActiveWindow.Close

 

[D_M_K]

Welcome to the Board!

See: What is Redemption

HTH,

Hi

Thank you very much.

Unfortunately I can't install any addons or software to help with this process, but thank you for your reply.

Cheers

DMK

 

[gruntingmonkey]

I've just copied the code I use below - but changing .sendmail to display or .displaymail may do the same thing.

Sub sendfile()

On Error GoTo SendMailItemError:

Set objOutlook = CreateObject("Outlook.Application")
Set objMailItem = objOutlook.CreateItem(olMailItem)


With objMailItem
.To = "email@email.com"
'.cc =
.Subject = "Test"
.Attachments.Add "C:\test.xls"
.Display
.HTMLBody = "This is a test"
End With


Set objMailItem = Nothing
Set objOutlook = Nothing
Application.StatusBar = False

Exit Sub


SendMailItemError:
MsgBox "Message item could not be sent.", vbCritical, "SendMailItem "


End Sub