I have STMP code that I use to send e-mail messages from a database.
Does anyone know if it is possible to send embeded images using SMTP VBA code?
Thanks
mafhobb
Code:
Dim iMsg
Dim iConf
Const cdoSendUsingPort = 2
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xx.xx.x.xx"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Update
End With
' Apply the settings to the message.
With iMsg
Set .Configuration = iConf
.to = txtRecipient
.from = txtSender
.Bcc = txtBlack
.Subject = txtsubject
.HTMLBody = txtBody
DoEvents
.Send
End With
Does anyone know if it is possible to send embeded images using SMTP VBA code?
Thanks
mafhobb