' $System.Access Login ' If $System.IsPost ' $Command.WebMail.Move ' $System.Redirect $Server?page=WebMailIndex&fid=$FID&rev=$Rev&ts=$ts ' Exit ' EndIf $Office.Name - Reading Email ' $UID = $Login.ID ' Set $MailBox = $WebMail ' Set $m = $MailBox.Mails.$MTS.$MID ' $m.Read = 1 ' $t = $m.TimeStamp
' If ! $FID or ($FID = $MailBox.ID) [Inbox]
' Elif $FID = all (All Received Emails)
' If $m.Folder.ID = $MailBox.ID [Inbox]
' Else $m.Folder.Name
' EndIf ' Else $MailBox.Folders.$FID.Name
' EndIf $m.Subject
[Reply] [Reply to All] [Forward] [Delete] to

' If $m.Cc ' EndIf
Subject:    $m.Subject
Time:    $t.hour:$t.Minute00 $t.AMPM, $t.Day00/$t.Month00/$t.Year ($t.wday)
From:    $m.From
To:    $m.To
Cc:    $m.Cc

' If $m.Type = multipart ' $i = 0 ' For Each $p in $m.Parts ' If ($p.Type = text/plain) and ($i = 0) ' $p.Contents inline ' Elif ($p.Type = text/html) and ($i = 0) HTML Mail ' Elif ($p.Type = image/gif) or ($p.Type = image/jpeg) ' Elif ! $p.Name (No Subject) ($p.MIMEType) ' Elif ($p.SubType = richtext) or ($p.SubType = octet-stream) ' $MIME.FileName = $p.Name ' If $MIME.Type and ($MIME.Type != text) $p.Name ($MIME.Type/$MIME.SubType) ' Else $p.Name ($p.MIMEType) ' EndIf ' Else $p.Name ($p.MIMEType) ' EndIf ' Inc $i
' Next ' Elif $m.Type = text/html HTML Mail ' Elif $m.Type = multipart/alternative HTML Mail

' $i = 0 ' Set $p = $m.Parts.$i ' $p.Contents inline ' Elif $m.Type = text/plain ' $m.Contents inline ' Elif ($m.Type = image/gif) or ($m.Type = image/jpeg) ' Else Body

' EndIf

[Email List] [Top Page] [Help]