SQL Server

Send Email with a vCard

Demonstrates how to create a simple email, attach a vcard, and send it. 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 @sTmp0 nvarchar(4000)
    DECLARE @success int
    SELECT @success = 0

    --  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.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.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>'
    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