SQL Server
SQL Server
Outlook Send Email using MIME Format
See more Outlook Examples
This example sends an email using MIME format via the Microsoft Graph Outlook REST API.Chilkat SQL Server Downloads
-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
DECLARE @hr int
DECLARE @iTmp0 int
-- Important: Do not use nvarchar(max). See the warning about using nvarchar(max).
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.
DECLARE @http int
EXEC @hr = sp_OACreate 'Chilkat.Http', @http OUT
IF @hr <> 0
BEGIN
PRINT 'Failed to create ActiveX component'
RETURN
END
-- Use your previously obtained access token here:
-- See the following examples for getting an access token:
-- Get Microsoft Graph OAuth2 Access Token (Azure AD v2.0 Endpoint).
-- Get Microsoft Graph OAuth2 Access Token (Azure AD Endpoint).
-- Refresh Access Token (Azure AD v2.0 Endpoint).
-- Refresh Access Token (Azure AD Endpoint).
DECLARE @jsonToken int
EXEC @hr = sp_OACreate 'Chilkat.JsonObject', @jsonToken OUT
EXEC sp_OAMethod @jsonToken, 'LoadFile', @success OUT, 'qa_data/tokens/microsoftGraph.json'
IF @success = 0
BEGIN
EXEC sp_OAGetProperty @jsonToken, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @http
EXEC @hr = sp_OADestroy @jsonToken
RETURN
END
EXEC sp_OAMethod @jsonToken, 'StringOf', @sTmp0 OUT, 'access_token'
EXEC sp_OASetProperty @http, 'AuthToken', @sTmp0
-- To send email, we'll POST to the following endpoint:
--
-- POST /users/{id | userPrincipalName}/sendMail
--
-- (The special keyword "me" may be used in place of a principal name.)
--
-- The body of the POST request will contain the MIME source of the email in base64 format.
-- Create a new email object
DECLARE @email int
EXEC @hr = sp_OACreate 'Chilkat.Email', @email OUT
EXEC sp_OASetProperty @email, 'Subject', 'Test Outlook API to Send HTML Email with Attachments'
EXEC sp_OASetProperty @email, 'From', 'Mary <mary@somewhere.com>'
EXEC sp_OAMethod @email, 'AddTo', @success OUT, 'Joe', 'joe@example.com'
-- Add a plain-text alternative body, which will likely never be seen.
-- (It is shown if the receiving email client is incapable of displaying HTML email.)
EXEC sp_OAMethod @email, 'AddPlainTextAlternativeBody', @success OUT, 'This is a plain-text alternative body...'
-- Our HTML will include an image, so add the related image here.
DECLARE @contentIdStarfish nvarchar(4000)
EXEC sp_OAMethod @email, 'AddRelatedFile', @contentIdStarfish OUT, 'qa_data/jpg/starfish.jpg'
EXEC sp_OAGetProperty @email, 'LastMethodSuccess', @iTmp0 OUT
IF @iTmp0 = 0
BEGIN
EXEC sp_OAGetProperty @email, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @http
EXEC @hr = sp_OADestroy @jsonToken
EXEC @hr = sp_OADestroy @email
RETURN
END
-- The src attribute for the image tag is set to the contentIdStarfish:
DECLARE @sbHtml int
EXEC @hr = sp_OACreate 'Chilkat.StringBuilder', @sbHtml OUT
EXEC sp_OAMethod @sbHtml, 'Append', @success OUT, '<html><body><p>This is an HTML email with an embedded image.</p>'
EXEC sp_OAMethod @sbHtml, 'Append', @success OUT, '<p><img src="cid:CONTENT_ID_STARFISH" /></p></body></html>'
DECLARE @numReplacements int
EXEC sp_OAMethod @sbHtml, 'Replace', @numReplacements OUT, 'CONTENT_ID_STARFISH', @contentIdStarfish
EXEC sp_OAMethod @sbHtml, 'GetAsString', @sTmp0 OUT
EXEC sp_OAMethod @email, 'AddHtmlAlternativeBody', @success OUT, @sTmp0
-- Finally, add some attachments to the email.
-- Add a file attachment.
EXEC sp_OAMethod @email, 'AddFileAttachment2', @success OUT, 'qa_data/pdf/fishing.pdf', 'application/pdf'
IF @success = 0
BEGIN
EXEC sp_OAGetProperty @email, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @http
EXEC @hr = sp_OADestroy @jsonToken
EXEC @hr = sp_OADestroy @email
EXEC @hr = sp_OADestroy @sbHtml
RETURN
END
-- Add an attachment where the content is contained in a string.
DECLARE @content nvarchar(4000)
SELECT @content = 'This is the content of the 2nd attached file.'
EXEC sp_OAMethod @email, 'AddStringAttachment', @success OUT, 'someText.txt', @content
-- Get the email as multi-line base64..
DECLARE @bdMime int
EXEC @hr = sp_OACreate 'Chilkat.BinData', @bdMime OUT
EXEC sp_OAMethod @email, 'GetMimeBd', @success OUT, @bdMime
-- Now get it as multi-line base64
DECLARE @sbBase64 int
EXEC @hr = sp_OACreate 'Chilkat.StringBuilder', @sbBase64 OUT
EXEC sp_OAMethod @bdMime, 'GetEncodedSb', @success OUT, 'base64_mime', @sbBase64
-- Send the HTTP POST (i.e. send the email)
DECLARE @resp int
EXEC @hr = sp_OACreate 'Chilkat.HttpResponse', @resp OUT
EXEC sp_OAMethod @http, 'HttpSb', @success OUT, 'POST', 'https://graph.microsoft.com/v1.0/me/sendMail', @sbBase64, 'utf-8', 'text/plain', @resp
IF @success = 0
BEGIN
EXEC sp_OAGetProperty @http, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @http
EXEC @hr = sp_OADestroy @jsonToken
EXEC @hr = sp_OADestroy @email
EXEC @hr = sp_OADestroy @sbHtml
EXEC @hr = sp_OADestroy @bdMime
EXEC @hr = sp_OADestroy @sbBase64
EXEC @hr = sp_OADestroy @resp
RETURN
END
-- The send succeeded if the response status code = 202.
-- In the success case, there is no response body. (We just get the response code to know that it succeeded.)
EXEC sp_OAGetProperty @resp, 'StatusCode', @iTmp0 OUT
IF @iTmp0 <> 202
BEGIN
DECLARE @json int
EXEC @hr = sp_OACreate 'Chilkat.JsonObject', @json OUT
EXEC sp_OAGetProperty @resp, 'BodyStr', @sTmp0 OUT
EXEC sp_OAMethod @json, 'Load', @success OUT, @sTmp0
EXEC sp_OASetProperty @json, 'EmitCompact', 0
EXEC sp_OAMethod @json, 'Emit', @sTmp0 OUT
PRINT @sTmp0
EXEC sp_OAGetProperty @resp, 'StatusCode', @iTmp0 OUT
PRINT 'Failed, response status code = ' + @iTmp0
END
ELSE
BEGIN
PRINT 'Outlook Mail Sent.'
END
EXEC @hr = sp_OADestroy @http
EXEC @hr = sp_OADestroy @jsonToken
EXEC @hr = sp_OADestroy @email
EXEC @hr = sp_OADestroy @sbHtml
EXEC @hr = sp_OADestroy @bdMime
EXEC @hr = sp_OADestroy @sbBase64
EXEC @hr = sp_OADestroy @resp
EXEC @hr = sp_OADestroy @json
END
GO