Create Email with Non-Standard Binary Body

Creates an email where the only body is a binary WAV file. The technique used in the example could be applied to other binary files, such as PDF, MS-WORD docs, Excel docs, etc.

Download Chilkat Email ActiveX

Download 32-bit Chilkat IMAP ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @mime int
    EXEC @hr = sp_OACreate 'Chilkat.Mime', @mime OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    DECLARE @success int

    EXEC sp_OAMethod @mime, 'UnlockComponent', @success OUT, 'Anything for 30-day trial.'
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @mime, 'LastErrorText', @sTmp0 OUT

        PRINT @sTmp0
        RETURN
      END

    EXEC sp_OAMethod @mime, 'SetBodyFromFile', @success OUT, 'VoiceMessage.wav'
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @mime, 'LastErrorText', @sTmp0 OUT

        PRINT @sTmp0
        RETURN
      END

    --  The MIME has this header:
    --  Content-Disposition: attachment;
    --  	 filename="VoiceMessage.wav"
    --  Content-Transfer-Encoding: base64
    --  Content-Type: audio/x-wav;
    --  	name="VoiceMessage.wav"

    --  We don't want the content-disposition to be an
    --  attachment -- otherwise the email object will self-correct
    --  and put it in a multipart/mixed format...
    EXEC sp_OASetProperty @mime, 'Disposition', ''
    EXEC sp_OASetProperty @mime, 'Filename', ''

    DECLARE @strMime nvarchar(4000)

    EXEC sp_OAMethod @mime, 'GetMime', @strMime OUT

    PRINT @strMime

    --  Now load it into an email object:
    DECLARE @email int
    EXEC @hr = sp_OACreate 'Chilkat.Email2', @email OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    EXEC sp_OAMethod @email, 'SetFromMimeText', @success OUT, @strMime
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @email, 'LastErrorText', @sTmp0 OUT

        PRINT @sTmp0
        RETURN
      END

    --  Add subject, TO, FROM, etc.
    EXEC sp_OASetProperty @email, 'Subject', 'This is a test'
    EXEC sp_OASetProperty @email, 'From', 'support@chilkatsoft.com'
    EXEC sp_OAMethod @email, 'AddTo', NULL, 'Matt', 'matt@chilkatsoft.com'

    --  Your email is ready to send.
    --  (but for this example, we'll simply save it to a file...)
    EXEC sp_OAMethod @email, 'SaveEml', @success OUT, 'email.eml'
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @email, 'LastErrorText', @sTmp0 OUT

        PRINT @sTmp0
        RETURN
      END

    PRINT 'OK!'

END
GO