SQL Server

Get the Transfer-Encoded MIME Body

Demonstrates the Chilkat Mime.GetBodyEncoded method, which returns the current part's transfer-encoded body text without decoding Base64 or quoted-printable. It takes no arguments.

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: This returns the body as it appears on the wire — still Base64 or quoted-printable — which is useful for inspection, logging, or forwarding the encoded content verbatim. It is Chilkat's normalized serialization of the body, so it may differ in whitespace or line wrapping from the exact original bytes. For the readable content, use GetBodyDecoded.

Chilkat SQL Server Downloads

Download Chilkat for SQL Server

SQL Server

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @iTmp0 int
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @success int
    SELECT @success = 0

    DECLARE @mime int
    EXEC @hr = sp_OACreate 'Chilkat.Mime', @mime OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    EXEC sp_OAMethod @mime, 'LoadMimeFile', @success OUT, 'qa_data/message.eml'
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @mime, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @mime
        RETURN
      END

    --  Return the current part's transfer-encoded body text WITHOUT decoding Base64 or
    --  quoted-printable.  This is the body as it appears on the wire.
    DECLARE @encodedBody nvarchar(4000)
    EXEC sp_OAMethod @mime, 'GetBodyEncoded', @encodedBody OUT
    EXEC sp_OAGetProperty @mime, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 = 0
      BEGIN
        EXEC sp_OAGetProperty @mime, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @mime
        RETURN
      END

    PRINT @encodedBody

    EXEC @hr = sp_OADestroy @mime


END
GO