bypassing the outlook 2003 check when sending email 1

[filmir68]

hello,
I am trying to send emails programatically from within access and attach a pdf file. Access creates the pdf file and then attach it to the email. when outlook tries to send the email, the security ask if I want to send the email. Is there a way to bypass that? I have about 100 emails I have to send. thanks for your help.

 

[PHV]

Do a google search for outlook object model guard

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[stix4t2]

PHV

The search found no records. Outlook object model found listings, but no work arounds. Do you have any ideas of what may work here?

 

[MDJ52]

I had this same problem. I downloaded a product called ClickYes. This automatically replies to the Outlook security messages. I am currently sending 60 to 70 emails per day, totally unattended.
Give it a try, Mike

 

[filmir68]

used the ClickYes program. works great. thanks.

 

[PHV]

The search found no records
Really ?
I've 704000 pages in english/french (0.36 seconds) ...

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[stix4t2]

Sorry, I used the tek-tip google search.

 

[Flo79]

You should take a look at the following site:

http://www.mapilab.com/download/

Advanced Security For Outlook

 

[Zion7]

And here's another option, compliments of
jrBarnett ( a tekkie here)



Sub EmailCDO()
'Set reference to 'Microsoft CDO for Windows 2000'
'Bypasses Outlook warning Msg "Someone Is Attempting to send a message..."
On Error GoTo xxx

Dim iMsg As CDO.Message, iConf As CDO.Configuration, Flds

Const cdoSendUsingPort = 2

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

' Set the CDOSYS configuration fields to use port 25 on the SMTP server.

With Flds
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "smtp.broadband.rogers.com"
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSendUserName) = "frfrs@rgers.com"
.Item(cdoSendPassword) = "*****"
.Update
End With

' Apply the settings to the message.
With iMsg
Set .Configuration = iConf
.To = "frfrs@rgers.com"
.From = "frfrs@rgers.com"
.Subject = "This is a test CDOSYS message (Sent via Port 25)"
.AddAttachment ("C:\Documents and Settings\Dan\My Documents\FSXPaymentPlan.txt")
.sEnd
End With

'
xx:
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
Exit Sub
xxx:
MsgBox Err & vbCrLf & Error$, , "Sub; EmailCDO"
Resume xx
End Sub