Automatically Send e-mail prompt

  • Thread starter Thread starter Terry@tescom
  • Start date Start date
T

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.
 
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
 
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
 
Back
Top