Sample code for 30+ languages & platforms
SQL Server

Get the Entire MIME Header Section

See more MIME Examples

Demonstrates the Chilkat Mime.GetEntireHead method, which returns the complete serialized header section of the current entity. It takes no arguments; the body and any multipart child content are not included.

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 gives you just the headers of the current entity as text — the block above the blank line that separates headers from body. It is convenient for logging or displaying a message's metadata, or for examining the headers without the potentially large body. Its complement is GetEntireBody.

Chilkat SQL Server Downloads

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 complete serialized header section of the current entity.  The body and any
    --  multipart child content are not included.
    DECLARE @headers nvarchar(4000)
    EXEC sp_OAMethod @mime, 'GetEntireHead', @headers 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 @headers

    EXEC @hr = sp_OADestroy @mime


END
GO