' $System.Access Login ' If $System.IsPost ' If ! $Continue ' $Command.WebMail.FileClear ' EndIf ' If $Submit ' $System.Redirect $Server?page=$BPage ' $Command.WebMail.Send ' Else ' $Command.WebMail.Message ' If $AddressTo ' $System.Redirect $Server?page=AddressIndex&web=to ' Elif $AddressCc ' $System.Redirect $Server?page=AddressIndex&web=cc ' Elif $AddressBcc ' $System.Redirect $Server?page=AddressIndex&web=bcc ' Elif $Add ' $System.Redirect $Server?page=WebMailFileAdd&bpage=$BPage ' Elif $Remove ' $Command.WebMail.FileRemove ' $System.Redirect $Server?page=WebMailSend&continue=1&bpage=$BPage ' Else ' $System.Redirect $Server?page=WebMailSend&continue=1&bpage=$BPage ' EndIf ' EndIf ' Exit ' EndIf $Office.Name - New Email ' If ! $Office.Server.SMTP SMTP Server has not been set up yet.
To use WebMail, you need to set up SMTP Server first. ' Elif ! $Login.Mail SMTP Server has already been set up. $Login.Name's Email Address has not been set up yet.
To send an Email from WebMail, you need to set up your Email Address in Personal Property Settings first. ' Else ' Set $w = $Login.WebMail ' $UID = $Login.ID ' Set $MailBox = $WebMail ' Set $m = $MailBox.Mails.$MTS.$MID ' Set $msg = $MailBox.Message ' Init $BPage = WebMailIndex
' If $Continue ' $ContinueTo = $msg.To ' $ContinueCc = $msg.Cc ' $ContinueBcc = $msg.Bcc ' $Subject = $msg.Subject ' $Contents = $msg.Contents ' Elif $m and $Reply ' $To = $m.ReplyTo ' $Subject = $m.ReplySubject ' Elif $m and $ReplyAll ' $To = $m.ReplyTo ' $Cc = $m.ReplyCc ' $Subject = $m.ReplySubject ' Elif $m and $Forward ' $Subject = $m.ForwardSubject ' EndIf ' If $ContinueTo and $To ' $SepTo = ", " ' EndIf ' If $ContinueCc and $Cc ' $SepCc = ", " ' EndIf ' If $ContinueBcc and $Bcc ' $SepBcc = ", " ' EndIf ' If $TopPage.Menus.Address.Installed ' Else ' EndIf
From $Login.Name < $Login.Mail >
To
Cc
Bcc
To
Cc
Bcc
Subject
Body
Attachment ' $Size = $MailBox.Files.Count ' If ! $Size ' $Size = 0 ' EndIf ' If $Continue and ($Size != 0) and ($Size != 1) ' Inc $Size ' Else ' $Size = 3 ' EndIf
  

' EndIf ' If $BPage = index ' Elif $m ' Else ' EndIf
[Top Page][Back to Email][Email List][Top Page] [Help]