Macro Bugs (send email)

[Trey Infinger]

I am using the below code that I found on the web. I am having issues getting the email to send automatically. All actions will work except the .Send function.
Any help would be appreciated. Thanks in advance.
Note: I have note experience with macros.


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim Outlook As Object, EMail As Object

Set Outlook = CreateObject("Outlook.Application")

Set EMail = Outlook.CreateItem(0)

With EMail
.To = "sample.com"
.CC = ""
.BCC = ""
.Subject = "PLC Change Log Update"
.Body = "Sender has modified the attached file"
.Attachments.Add ActiveWorkbook.FullName
.Send
'.Display



End With


Set EMail = Nothing

Set Outlook = Nothing
Application.Quit
ThisWorkbook.save


End Sub

[CheeseSandwich]

Can be issues with out of date antivirus as well as others, there is usually a pop up asking if you want to allow the interaction between Excel and Outlook - it could be in the background.

Can also be caused if the email address has not been accepted - have you tried it with a real email address? Or at least '[email protected]' - it may need the @ symbol to be present.

Might be worth having a read of the below:
https://docs.microsoft.com/en-us/out...on-your-behalf

[Trey Infinger]

I don't think there is an issue with antivirus. Also, if I comment out .Send and put in .Display, outlook will open with my email. I only placed sample.com in this thread to have my work email out.
Attached is the only pop-up I get after running the script.
Attachment 781966

[Trey Infinger]

Attachment 781967
...........

[CheeseSandwich]

Also, if I comment out .Send and put in .Display

This is exactly what will happen if the email address is not valid - it is happy to display an email address that is not valid but it can't send to it.

It is also what happens if the security issue has reared its ugly head - hence the provided link.

Have you tried it with a valid email address?

[Trey Infinger]

Yes, I've tried a few different emails. I have also tried adding my display name as shown in outlook. Display will populate an email address in an outlook pop-out. Select send in the pop-out and I receive an email.
Also, I cannot change the antivirus settings. My IT department has that looked out.