I am attempting to send an email using the following lines of code -- both fail:
Private Sub Export_Click()
On Error GoTo Err_Export_Click
' DoCmd.SendObject acReport, "rptProject", acFormatPDF, Email_TO, , , "Sample Email Subject", , False
DoCmd.SendObject acReport, "rptProject", acFormatPDF, "RealEmailAddress@yahoo.com", , , "Sample Email Subject", , False
My email uses Outlook Web Access and I am running over a wireless connection. When the code runs I get prompted for my email password. Sometimes I get prompted over and over then the email appears to have been sent but wasn't. Sometimes I am not prompted. Problem is that email is NEVER actually sent. Anyone have any suggestions?
The prompts are attached.