Untitled


Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSMTPServer      = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort  = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"

Const cdoSendUsingPort   = 2
Const cdoBasic           = 1

Const cdoRefTypeId       = 0
Const cdoRefTypeLocation = 1

Const cStrSMTPServer     = "mail.mycompany.com"
Const cSMTPPort          = 25

Dim objMessage : Set objMessage = CreateObject("CDO.Message")
Dim objCDOConf : Set objCDOConf = CreateObject("CDO.Configuration")

objCDOConf.Fields(cdoSendUsingMethod) = cdoSendUsingPort
objCDOConf.Fields(cdoSMTPServer)      = cStrSMTPServer
objCDOConf.Fields(cdoSMTPServerPort)  = cSMTPPort
objCDOConf.Fields.Update

Set objMessage.Configuration = objCDOConf

Dim strHTML

'MAIL CONTENT, MODIFY CID:IMAGENAME
strHTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & NL
strHTML = strHTML & "<HTML>"
strHTML = strHTML & "  <HEAD>"
strHTML = strHTML & "    <TITLE>Sample GIF</TITLE>"
strHTML = strHTML & "  </HEAD>"
strHTML = strHTML & "  <BODY><p>"
strHTML = strHTML & "   <IMG src=""cid:image.jpg"">tehehehehehe!</p><p> </p>"
strHTML = strHTML & "  </BODY>"
strHTML = strHTML & "</HTML>"


'ADDRESS SETTINGS
objMessage.To       = "jim@company.com"
objMessage.From     = "noone@likesyou.com"
objMessage.Subject  = "including me"
objMessage.HTMLBody = strHTML

'PATH TO IMAGE
objMessage.AddRelatedBodyPart "c:\image.jpg", "image.jpg", cdoRefTypeID

objMessage.Send

Set objMessage = Nothing
Set objCDOConf = Nothing