Automated Email Messages from Excel w/VBA

  • Thread starter Thread starter Aaron
  • Start date Start date
A

Aaron

Hi - the routine below sends an email message on behalf of
outlook from MS Excel. Every time it tries to send an
email a message in outlook pops up saying that another
application is trying to send an email on outlook's
behalf, would i like to allow this?

Does anyone know if there is a way to avoid having outlook
display this message and just send the email? My routine
is displayed below my signature. Thanks!
-Aaron

Sub SendEmails()

'\\DECLARATIONS\\
Dim mlNewMessage As MailItem
Dim myOlApp
Dim strBody As String

'\\-BUILD EMAIL BODY-\\
strBody = "This is the Email Body"

'\\E-MAIL GENERATION BUILD BEGINS HERE\\
Do Until Range("A1").Offset(a, 0) = "STOP"

Set myOlApp = CreateObject
("Outlook.Application") 'Create New Outlook Item
Set mlNewMessage = myOlApp.CreateItem
(olMailItem) 'Create New Mail Item
mlNewMessage.Body = strDear & strBody &
strConfidentiality 'Defines Email Body
mlNewMessage.Subject = "Message
Subject" 'Defines "Subject"
mlNewMessage.To = Range("A1").Offset(a,
1) 'Defines "To"

mlNewMessage.Send
'Sends Email Message

Set myOlApp =
Nothing 'Clears
mlOlApp Variable
Set mlNewMessage =
Nothing 'Clears mlOlApp
Variable
a = a + 1
Loop

End Sub
 
Back
Top