Content-Type: multipart/alternative; boundary="NextPart_048F8BC8A2197DE2036A" This is multi-part message in MIME format. --NextPart_048F8BC8A2197DE2036A Content-Type: text/plain; charsand then
--NextPart_048F8BC8A2197DE2036A Content-Type: text/html; charset=iso-8859-1Content-Type value is important.
#DEFINE cret Chr(13)+Chr(10) LOCAL cdoMsg cdoMsg = CreateObject('CDO.Message') WITH cdoMsg .Sender = 'info@myhost.com' && replace with your address .To = 'myfriend@somewhere.com' && replace with valid recipient email .Subject = 'Message in HTML format sent using Microsoft CDO' .HTMLBody = '<h1>What could be simpler?</h1>' +; '<p>Sending emails with <Strong>Microsoft CDO</Strong> appears to be ' +; 'the <Em>simplest</Em> way you have ever tested.</p>' WAIT WINDOW NOWAIT 'Sending message...' .Send WAIT CLEAR ENDWITHJust using HTMLBody property instead of TextBody creates HTML formatted email message automatically.