Hi, <BR>Sorry for placing this in this forum but I have posted it in the regular forum several times with no success..I have honestly thrawled MANY websites and have come up with nothing so I&#039;m wondering if I can get the answer in this forum..<BR><BR>I am trying to format the body of the email so that it renders the html tags v&#039;s displaying it as plain text..PLEASE help..<BR><BR>Thank you for any help.<BR><BR>********** The code I am using is as follows*************<BR> <BR><BR>Set objSession = CreateObject("MAPI.Session")<BR> objSession.Logon "", "", False, True, 0, True, Application("Mailbox")<BR> Set objFolder = objSession.Outbox <BR> Set objMessages = objFolder.Messages<BR> Set objMsg = objMessages.Add <BR> objMsg.Subject = Subject<BR> objMsg.Text = "&#060;html&#062;&#060;head&#062;&#060;/head&#062;&#060;body&#062;This is a test <BR> This is a test&#060;/body&#062;&#060;/html&#062;"<BR> objMsg.Importance = 1 <BR> objMsg.ReadReceipt = ReturnFlag<BR><BR> Set objRecipients = objMsg.Recipients<BR> <BR> ReceiverArray = Split(Receiver,";")<BR> For i =0 to UBound(ReceiverArray)<BR> If ReceiverArray(i) &#060;&#062; "" Then<BR> objRecipients.Add , "SMTP:"& ReceiverArray(i), 1<BR> objRecipients.Resolve<BR> End If<BR> Next<BR><BR> If CC &#060;&#062; "" Then<BR> CCArray = Split(CC,";")<BR> For i =0 to UBound(CCArray)<BR> If CCArray(i) &#060;&#062; "" Then<BR> objRecipients.Add , "SMTP:"& CCArray(i), 2<BR> objRecipients.Resolve<BR> End If<BR> Next<BR> End If<BR> <BR> objMsg.Send<BR> <BR> If err.number &#060;&#062; 0 then<BR> ErrCode = -1<BR> Else<BR> ErrCode = 0<BR> End If<BR><BR> objSession.Logoff<BR> Set objSession = Nothing<BR> Set objMessages = Nothing<BR> Set objFolder = Nothing<BR> Set objMsg = Nothing<BR> Set objRecipients = Nothing