Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3/4 Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(SQL Server) Send Email with a vCardDemonstrates how to create a simple email, attach a vcard, and send it.
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 |
© 2000-2019 Chilkat Software, Inc. All Rights Reserved.