' $System.Access Login
' Set $MailBox = $WebMail
' Set $m = $MailBox.Mails.$MTS.$MID
' Set $p = $m.Parts.$PID
' If $Type
'  $System.ContentType $Type/$SubType
' Else
'  $System.ContentType $p.MIMEType
' EndIf
' $p.Contents