Hi Todd,

Thanks for your advice. I downloaded the Internet Mail Activex controls from Mabry. I added my code to my form to utilize these methods and properties.
I am at the point where I send the message out via TCP/IP. The two problems I am encountering as a recipient are:
1. The message contains no text in the body. Context length=0.
2. The attachment seems to be attached but I can not view it when I double-
click on it in my message.
Since you have already used the controls from Mabry, can you verify the code for me, correct and/or suggest anything better?
------------------CODE---------------------------------------------------
#define MailActionNewMessage 11
#define MailActionCreatePart 4
#define MailActionDescend 7

#define MailSrcIsBuffer 1
#define MailSrcIsFile 2
#define MailSrcIsHost 4
#define MailSrcIsBody 8

#define MailDstIsBuffer 16
#define MailDstIsFile 32
#define MailDstIsHost 64
#define MailDstIsBody 128

#define ReadHeaderOnly 256

#define MailActionEncode 9
#define MailActionAscend 2
#define MailConnectTypeSMTP 0
#define MailActionConnect 3
#define MailActionWriteMessage 15
#define MailActionDisconnect 8

LOCAL liBoundary

_VFP.AutoYield = .F.

RAND(-1)
WITH ThisForm.OLEMabryControls

.Action= MailActionNewMessage
.Date=LEFT(CDOW(DATE()),3)+", "+STR(DAY(DATE()),2)+" "+LEFT(CMONTH(DATE()),3)+" "+STR(YEAR(DATE()),4)+" "+TIME()
.From="John Vlahos"
.EmailAddress="vlahosj@total.net"
.TO="slarin@hotmail.com,louis-jean_bluteau@videoway.com,beaulieuc@transcontinental.ca,j_vlahos@hotmail.com"
.CC="vlahosj@total.net,slarin@total.net"
.BCC=""
.Subject="Home: Mabry Mail Controls"
DOEVENTS()

*Create the headers for the message
liBoundary=INT(RAND()*100000000000)
.ContentType="multipart"
.ContentSubType="mixed"
.ContentSubTypeParameters="boundary="+STR(liBoundary)+"_boundary"
.MultipartBoundary=STR(liBoundary)+"_boundary"

*This is the first attachment!!!!
.Action=MailActionCreatePart
.Action=MailActionDescend
.ContentType="image"
.ContentSubtype="jpeg"
.ContentSubtypeParameters='name="ms.jp"'
.ContentTransferEncoding="base64"
.ContentDisposition='inline; filename="ms.jpg"'
.Flags=MailSrcIsFile + MailDstIsBody
.SrcFilename="c:\email\ms.jpg"
.Action=MailActionEncode
.Action=MailActionAscend
DOEVENTS()

*This is the body (text) of the message!!!
.Action=MailActionCreatePart
.Action=MailActionDescend
.ContentType="text"
.ContentSubtype="plain"
.ContentSubTypeParameters="charset=us-ascii"
.ContentTransferEncoding="7bit"
.Body(0)="I will be very happy if this works!!!!!"
.Action=MailActionAscend
DOEVENTS()

*Basic Host configuration
.Blocking = 1
.Host="mail.total.net"
.LogonName="logonname"
.LogonPassword="logonpassword"
.ConnectType=MailConnectTypeSMTP


*Finally, Send the message, with the attachments!!!!
.Action=MailActionConnect
DOEVENTS()
.Flags=MailDstIsHost
.Action=MailActionWriteMessage
DOEVENTS()

.Action=MailActionDisconnect
DOEVENTS()
ENDWITH

ThisForm.Release()
------------------ENDCODE------------------------------------------------
Thank you,
John Vlahos

VI SOFTWARE SOLUTIONS DESIGN