(SQL Server) Send Email with a vCard

Demonstrates how to create a simple email, attach a vcard, and send it.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @sTmp0 nvarchar(4000)
    -- This example requires the Chilkat API to have been previously unlocked.
    -- See Global Unlock Sample for sample code.

    -- The mailman object is used for sending and receiving email.
    DECLARE @mailman int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.MailMan', @mailman OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    -- Set the SMTP server.
    EXEC sp_OASetProperty @mailman, 'SmtpHost', 'smtp.chilkatsoft.com'

    -- Set the SMTP login/password (if required)
    EXEC sp_OASetProperty @mailman, 'SmtpUsername', 'myUsername'
    EXEC sp_OASetProperty @mailman, 'SmtpPassword', 'myPassword'

    -- Create a new email object
    DECLARE @email int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.Email', @email OUT

    EXEC sp_OASetProperty @email, 'Subject', 'This is a vcard test'
    EXEC sp_OASetProperty @email, 'Body', 'This is a vcard test'
    EXEC sp_OASetProperty @email, 'From', 'Chilkat Admin <admin@chilkatsoft.com>'
    DECLARE @success int
    EXEC sp_OAMethod @email, 'AddTo', @success OUT, 'Chilkat Support', 'support@chilkatsoft.com'
    -- To add more recipients, call AddTo, AddCC, or AddBcc once per recipient.

    -- A vCard is an email attachment having a Content-Type = "text/x-vcard".
    -- Call AddStringAttachment to add a vcard from an in-memory string.
    -- The filename should have a ".vcf" file extension.  Chilkat will automatically
    -- recognize it and set the content-type to "text/x-vcard";

    -- Your application is responsible for providing the vcard formatted string.  For example:
    -- See http://en.wikipedia.org/wiki/VCard
    -- 
    -- begin:vcard
    -- fn:Matt Smith
    -- n:Smith;Matt
    -- org:Chilkat Software, Inc.
    -- tel;work:630-784-9670
    -- url:http://www.chilkatsoft.com
    -- version:2.1
    -- end:vcard

    DECLARE @vcard nvarchar(4000)
    SELECT @vcard = 'begin:vcard ...'
    EXEC sp_OAMethod @email, 'AddStringAttachment', @success OUT, 'admin.vcf', @vcard
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @email, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @mailman
        EXEC @hr = sp_OADestroy @email
        RETURN
      END

    -- Call SendEmail to connect to the SMTP server and send.
    -- The connection (i.e. session) to the SMTP server remains
    -- open so that subsequent SendEmail calls may use the
    -- same connection.  
    EXEC sp_OAMethod @mailman, 'SendEmail', @success OUT, @email
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @mailman, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @mailman
        EXEC @hr = sp_OADestroy @email
        RETURN
      END

    -- Some SMTP servers do not actually send the email until 
    -- the connection is closed.  In these cases, it is necessary to
    -- call CloseSmtpConnection for the mail to be  sent.  
    -- Most SMTP servers send the email immediately, and it is 
    -- not required to close the connection.  We'll close it here
    -- for the example:
    EXEC sp_OAMethod @mailman, 'CloseSmtpConnection', @success OUT
    IF @success <> 1
      BEGIN

        PRINT 'Connection to SMTP server not closed cleanly.'
      END


    PRINT 'Mail with vCard Sent!'

    EXEC @hr = sp_OADestroy @mailman
    EXEC @hr = sp_OADestroy @email


END
GO