B4X

Get the Content-Type of a Related Item

Demonstrates the Chilkat Email.GetRelatedContentType method, which returns the Content-Type of the Nth related content item in an email. The index is zero-based. This example adds a related style sheet and reads its content type.

Background: Each related item declares a Content-Type — image/png for an inline image, text/css for a style sheet, and so on — that tells the rendering client how to use it. Reading the content type lets a program enumerate a message's embedded resources and act on them by kind, for example collecting every inline image while ignoring the style sheets.

Chilkat B4X Downloads

Download Chilkat for B4X

B4X

'  Demonstrates the GetRelatedContentType method, which returns the Content-Type of the Nth
'  related content item in an email.  The index is zero-based.

Dim email As ChilkatEmail
email.Initialize
email.Subject = "GetRelatedContentType example"

'  The HTML references the style sheet by name (Content-Location).
email.SetHtmlBody("<html><head><link rel=" & Chr(34) & "stylesheet" & Chr(34) & " href=" & Chr(34) & "styles.css" & Chr(34) & "/></head><body>Styled.</body></html>")

'  Add the related style sheet (index 0).
email.AddRelatedString2("styles.css", "body { color: navy; }", "utf-8")

'  Read the Content-Type of the first related item (index 0).
Dim ct As String = email.GetRelatedContentType(0)
Log("Related item 0 Content-Type: " & ct)