© DOWNLOAD

Option Base 0
Option Explicit

only masochists automate Outlook (Office)
for the purpose of sending E-Mail

Public Sub SimpleSendEMailWithCDO()
late binding

Dim iCfg As Object
Dim iMsg As Object

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

With iCfg.Fields
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.cogeco.ca"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
    .Item("http://schemas.microsoft.com/cdo/configuration/sendemailaddress") = "your name <your email address>"
    .Update
End With

With iMsg
    .Configuration = iCfg
    .Subject = "Test Early Binding"
    .To = "someone@domain.tld"
    .TextBody = "Test"
    .send
End With

Set iMsg = Nothing
Set iCfg = Nothing

End Sub

Public Sub SimpleSendMailWithCDOB()
early binding
requires reference to cdosys.dll

Dim iCfg As CDO.Configuration
Dim iMsg As CDO.Message

Set iCfg = New CDO.Configuration
Set iMsg = New CDO.Message

With iCfg.Fields
    .Item(cdoSendUsingMethod) = cdoSendUsingPort
    .Item(cdoSMTPServerPort) = 25
    .Item(cdoSMTPServer) = "smtp.cogeco.ca"
    .Item(cdoSMTPAuthenticate) = cdoBasic
    .Item(cdoSendUserName) = "username"
    .Item(cdoSendPassword) = "password"
    .Item(cdoSendEmailAddress) = "your name <your email address>"
.Update
End With

With iMsg
    .Configuration = iCfg
    .Subject = "Test Late Binding"
    .To = "someone@domain.tld"
    .TextBody = "Test"
    .send
End With

Set iMsg = Nothing
Set iCfg = Nothing

End Sub

for an example
that sends attachments see
Send_Report_As_HTML
(http://www.ffdba.com/downloads/Send_Report_As_HTML.htm)

Back