Visual Basic 6.0
Visual Basic 6.0
Convert 8-bit MIME Parts to Base64
See more MIME Examples
Demonstrates the Chilkat Mime.Convert8Bit method, which recursively converts every part whose Content-Transfer-Encoding is 8bit or binary to base64. It takes no arguments and is a void method.
Note: The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.
Background: The original SMTP standard only guaranteed 7-bit transport, and some legacy servers still reject or mangle raw 8-bit and binary content. Converting those parts to base64 — a 7-bit-safe encoding — makes the whole message safe to relay through such systems without loss. It walks the entire tree, so a multipart message with several offending parts is fixed in one call.
Chilkat Visual Basic 6.0 Downloads
Dim success As Long
success = 0
Dim mime As New ChilkatMime
success = mime.LoadMimeFile("qa_data/message.eml")
If (success = 0) Then
Debug.Print mime.LastErrorText
Exit Sub
End If
' Recursively convert every part whose Content-Transfer-Encoding is 8bit or binary to base64.
' This makes the MIME safe to transmit over channels that only support 7-bit text (such as some
' legacy SMTP servers).
mime.Convert8Bit
Debug.Print "8bit/binary parts converted to base64."
Dim mimeText As String
mimeText = mime.GetMime()
If (mime.LastMethodSuccess = 0) Then
Debug.Print mime.LastErrorText
Exit Sub
End If
Debug.Print mimeText