Add File Attachments to an Email

Demonstrates how to add one or more file attachments to an email.

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 @email int
    EXEC @hr = sp_OACreate 'Chilkat.Email2', @email OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    EXEC sp_OASetProperty @email, 'Subject', 'This is a test'
    EXEC sp_OASetProperty @email, 'Body', 'This is a test'
    EXEC sp_OASetProperty @email, 'From', 'support@chilkatsoft.com'
    EXEC sp_OAMethod @email, 'AddTo', NULL, 'Chilkat Admin', 'admin@chilkatsoft.com'

    DECLARE @success int

    --  To add file attachments to an email, call AddFileAttachment
    --  once for each file to be attached.  The method returns
    --  the content-type of the attachment if successful, otherwise
    --  returns cknull
    DECLARE @contentType nvarchar(4000)

    EXEC sp_OAMethod @email, 'AddFileAttachment', @contentType OUT, 'something.pdf'
    IF @contentType Is NULL 
      BEGIN
        EXEC sp_OAGetProperty @email, 'LastErrorText', @sTmp0 OUT

        PRINT @sTmp0
        RETURN
      END

    EXEC sp_OAMethod @email, 'AddFileAttachment', @contentType OUT, 'something.xml'
    IF @contentType Is NULL 
      BEGIN
        EXEC sp_OAGetProperty @email, 'LastErrorText', @sTmp0 OUT

        PRINT @sTmp0
        RETURN
      END

    EXEC sp_OAMethod @email, 'AddFileAttachment', @contentType OUT, 'something.zip'
    IF @contentType Is NULL 
      BEGIN
        EXEC sp_OAGetProperty @email, 'LastErrorText', @sTmp0 OUT

        PRINT @sTmp0
        RETURN
      END
    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 'Saved EML!'
END
GO