Automatically Send e-mail prompt

[Terry@tescom]

I am using the sendObject action in an autoexec macro to send emails
automatically. My goal is to not have to interact with the email process,
unfortunately have not been able accomplish this because of the following
MSOutLook prompt:
A program is trying to automatically send an e-mail on your behalf.
Do you want to allow this?
If this is unexpected it may be a virus and you should choose no.

In MSOutlook I have set the Macro security to Low and I still get the prompt.

 

[Sue Mosher [MVP-Outlook]]

Outlook's macro security setting has nothing to do with the "object model guard" prompt. See http://www.outlookcode.com/article.aspx?ID=52 for your options.

 

[Robert Martim, Excel]

You can use CDO to bypass Outlook. But if you want to use Outlook, you may
want to use Redemption to do that.

Here's how: http://www.msofficegurus.com/gshowtip.asp?IDTip=51

--
Best regards
Robert, Excel MVP
Author of RibbonX: Customizing the Office 2007 Ribbon:
Find me at http://www.msofficegurus.com - be part of it!
FORUM: http://www.msofficegurus.com/forum/

 

[shiva]

Hi

Iam using outlook api to send emai lfrom my VB application.
Is this redemption library is only available option to get throgh the
security dialogs or is there any microsoft libraries available
Please let me know

Thanks in advance

Sivakumar

 

[Sue Mosher [MVP-Outlook]]

As Robert suggested, using CDO for Windows to create and send the message would avoid any security prompts. That and other options are covered at http://www.outlookcode.com/article.aspx?ID=52

 

[Suleman]

how to use it please help me i don,t know this coding just give me a simple
solution
how i send mail automatic?


Sub Mail_CDO()
Dim iMsg As Object
Dim iConf As Object
' Dim Flds As Variant
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
' iConf.Load -1 ' CDO Source Defaults
' Set Flds = iConf.Fields
' With Flds
'
..Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'
..Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Fill in
your SMTP server here"
'
..Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' .Update
' End With
With iMsg
Set .Configuration = iConf
.To = "(e-mail address removed)"
.CC = ""
.BCC = ""
.From = """Ron"" <[email protected]>"
.Subject = "Important message"
.TextBody = "Hi there" & vbNewLine & vbNewLine & _
"Cell A1 is changed"
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
End Sub

 

[Sue Mosher [MVP-Outlook]]

Replace this statement:

Set iConf = CreateObject("CDO.Configuration")

with

Set iConf = iMsg.Configuration

Uncomment the configuration section, and add your SMTP server address.

See http://www.paulsadowski.com/WSH/cdo.htm for more examples.

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54