(SQL Server) Twilio Send MMS (using Chilkat HTTP)

Send an outgoing MMS message. The only difference with MMS (as compared with SMS) is that a MediaUrl parameter is added to the POST. This means your image must be accessible on the web -- the Twilio server must be able to download the image from the URL you provide to include it in the MMS mesage to be sent.

Also, see Twilio MMS for more information about MMS.

For more information, see https://support.twilio.com/hc/en-us/articles/223179808-Sending-and-receiving-MMS-messages

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.

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

    DECLARE @success int

    -- Implements the following CURL command:

    -- (See information about using test credentials and phone numbers:  https://www.twilio.com/docs/iam/test-credentials)

    -- curl -X POST https://api.twilio.com/2010-04-01/Accounts/TWILIO_ACCOUNT_SID/Messages.json \
    -- --data-urlencode "From=+15005550006" \
    -- --data-urlencode "Body=body" \
    -- --data-urlencode "To=+15005551212" \
    -- -u TWILIO_ACCOUNT_SID:TWILIO_AUTH_TOKEN

    -- Use the following online tool to generate HTTP code from a CURL command
    -- Convert a cURL Command to HTTP Source Code

    EXEC sp_OASetProperty @http, 'Login', 'TWILIO_ACCOUNT_SID'
    EXEC sp_OASetProperty @http, 'Password', 'TWILIO_AUTH_TOKEN'

    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', '/2010-04-01/Accounts/TWILIO_ACCOUNT_SID/Messages.json'
    EXEC sp_OASetProperty @req, 'ContentType', 'application/x-www-form-urlencoded'
    EXEC sp_OAMethod @req, 'AddParam', NULL, 'From', '+15005550006'
    EXEC sp_OAMethod @req, 'AddParam', NULL, 'Body', 'body'
    EXEC sp_OAMethod @req, 'AddParam', NULL, 'To', '+15005551212'
    EXEC sp_OAMethod @req, 'AddParam', NULL, 'MediaUrl', 'https://www.chilkatsoft.com/images/starfish.jpg'

    DECLARE @resp int
    EXEC sp_OAMethod @http, 'PostUrlEncoded', @resp OUT, 'https://api.twilio.com/2010-04-01/Accounts/TWILIO_ACCOUNT_SID/Messages.json', @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 @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

    -- A 201 status code indicates success.
    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 @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)

    -- {
    --   "sid": "SM477111c301794f14b11eca5eefd5c350",
    --   "date_created": "Tue, 18 Aug 2020 15:04:47 +0000",
    --   "date_updated": "Tue, 18 Aug 2020 15:04:47 +0000",
    --   "date_sent": null,
    --   "account_sid": "AC2e9b6bc0f51133df24926f07341d3824",
    --   "to": "+15005551212",
    --   "from": "+15005550006",
    --   "messaging_service_sid": null,
    --   "body": "body",
    --   "status": "queued",
    --   "num_segments": "1",
    --   "num_media": "0",
    --   "direction": "outbound-api",
    --   "api_version": "2010-04-01",
    --   "price": null,
    --   "price_unit": "USD",
    --   "error_code": null,
    --   "error_message": null,
    --   "uri": "/2010-04-01/Accounts/AC2e9b6bc0f51133df24926f07341d3824/Messages/SM477111c301794f14b11eca5eefd5c350.json",
    --   "subresource_uris": {
    --     "media": "/2010-04-01/Accounts/AC2e9b6bc0f51133df24926f07341d3824/Messages/SM477111c301794f14b11eca5eefd5c350/Media.json"
    --   }
    -- }

    -- 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 @date_created int
    -- Use "Chilkat_9_5_0.DtObj" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.DtObj', @date_created OUT

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

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

    DECLARE @sid nvarchar(4000)
    EXEC sp_OAMethod @jResp, 'StringOf', @sid OUT, 'sid'
    EXEC sp_OAMethod @jResp, 'DtOf', @success OUT, 'date_created', 0, @date_created
    EXEC sp_OAMethod @jResp, 'DtOf', @success OUT, 'date_updated', 0, @date_updated
    EXEC sp_OAMethod @jResp, 'DtOf', @success OUT, 'date_sent', 0, @date_sent
    DECLARE @account_sid nvarchar(4000)
    EXEC sp_OAMethod @jResp, 'StringOf', @account_sid OUT, 'account_sid'
    DECLARE @v_to nvarchar(4000)
    EXEC sp_OAMethod @jResp, 'StringOf', @v_to OUT, 'to'
    DECLARE @from nvarchar(4000)
    EXEC sp_OAMethod @jResp, 'StringOf', @from OUT, 'from'
    DECLARE @messaging_service_sid nvarchar(4000)
    EXEC sp_OAMethod @jResp, 'StringOf', @messaging_service_sid OUT, 'messaging_service_sid'
    DECLARE @body nvarchar(4000)
    EXEC sp_OAMethod @jResp, 'StringOf', @body OUT, 'body'
    DECLARE @status nvarchar(4000)
    EXEC sp_OAMethod @jResp, 'StringOf', @status OUT, 'status'
    DECLARE @num_segments nvarchar(4000)
    EXEC sp_OAMethod @jResp, 'StringOf', @num_segments OUT, 'num_segments'
    DECLARE @num_media nvarchar(4000)
    EXEC sp_OAMethod @jResp, 'StringOf', @num_media OUT, 'num_media'
    DECLARE @direction nvarchar(4000)
    EXEC sp_OAMethod @jResp, 'StringOf', @direction OUT, 'direction'
    DECLARE @api_version nvarchar(4000)
    EXEC sp_OAMethod @jResp, 'StringOf', @api_version OUT, 'api_version'
    DECLARE @price nvarchar(4000)
    EXEC sp_OAMethod @jResp, 'StringOf', @price OUT, 'price'
    DECLARE @price_unit nvarchar(4000)
    EXEC sp_OAMethod @jResp, 'StringOf', @price_unit OUT, 'price_unit'
    DECLARE @error_code nvarchar(4000)
    EXEC sp_OAMethod @jResp, 'StringOf', @error_code OUT, 'error_code'
    DECLARE @error_message nvarchar(4000)
    EXEC sp_OAMethod @jResp, 'StringOf', @error_message OUT, 'error_message'
    DECLARE @uri nvarchar(4000)
    EXEC sp_OAMethod @jResp, 'StringOf', @uri OUT, 'uri'
    DECLARE @subresource_urisMedia nvarchar(4000)
    EXEC sp_OAMethod @jResp, 'StringOf', @subresource_urisMedia OUT, 'subresource_uris.media'

    EXEC @hr = sp_OADestroy @http
    EXEC @hr = sp_OADestroy @req
    EXEC @hr = sp_OADestroy @sbResponseBody
    EXEC @hr = sp_OADestroy @jResp
    EXEC @hr = sp_OADestroy @date_created
    EXEC @hr = sp_OADestroy @date_updated
    EXEC @hr = sp_OADestroy @date_sent


END
GO