1

There are 1 best solutions below

1
Alan B On

If you're using CDO then you're sending via Outlook, so why not just automate Outlook directly ?

loOutlook = CreateObject("Outlook.Application")
loMessage = loOutlook.CreateItem(0)

loMessage.Subject = "test email 1"
loMessage.Recipients.Add("[email protected]")
loMessage.BodyFormat = 2        && 2 = html 3 = rtf
lcHtmlBody = "<html><body>This is the body text.</body></html>"
loMessage.HTMLBody = lcHtmlbody
loMessage.Send()