How to send formatted email without outlook

**alex1888** · 05-15-2015, 03:14 AM

hello,

I found the following code on the Internet - to sent an email from Access without using OUTLOOK.

Code:

Dim s As String

Dim iCfg As Object
Dim iMsg As Object
Dim ito As String

ito = Me.E_mail_Address
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") = "SERVER"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "USER"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "PASS"
.Item("http://schemas.microsoft.com/cdo/configuration/sendemailaddress") = "EMAIL"
.Update
End With

With iMsg
.Configuration = iCfg
.Subject = "Subject"
.To = ito
.TextBody = " TEST TEST TEST"
.AddAttachment "FullPathToAttachment"
.Send
End With

Set iMsg = Nothing
Set iCfg = Nothing

It works great. But! I need to send a formatted email. In other words, I need to put in .TextBody my HTML code. But my code is long and complicated, what can I do?

Thank you very much!

**CJ_London** · 05-15-2015, 04:05 AM

use .HTMLbody - see this link for an example

https://support.microsoft.com/en-us/kb/286431

**Micron** · 06-04-2015, 08:32 PM

I found I had to use the document type specification to control the font.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

If you've got a lot of html to write, you don't have to follow the example verbatim, you can put several tags or body text parts on one line instead of a separate line for each tag. If you want to break up your code, write a separate function to build the html part if it makes things easier to follow.

How to send formatted email without outlook

Thread Tools

How to send formatted email without outlook

Similar Threads

Command Button to Send Outlook Email

send outlook email with late binding

Need clarification on VBA script used to send email via outlook

Send email in Outlook with attachment

Send email from Access thru Outlook

Posting Permissions