Sending mail using Outlook where the Send method fails

Question

I use this code to send email from Excel:

Sub Mail_workbook_Outlook_1()
\'Working in Excel 2000-2013
\'This example send the last saved version of the Active         


        

Answer 1

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