Automating Emails using CDO

[Lazster]

Hi,

I am using Access in Office 2003 to try to automate messaging people in my organisation after a certain period has passed. I have managed to do this fine with what little knowledge I have, apart from the fact using Outlook creates a security confirmation message, which ruins the whole automation process. I cannot really bypass this.

I read that using a CDO message would not create this security alert. However, I am not sure exactly how to connect to my server, or whether it would allow me to do this, I have tried to talk to IS, and they haven't got back to me.

I've got various code examples from the internet and when I run them it asks about connection to the server, as below;

Public Function CDOMail_Click()
 
Set cdoConfig = CreateObject("CDO.Configuration")
 
    With cdoConfig.Fields
        .Item(cdoSendUsingMethod) = cdoSendUsingPort
        .Item(cdoSMTPServer) = "<server name>" 'My server name from Outlook is D1EXC004
        .Update
    End With
 
    Set cdoMessage = CreateObject("CDO.Message")
 
    With cdoMessage
        Set .Configuration = cdoConfig
        .From = "[e-mail]"
        .To = "[e-mail]"
        .Subject = "Sample CDO Message"
        .TextBody = "This is a test for CDO.message"
        .Send
    End With
 
    Set cdoMessage = Nothing
    Set cdoConfig = Nothing
 
End Function
 

Any advice as to how to connect to the server for CDO messages would be appreciated

[MMcCarthy]

I am using Access in Office 2003 to try to automate messaging people in my organisation after a certain period has passed. I have managed to do this fine with what little knowledge I have, apart from the fact using Outlook creates a security confirmation message, which ruins the whole automation process. I cannot really bypass this.

This is an outlook setting and can be turned off in outlook. This would probably not be allowed by your company for security reasons though.

I read that using a CDO message would not create this security alert. However, I am not sure exactly how to connect to my server, or whether it would allow me to do this, I have tried to talk to IS, and they haven't got back to me.

I've got various code examples from the internet and when I run them it asks about connection to the server, as below;

Public Function CDOMail_Click()
 
Set cdoConfig = CreateObject("CDO.Configuration")
 
    With cdoConfig.Fields
        .Item(cdoSendUsingMethod) = cdoSendUsingPort
        .Item(cdoSMTPServer) = "<server name>" 'My server name from Outlook is D1EXC004
        .Update
    End With
 
    Set cdoMessage = CreateObject("CDO.Message")
 
    With cdoMessage
        Set .Configuration = cdoConfig
        .From = "[e-mail]"
        .To = "[e-mail]"
        .Subject = "Sample CDO Message"
        .TextBody = "This is a test for CDO.message"
        .Send
    End With
 
    Set cdoMessage = Nothing
    Set cdoConfig = Nothing
 
End Function
 

Any advice as to how to connect to the server for CDO messages would be appreciated

I don't use CDO so I will leave this for someone else to answer.

[JConsulting]

Hi,

I am using Access in Office 2003 to try to automate messaging people in my organisation after a certain period has passed. I have managed to do this fine with what little knowledge I have, apart from the fact using Outlook creates a security confirmation message, which ruins the whole automation process. I cannot really bypass this.

I read that using a CDO message would not create this security alert. However, I am not sure exactly how to connect to my server, or whether it would allow me to do this, I have tried to talk to IS, and they haven't got back to me.

I've got various code examples from the internet and when I run them it asks about connection to the server, as below;

Public Function CDOMail_Click()

Set cdoConfig = CreateObject("CDO.Configuration")

With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "<server name>" 'My server name from Outlook is D1EXC004
.Update
End With

Set cdoMessage = CreateObject("CDO.Message")

With cdoMessage
Set .Configuration = cdoConfig
.From = "[e-mail]"
.To = "[e-mail]"
.Subject = "Sample CDO Message"
.TextBody = "This is a test for CDO.message"
.Send
End With

Set cdoMessage = Nothing
Set cdoConfig = Nothing

End Function

Any advice as to how to connect to the server for CDO messages would be appreciated

here is the code I use to send mail using CDO

Public Function SendEmailCDO(ByVal strTo As String, _
                          ByVal strMessage As String, _
                          ByVal strSubject As String, _
                          Optional ByVal strAttach As String)
    Dim objEmail As Object
    On Error Resume Next
    Set objEmail = CreateObject("CDO.Message")
    '**** email address of sender
    objEmail.FROM = "[e-mail]"
    objEmail.To = strTo
    objEmail.Subject = strSubject
    objEmail.TextBody = strMessage
    If strAttach <> "" Then objEmail.AddAttachment strAttach
    objEmail.Configuration.Fields.Item( "http://schemas.microsoft.com/cdo/configuration/sendusing")=2
    '*** smtp.xxx.com - here u enter your smtp server name, whatever that is
   objEmail.Configuration.Fields.Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.xx.com"
    objEmail.Configuration.Fields.Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
    objEmail.Configuration.Fields.Update
    objEmail.Send
    If err.Number <> 0 Then
        MsgBox "Error in sending. " & err.Description
    Else
        MsgBox "Sent"   'remove this if u dont want confirmation
    End If
    Set objEmail = Nothing
 
End Function
 

let me know if you need any followup.
J

[JodiPhillips]

J can CDO be used to open a .oft?

[JConsulting]

J can CDO be used to open a .oft?

.oft?

not sure what that is.

[JodiPhillips]

.oft?

not sure what that is.

.oft is an Outlook file template. Not sure if you can combine a CDO message and open a template file at the same time? I'm looking at doing this but not sure if I'm going about it the right way.

Edit: typos and sentence restructure

[JodiPhillips]

.oft is an Outlook file template. Not sure if you can combine a CDO message and open a template file at the same time? I'm looking at doing this but not sure if I'm going about it the right way.

Edit: typos and sentence restructure

Gawd! I apologise sincerely for this "stupid" and "ignorant" question!! Have since done some other reading and now realise that this is wayyyyyy off the planet.

Jodi

[gls0151]

[quote=mmccarthy]This is an outlook setting and can be turned off in outlook. This would probably not be allowed by your company for security reasons though.

I am attempting this same process, and have the access rights to turn this setting off if I knew where to find it :). Can you tell me how to turn the prompt off in Outlook? Thanks!!!

[MMcCarthy]

This is an outlook setting and can be turned off in outlook. This would probably not be allowed by your company for security reasons though.

I am attempting this same process, and have the access rights to turn this setting off if I knew where to find it :). Can you tell me how to turn the prompt off in Outlook? Thanks!!!

In Outlook 2000 or earlier go to options and under the security tab click on Attachment Security. Be careful though as this disables all attachment security.

In Outlook 2003 or later you will need to use automation VBA code as follows

 
OlSecurityManager.ConnectTo OutlookApp
OlSecurityManager.DisableOOMWarnings = True
On Error Goto Finally 
 
'... send your mails here ... 
 
Finally: OlSecurityManager.DisableOOMWarnings = False