' $System.Access Login ' If $System.IsPost ' If $Receive ' $System.Redirect $Server?page=WebMailIndex&receive=1 ' $Command.WebMail.Receive ' Elif $Delete ' $Command.WebMail.Delete ' $System.Redirect $Server?page=WebMailIndex&fid=$FID ' Elif $SentDelete ' $Command.WebMail.SentDelete ' $System.Redirect $Server?page=WebMailIndex&fid=$FID ' Elif $Move ' $Command.WebMail.Move ' $System.Redirect $Server?page=WebMailIndex&fid=$FID ' Else ' $System.Redirect $Server?page=WebMailIndex&fid=$FID ' EndIf ' Exit ' EndIf $Office.Name - WebMail ' If ! $Office.Server.SMTP or ! $Office.Server.POP3 The Mail Server has not been set up yet.
To use WebMail, you need to set up the Mail Server first. ' Elif ! $Login.WebMail.Name The Mail Server has already been set up. $Login.Name's POP3 account has not been set up yet.
To use WebMail, you need to set up POP3 account in Personal Property Settings. ' Else ' $UID = $Login.ID ' $Rows = $Login.WebMail.Lines ' Set $MailBox = $WebMail ' Init $Rev = 1 ' If $RW = webmail ' $Command.WebMail.Receive ' $Receive = 1 ' EndIf
' If $Receive and $MailBox.NewMails ' If $MailBox.ErrMails.Count Warning ! Some Emails could not be received due to the limit of the file size to receive. [Details]
' EndIf ' If $MailBox.NewMails != $MailBox.ErrMails.Count You still have some Emails left on the server. To receive them, press the Check New Emails button again. ' EndIf ' EndIf

[New Email] [Search] [Mail Box Settings] [Personal Property Settings]
' If ! $FID ' Set $Mails = $MailBox.Inbox ' Elif $FID = all ' Set $Mails = $MailBox.Mails ' Elif $FID = sent ' Set $Mails = $MailBox.Sent ' Else ' Set $Folder = $MailBox.Folders.$FID ' Set $Mails = $Folder.Mails ' EndIf ' If $FID = sent ' Else ' EndIf ' If ! $Rev ' Else ' EndIf ' $Mails.Reverse = $Rev ' Set $r = $Mails.RowSet ' If ! $Rows ' $Rows = 20 ' EndIf ' $r.Rows = $Rows ' If $ts ' $r.Head = $ts ' EndIf ' For Each $Mail in $r ' $t = $Mail.TimeStamp ' If $Color = #ffffff ' $Color = #ccccff ' Else ' $Color = #ffffff ' EndIf ' $Subject = $Mail.Subject ' If ! $Subject ' $Subject = "(No Subject)" ' EndIf ' If $FID = sent ' ElIf $Mail.Read ' Else ' EndIf ' Next
SubjectToFromTime Time
$Subject $Mail.To$t.hour:$t.Minute00 $t.AMPM, $t.Day00/$t.Month00/$t.Year ($t.wday)$Subject $Mail.FromName$t.hour:$t.Minute00 $t.AMPM, $t.Day00/$t.Month00/$t.Year ($t.wday)$Subject $Mail.FromName$t.hour:$t.Minute00 $t.AMPM, $t.Day00/$t.Month00/$t.Year ($t.wday)
' If $r.Prev Latest Email(s) | << Prev. $Rows Email(s) | ' Else Latest Email(s) | << Prev. $Rows Email(s) | ' EndIf ' If $r.Next Next $Rows Email(s) >> ' Else Next $Rows Email(s) >> ' EndIf ' If $FID = sent ' Else ' EndIf ' If ($FID != all) and ($FID != sent) and $MailBox.Folders.Count ' EndIf
the checked Email(s). the checked Email(s). the checked Email(s) to .

' EndIf
[Top Page] [Top Page] [Settings] [Help]