SQL Server

Remove a Single Related Item from an Email

Demonstrates the Chilkat Email.DropRelatedItem method, which removes the related item at a given zero-based index. A related item is typically an embedded image or style sheet referenced from the HTML body (via a cid: link or Content-Location). This example adds a related style sheet, then removes it by index, printing the count before and after.

Background: Related items live in the message's multipart/related enclosure and are indexed from 0 to NumRelatedItems - 1. Removing one by index is useful when editing a received message — for example stripping a tracking pixel or an unwanted embedded image — while leaving the HTML body and any other related resources in place. To remove them all at once, use DropRelatedItems.

Chilkat SQL Server Downloads

Download Chilkat for SQL Server

SQL Server

--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @iTmp0 int
    --  Demonstrates the DropRelatedItem method, which removes the related item at a given
    --  zero-based index.  A related item is typically an embedded image or style sheet
    --  referenced from the HTML body.

    DECLARE @email int
    EXEC @hr = sp_OACreate 'Chilkat.Email', @email OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    --  Set an HTML body that references a related style sheet by name (Content-Location).
    EXEC sp_OAMethod @email, 'SetHtmlBody', NULL, '<html><head><link rel="stylesheet" href="styles.css"/></head><body>Styled.</body></html>'

    --  Add the related item (becomes index 0).
    EXEC sp_OAMethod @email, 'AddRelatedString2', NULL, 'styles.css', 'body { color: navy; }', 'utf-8'

    EXEC sp_OAGetProperty @email, 'NumRelatedItems', @iTmp0 OUT
    PRINT 'NumRelatedItems before = ' + @iTmp0

    --  Remove the related item at index 0.
    EXEC sp_OAMethod @email, 'DropRelatedItem', NULL, 0


    EXEC sp_OAGetProperty @email, 'NumRelatedItems', @iTmp0 OUT
    PRINT 'NumRelatedItems after = ' + @iTmp0

    EXEC @hr = sp_OADestroy @email


END
GO