Gets the object representing the content transfer encoding header.
Syntax:
Returns
If successful, an object of FREDI. mailTransferEncoding is returned; otherwise an empty object is returned.
Remarks:
The content type header has a field name "Content-Transfer-Encoding". If this header does not currently exist in the message, it is added and the object is returned by the method.
Example
Dim oEdiDoc As Fredi.ediDocument
Dim oMailDocument As Fredi.mailDocument
Dim oTransferEncoding As Fredi.mailTransferEncoding
Dim oMessage As Fredi.mailMessage
' Create instance of Framework EDI.
Set oEdiDoc = New Fredi.ediDocument
' Get internet mail document object
Set oMailDocument = oEdiDoc.GetMailDocument
' Load the mail document containing the EDI data.
oMailDocument.Load App.Path & "\SampleMail.TXT"
' Get the top message.
Set oMessage = oMailDocument.GetMessage
' Get the content-transfer-encoding header.
Set oTransferEncoding = oMessage.GetContentTransferEncoding
' Modify header to "base64" encoding.
oTransferEncoding.MechanismName = "base64"
' Apply "base64" encoding when preparing message.
oMessage.Prepare
oMailDocument.Save App.Path & "\Output.TXT"
MsgBox "Done"
Samples