' $System.Access Login $Office.Name - WebMail ' Init $Rev = 1 ' $UID = $Login.ID ' Set $MailBox = $WebMail ' If $Text Search Results ' Else Search ' EndIf
Bullet Keyword    Subject Body From To Cc
Bullet Mail Box  
Bullet Search Target   
' If $Text ' If ! $FID ' Set $f = $MailBox.Inbox ' Elif $FID = all ' Set $f = $MailBox.Mails ' Elif $FID = sent ' Set $f = $MailBox.Sent ' Else ' Set $f = $MailBox.Folders.$FID.Mails ' EndIf ' $f.Reverse = $Rev ' Set $r = $f.RowSet ' $r.SearchText = $Text ' $r.SearchNum = $Num ' If $Subject ' $r.SearchItems.Add Subject ' EndIf ' If $Data ' $r.SearchItems.Add Data ' EndIf ' If $From ' $r.SearchItems.Add From ' EndIf ' If $To ' $r.SearchItems.Add To ' EndIf ' If $Cc ' $r.SearchItems.Add Cc ' EndIf ' If $FID = sent ' Else ' EndIf ' $Count = 0 ' For Each $m in $r ' $t = $m.TimeStamp ' If $Color = #ffffff ' $Color = #ccccff ' Else ' $Color = #ffffff ' EndIf ' If $FID = sent ' Else ' EndIf ' Inc $Count ' Next
SubjectToDate
SubjectFromDate
$m.Subject$m.To$t.hour:$t.Minute00 $t.AMPM, $t.Day00/$t.Month00/$t.Year ($t.wday)
$m.Subject$m.FromName$t.hour:$t.Minute00 $t.AMPM, $t.Day00/$t.Month00/$t.Year ($t.wday)
' If ! $Count Can not find any Emails. ' EndIf ' EndIf

[Email List] [Top Page] [Help]