(Classic ASP) Get Contents of a T-Mobile Text Message (as Email)

How to get the contents of an email that originated as a T-Mobile SMS text.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' First, for the purpose of understanding the structure of the MIME,
' let's load the MIME into a Chilkat MIME object and examine the MIME structure.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Mime")
set mime = Server.CreateObject("Chilkat.Mime")

success = mime.LoadMimeFile("qa_data/eml/TMobileTextMsg.eml")
' Show the MIME structure in text format (as opposed to XML format).
Response.Write "<pre>" & Server.HTMLEncode( mime.GetStructure("text")) & "</pre>"

' The MIME structure for our test email looks like this:
' multipart/related
'     text/html
'     text/plain
'     image/gif
'     image/gif
'     image/gif

' The HTML part is not considered a "related item" because the related items
' are defined as being related to the HTML part.  Therefore, we should always
' expect to find a text/html part under a multipart/related.  The HTML parts
' is simply the HTML body, and the other parts are the related items.
' If the text/plain part was to be considered as an alternative body,
' then a properly structured email would include a multipart/alternative structure.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Email")
set email = Server.CreateObject("Chilkat.Email")

success = email.LoadEml("qa_data/eml/TMobileTextMsg.eml")

' We should see 4 related items.
Response.Write "<pre>" & Server.HTMLEncode( "Num Related Items = " & email.NumRelatedItems) & "</pre>"
' There should be 0 attachments.  
Response.Write "<pre>" & Server.HTMLEncode( "Num Attachments = " & email.NumAttachments) & "</pre>"

' Find the indices of the text/plain related part, and the text/html related part
i = 0
numRelatedItems = email.NumRelatedItems
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbContentType = Server.CreateObject("Chilkat.StringBuilder")
Do While i < numRelatedItems
    success = sbContentType.Append(email.GetRelatedContentType(i))
    Response.Write "<pre>" & Server.HTMLEncode( i & ": " & sbContentType.GetAsString()) & "</pre>"
    If (sbContentType.ContentsEqual("text/plain",0)) Then
        Response.Write "<pre>" & Server.HTMLEncode( "---- text/plain part:") & "</pre>"
        Response.Write "<pre>" & Server.HTMLEncode( email.GetRelatedString(i,"utf-8")) & "</pre>"
    End If

    sbContentType.Clear 
    i = i + 1
Loop

%>
</body>
</html>