(SQL Server) Mailgun Send Email using MIME

See more Mailgun Examples

Send an email using MIME. This allows for the Chilkat email object to be used to construct the email. Then it can be sent using Mailgun.

For more information, see https://documentation.mailgun.com/en/latest/api-sending.html#sending

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

-- 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)
    -- This example assumes the Chilkat API to have been previously unlocked.
    -- See Global Unlock Sample for sample code.

    -- We're going to create an email that contains an .zip attachment,
    -- and also both plain-text and HTML alternative bodies.
    -- The HTML body will include an image.

    DECLARE @email int
    -- Use "Chilkat_9_5_0.Email" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.Email', @email OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    -- Adding attachments, HTML/plain-text bodies, etc can be done
    -- in any order:

    -- Add an attachment
    DECLARE @contentType nvarchar(4000)
    EXEC sp_OAMethod @email, 'AddFileAttachment', @contentType OUT, 'qa_data/hamlet.zip'
    EXEC sp_OAGetProperty @email, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 <> 1
      BEGIN
        EXEC sp_OAGetProperty @email, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @email
        RETURN
      END

    -- Add some headers:
    EXEC sp_OASetProperty @email, 'Subject', 'This is a complex email'
    -- Please change this email address before testing.
    DECLARE @success int
    EXEC sp_OAMethod @email, 'AddTo', @success OUT, 'Joe Example', 'joe@example.com'
    EXEC sp_OASetProperty @email, 'From', 'Your Name <mailgun@YOUR_DOMAIN_NAME>'

    -- Add a plain-text body:
    EXEC sp_OAMethod @email, 'AddPlainTextAlternativeBody', @success OUT, 'This is the plain-text body'

    -- Add an image that will be embedded in the HTML body.
    EXEC sp_OAMethod @email, 'AddRelatedFile2', @success OUT, 'qa_data/jpg/starfish.jpg', 'starfish.jpg'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @email, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @email
        RETURN
      END

    -- Add an HTML body:
    DECLARE @html nvarchar(4000)

    SELECT @html = '<html><body><b>This is the HTML body</b><br><img src="starfish.jpg"></body></html>'

    EXEC sp_OAMethod @email, 'AddHtmlAlternativeBody', @success OUT, @html

    -- ------------------------------------------------------------------------
    -- Send the above email using Mailgun

    DECLARE @http int
    -- Use "Chilkat_9_5_0.Http" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.Http', @http OUT

    -- Implements the following CURL command:

    EXEC sp_OASetProperty @http, 'Login', 'api'
    EXEC sp_OASetProperty @http, 'Password', 'sending_api_key'    --  Replace with your actual sending API key.

    DECLARE @req int
    -- Use "Chilkat_9_5_0.HttpRequest" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.HttpRequest', @req OUT

    EXEC sp_OASetProperty @req, 'HttpVerb', 'POST'
    EXEC sp_OASetProperty @req, 'Path', '/v3/YOUR_DOMAIN_NAME/messages.mime'
    EXEC sp_OASetProperty @req, 'ContentType', 'multipart/form-data'

    EXEC sp_OAMethod @req, 'AddParam', NULL, 'from', 'Your Name <mailgun@YOUR_DOMAIN_NAME>'
    EXEC sp_OAMethod @req, 'AddParam', NULL, 'to', 'Joe Example <joe@example.com>'
    EXEC sp_OAMethod @email, 'GetMime', @sTmp0 OUT
    EXEC sp_OAMethod @req, 'AddStringForUpload2', @success OUT, 'message', 'message.eml', @sTmp0, 'utf-8', 'application/octet-stream'

    DECLARE @resp int
    EXEC sp_OAMethod @http, 'SynchronousRequest', @resp OUT, 'api.mailgun.net', 443, 1, @req
    EXEC sp_OAGetProperty @http, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 = 0
      BEGIN
        EXEC sp_OAGetProperty @http, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @email
        EXEC @hr = sp_OADestroy @http
        EXEC @hr = sp_OADestroy @req
        RETURN
      END

    DECLARE @sbResponseBody int
    -- Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.StringBuilder', @sbResponseBody OUT

    EXEC sp_OAMethod @resp, 'GetBodySb', @success OUT, @sbResponseBody
    DECLARE @jResp int
    -- Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.JsonObject', @jResp OUT

    EXEC sp_OAMethod @jResp, 'LoadSb', @success OUT, @sbResponseBody
    EXEC sp_OASetProperty @jResp, 'EmitCompact', 0


    PRINT 'Response Body:'
    EXEC sp_OAMethod @jResp, 'Emit', @sTmp0 OUT
    PRINT @sTmp0

    DECLARE @respStatusCode int
    EXEC sp_OAGetProperty @resp, 'StatusCode', @respStatusCode OUT

    PRINT 'Response Status Code = ' + @respStatusCode
    IF @respStatusCode >= 400
      BEGIN

        PRINT 'Response Header:'
        EXEC sp_OAGetProperty @resp, 'Header', @sTmp0 OUT
        PRINT @sTmp0

        PRINT 'Failed.'
        EXEC @hr = sp_OADestroy @resp

        EXEC @hr = sp_OADestroy @email
        EXEC @hr = sp_OADestroy @http
        EXEC @hr = sp_OADestroy @req
        EXEC @hr = sp_OADestroy @sbResponseBody
        EXEC @hr = sp_OADestroy @jResp
        RETURN
      END
    EXEC @hr = sp_OADestroy @resp

    -- Sample JSON response:
    -- (Sample code for parsing the JSON response is shown below)

    -- {
    --   "id": "<20210429234809.1.2D550E1C94D3D98F@sandbox0e542e4c577f4bbb98c8bf6b6bca727b.mailgun.org>",
    --   "message": "Queued. Thank you."
    -- }

    -- Sample code for parsing the JSON response...
    -- Use the following online tool to generate parsing code from sample JSON:
    -- Generate Parsing Code from JSON

    DECLARE @id nvarchar(4000)
    EXEC sp_OAMethod @jResp, 'StringOf', @id OUT, 'id'
    DECLARE @message nvarchar(4000)
    EXEC sp_OAMethod @jResp, 'StringOf', @message OUT, 'message'

    EXEC @hr = sp_OADestroy @email
    EXEC @hr = sp_OADestroy @http
    EXEC @hr = sp_OADestroy @req
    EXEC @hr = sp_OADestroy @sbResponseBody
    EXEC @hr = sp_OADestroy @jResp


END
GO