Do you have a property to switch between HTML text or normal text? If your code is set to send HTML text, your email reader probably won't show the normal text, it only show the HTML which is blank.

>Here is the send code.
>
>This is driving me batty.
>
>The .textbody property clearly has been populated, but it doesn't appear in the email
>
>The subject and attachments appear, but not the body.
>
>
>

>
>
>WITH This
>  .ClearErrors()
>  .oCfg = CREATEOBJECT("CDO.Configuration")
>  .oMsg = CREATEOBJECT("CDO.Message")
>  .oMsg.Configuration = This.oCfg
>ENDWITH
>
>&& Fill message attributes
>LOCAL lnind, laList[1], loHeader, laDummy[1]
>
>IF This.SetConfiguration() > 0
>  This.AddError("Configuration Failure.")
>ENDIF
>
>IF This.GetErrorCount() = 0
>  IF EMPTY(This.cFrom)
>    This.AddError("ERROR : From is Empty.")
>  ENDIF
>  IF EMPTY(This.cSubject)
>    This.AddError("ERROR : Subject is Empty.")
>  ENDIF
>
>  IF EMPTY(This.cTo) AND EMPTY(This.cCC) AND EMPTY(cBCC)
>    This.AddError("ERROR : To,CC and BCC all are Empty.")
>  ENDIF
>ENDIF
>
>IF This.GetErrorCount() = 0
>
>  This.SetHeader()
>
>  WITH This.oMsg
>
>    .From     = This.cFrom
>    .ReplyTo  = This.cReplyTo
>
>    .To       = This.cTo
>    .CC       = This.cCC
>    .BCC      = This.cBCC
>    .Subject  = This.cSubject
>
>    *-- Clear attachements
>    .Attachments.DeleteAll()
>
>    *-- Clear Text Body
>    .TextBody = ""
>
>    *-- Clear HTML Body
>    .HTMLBody = []
>
>    && Create HTML body from external HTML (file, URL)
>    IF NOT EMPTY(This.cHtmlBodyUrl)
>      .CreateMHTMLBody(This.cHtmlBodyUrl)
>    ENDIF
>
>    && Send HTML body. Creates TextBody as well
>    IF NOT EMPTY(This.cHtmlBody)
>      .HtmlBody = This.cHtmlBody
>    ENDIF
>
>    && Send Text body. Could be different from HtmlBody, if any
>    IF NOT EMPTY(This.cTextBody)
>      .TextBody = This.cTextBody
>    ENDIF
>   
>    .TextBody = "I plugged this"
>    
>    WAIT WINDOW .TextBody
>    && Process attachments
>    IF NOT EMPTY(This.cAttachment)
>      && Accepts comma, semicolon
>      FOR lnind=1 TO ALINES(laList, This.cAttachment, [,], [;])
>        lcAttachment = ALLTRIM(laList[lnind])
>        && Ignore empty values
>        IF EMPTY(laList[lnind])
>          LOOP
>        ENDIF
>
>        && Make sure that attachment exists
>        IF ADIR(laDummy, lcAttachment) = 0
>          This.AddError("ERROR: Attacment not Found - " + lcAttachment)
>        ELSE
>          && The full path is required.
>          IF 	UPPER(lcAttachment) <> UPPER(FULLPATH(lcAttachment))
>            lcAttachment = FULLPATH(lcAttachment)
>          ENDIF
>          .AddAttachment(lcAttachment)
>        ENDIF
>      ENDFOR
>    ENDIF
>
>  ENDWITH
>ENDIF
>IF This.GetErrorCount() = 0
>
>  TRY
>    This.oMsg.Send()
>  CATCH TO oErr
>    This.AddOneError("SEND ERROR: ", oErr.ErrorNo, oErr.procedure, oErr.LineNo)
>  ENDTRY
>ENDIF
>RETURN This.GetErrorCount()
>
>