Remove Annoying "Logon Prompt" Using Outlook (1 Viewer)

[RonAndAccess]

The following code works great with Outlook 2007, sending to a Yahoo Mail account without the pesky "Logon Prompt"


Dim OutApp As Object
Dim OutMail As Object
Dim strBody As String

On Error GoTo Err_SendEmail_Click

Set OutApp = CreateObject("Outlook.Application")

OutApp.Session.Logon
strBody = " text "
Set OutMail = OutApp.CreateItem(0)
OutMail.To = "xxxxx@xxxxxx"
' OutMail.BCC = "xxx@xxxxx"
OutMail.Subject = " subject "
OutMail.Body = strBody
OutMail.Send 'Send | Display
---------------------------------------------------------------------------
One solution to getting rid of the "Logon Prompt" in Outlook 2007

Select Tools > Options > Mail Setup >

Select "Send/Receive" button


Uncheck "Schedule an Automatic Send/Receive" every 30 minutes

 

[pr2-eugin]

Hello RonAndAccess, Welcome to AWF..

The above code will work just as you have dictated it to.. You have the code..

OutApp.Session.Logon

That will thus prompt for login information. Try commenting it out and see what happens.. Also you need to have a proper error handler, as the CreateObject is likely to throw an error.. Lets take one step at a time.. Post back if you have troubles..