AutoIt

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

See more Email Object Examples

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

AutoIt

Local $bSuccess = False

;  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.
$oMime = ObjCreate("Chilkat.Mime")

$bSuccess = $oMime.LoadMimeFile("qa_data/eml/TMobileTextMsg.eml")
;  Show the MIME structure in text format (as opposed to XML format).
ConsoleWrite($oMime.GetStructure("text") & @CRLF)

;  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.

$oEmail = ObjCreate("Chilkat.Email")

$bSuccess = $oEmail.LoadEml("qa_data/eml/TMobileTextMsg.eml")

;  We should see 4 related items.
ConsoleWrite("Num Related Items = " & $oEmail.NumRelatedItems & @CRLF)
;  There should be 0 attachments.  
ConsoleWrite("Num Attachments = " & $oEmail.NumAttachments & @CRLF)

;  Find the indices of the text/plain related part, and the text/html related part
Local $i = 0
Local $iNumRelatedItems = $oEmail.NumRelatedItems
$oSbContentType = ObjCreate("Chilkat.StringBuilder")
While $i < $iNumRelatedItems
    $oSbContentType.Append($oEmail.GetRelatedContentType($i))
    ConsoleWrite($i & ": " & $oSbContentType.GetAsString() & @CRLF)
    If ($oSbContentType.ContentsEqual("text/plain",False)) Then
        ConsoleWrite("---- text/plain part:" & @CRLF)
        ConsoleWrite($oEmail.GetRelatedString($i,"utf-8") & @CRLF)
    EndIf

    $oSbContentType.Clear 
    $i = $i + 1
Wend