Wraps the content of the body.
Syntax:
<lRetVal> = object.WrapText
Returns:
Returns 1 if the operation is successful; otherwise the operation returns zero.
Remarks:
The body is wrapped by inserting a carriage-return line-feed pair (CRLF) into a continuous series of characters unbroken by CRLF when the wrap length is exceeded. The default wrap length is 76.
WARNING: This method modifies the text and cannot be undone.
Example:
Dim oEdiDoc As Fredi.ediDocument
Dim oMailDocument As Fredi.mailDocument
Dim oSubMsg As Fredi.mailMessage
Dim oBody As Fredi.mailBody
' Create instance of Framework EDI.
Set oEdiDoc = New Fredi.ediDocument
' Get internet mail document object
Set oMailDocument = oEdiDoc.GetMailDocument
' Load EDI document normally.
oMailDocument.Load App.Path & "\SampleMail.TXT"
' Get subject message
Set oSubMsg = oMailDocument.GetMessage
' Get subject message body
Set oBody = oSubMsg.GetBody
' Wrap the contents
oBody.WrapText
oMailDocument.Save App.Path & "\Output.TXT"
MsgBox "Done"
Samples