Outlook Security prompt

[ckhokie]

How do I get around outlook security prompt. This is the function I am calling to send an email. I would like it to be silent or macro around it.

VBStart
Function CreateEmail(strRecipient, strSubject, strBody, strAttachment )
'Create OL App object
Set objOLApp = CreateObject("Outlook.Application")
OlSecurityManager.DisableOOMWarnings = True
If objOLApp is nothing then
MsgBox "Could not create OL App. Shutting Down"
Exit Function
End If

'Create a new mail item
Set objMsg = objOLApp.CreateItem(0)
If objMsg is nothing then
MsgBox "Could not create Mail Item. Shutting Down"
Exit Function
End If

'Set basic message parameters
objMsg.To = strRecipient
objMsg.Subject = strSubject
objMsg.Body = strBody
objMsg.Attachments.Add strAttachment,,,"Attachment1"

'Send the message
objMsg.Send

'Free up the space
Set objOLApp = Nothing
Set objMsg = Nothing

CreateEmail = "Success"
End Function
VBEnd
Let>strBody=Here is the error text file for testing. Number of errors are %ErrorAlert%.
VBEval>CreateEmail("%strTo%","%strSubj%","%strBody%","%strAttachment%"),Answer

[Marcus Tettmar]

Not sure that there's anyway to avoid it. Blame Microsoft. But do you really need to automate Outlook? Instead use an SMTP server and use the SMTPSendMail command to send the email directly.

[ckhokie]

Thanks I will give that a try.

[ckhokie]

The reason we are trying to use outlook is so we can access the distribution list that are already created. Is there a way to access the distribution list via SMTP? Thanks for your help!