'Don't add this person to the Notified list if the message cannot be sent.
'Send may fail if an ambiguous name is supplied
On Error Goto SendError
maildoc.Send(False)
'Add this sender to AlreadyNotified list on profile
notifieditem.AppendToTextList(Sender(0))
profile.Save True, True
SendError:
' Maybe keep track of the people that we couldn't send to?
Exit Sub
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
'Set Object Variables
Set dtToday = New NotesDateTime("Today")
Set s = New NotesSession
Set db = s.CurrentDatabase
Set documents = db.UnprocessedDocuments
Set view = db.GetView("($Profiles)")
Set profile = view.GetDocumentByKey("OutOfOfficeProfile")
'Get the profile data and be sure that this agent should run today
DoNotRun = False
GetProfile
If DoNotRun Then Exit Sub
Set dtStart = startdate.DateTimeValue
'Get each doc, check if sender has been notified yet, if not then notify them
For n = 1 To documents.Count
Set note = documents.GetNthDocument(n)
Sender = note.From
'Make sure that we received this message (DeliveredDate) and that it was not automatically generated by someone else' agent ($AutoForward)
If note.HasItem("DeliveredDate") And (Not note.HasItem("$AutoForward")) And (Not note.SentByAgent) Then
Set deliveredDate = note.GetFirstItem("DeliveredDate")
If deliveredDate.Values(0) <> "" Then
Set dtCompare = deliveredDate.DateTimeValue
If dtStart.TimeDifference(dtCompare) <= 0 Then
CheckName
If Not DoNotSend Then
NotifySender
End If
End If
End If
End If
Call s.UpdateProcessedDoc(note)
Next
End Sub
'++LotusScript Development Environment:2:2:GetProfile:1:8
Sub GetProfile
'Get profile document and field values. If no Profile, inform the user and exit
If profile Is Nothing Then
Set maildoc = New NotesDocument(db)
maildoc.Form = "Memo"
maildoc.SendTo = "Email User"
maildoc.From = "Your Out of Office Agent"
maildoc.Subject = "Out of Office Agent failed"
maildoc.Body = "The Out of Office Agent cannot run unless you have created an Out of Office Profile. " & _
"Choose ""Mail Tools/Out of Office"" from the Action menu and fill in the appropriate information."
maildoc.PostedDate = dtToday.LSLocalTime
maildoc.DeliveredDate = dtToday.LSLocalTime
maildoc.Save True, True
maildoc.PutInFolder("($InBox)")
DoNotRun = True
Exit Sub
Else
Set notifieditem = profile.GetFirstItem("AlreadyNotified")
Set startdate = profile.GetFirstItem("dateFirstDayOut")
Set enddate = profile.GetFirstItem("dateFirstDayBack")
DaysOut = profile.DaysOut
GeneralSubject = profile.GeneralSubject
GeneralMessage = Profile.GeneralMessage
SpecialSubject = profile.SpecialSubject
SpecialMessage = profile.SpecialMessage
SpecialPeople = profile.SpecialPeople
IgnorePeople = profile.IgnorePeople
ProfileUser = profile.Sender
End If
'Be sure the agent is supposed to be running today
Set dtCompare = startdate.DateTimeValue
If dtToday.TimeDifference(dtCompare) < 0 Then
DoNotRun = True
Exit Sub
End If
Set dtCompare = enddate.DateTimeValue
If dtToday.TimeDifference(dtCompare) >= 0 Then
Set maildoc = New NotesDocument(db)
Set rtitem = New NotesRichTextItem(maildoc, "Body")
maildoc.Form = "Memo"
maildoc.SendTo = ProfileUser(0)
maildoc.Subject = "Welcome Back!"
rtitem.AppendText("While you were out, your Out of Office Agent " & _
"notified the following people of your absence:")
rtitem.AddNewLine(2)
AlreadyNotified = profile.AlreadyNotified
For i = 0 To Ubound(AlreadyNotified)
rtitem.AppendText(AlreadyNotified(i))
rtitem.AddNewLine(1)
Next
maildoc.BackInOffice = True
maildoc.Send(False)
DoNotRun = True
Exit Sub
End If
End Sub
'++LotusScript Development Environment:2:2:CheckName:1:8
Sub CheckName
DoNotSend = False
'If the email is from yourself, don't notify sender
If Sender(0) = ProfileUser(0) Then
DoNotSend = True
Exit Sub
End If
'See if sender was already notified
AlreadyNotified = profile.AlreadyNotified
Forall a In AlreadyNotified
If Sender(0) = a Then
DoNotSend = True
Exit Sub
End If
End Forall
'See if sender should be ignored
Forall i In IgnorePeople
If Sender(0) = i Then
DoNotSend = True
Exit Sub
End If
End Forall
End Sub
Lotus Notes
PURSAF
Debbie2 Branco
F)`b"
0|wm-
PURSAF
TS3+v
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
$UpdatedBy
$Flags
_Forward
Categori_ze
Edit Message
_Move to Folder...
_Remove from Folder...
----------------------
Forwarded by
ForwardedFrom
ForwardedDate
---------------
--------
Times New Roman
Using Mail
Creating a Mail Message
There are three simple forms for creating a new mail message:e
Memo
- use this form to create a new message
Reply
- use this form to respond to a message that you have received. This form will work only when you have selected a document to reply to.
Reply
With History
- similar to a Reply, except that a copy of the message being responded to will be automatically copied into your new message.
Before you send a message you must fill in the following information:s
To:r
- The primary recipients of the message. The content of the message is directed to them or they must take action on this message.
- Recipients who will receive a copy of the message, but are not usually required to take action on it.
bcc:
- Recipients who will receive a blind copy of this message.
You can send a message by choosing the "Send" action.g
Other Types of Messagesu
This database can also be used to organize your time, keep a list of tasks and meetings and special kinds of information to other Mail users:n
Bookmark a
- this form is used to send another Mail user a reference to a document. It is most useful when reading documents in a database that is shared with others on a server. For example, if you are reading a Discussion database and find a document that may be of use to someone else, creating a Bookmark message will allow that person to find the document very easily.
Phone Message
- use this form to take a message for another Mail user.
Task
- use this form to remind yourself of something that you need to do, or to ask another person to do something for you. If you send a Task to another Mail user, or to several users, they will be able to notify you when they have completed the Task. A special view (see below) has been provided to help you organize your Tasks and Tasks that you have assigned to other people.
Folders and Views
The following views and folders are provided for you:
Inbox
- this is where new mail messages will appear when they have been sent to you by another Mail user.
Drafts
- this is where messages that you have created will appear if you have saved them but have not yet sent them.e
Sent A
- messages will appear here after you have sent them. You can decide whether you want messages saved here automatically or whether you should be asked before a message is saved.i
Trash
- message that you have marked for deletion will appear here.$
To Do
- Tasks that you have created for yourself and Tasks that you have assigned to other people, and other messages which include a Due Date will appear here. This view will also help you keep track of which Tasks have been completed and when.S
In addition, you can create your own folders and views to help organize your Mail database.
Personal Stationery'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postmodechange(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Postopen From Source Call Postopen
On Event Querysave From Source Call Querysave
On Event Queryclose From Source Call Queryclose
On Event Postmodechange From Source Call Postmodechange
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
If source.InPreviewPane Then Exit Sub
If note Is Nothing Then Call InstantiateObjectVariables(source)
If (note.HasItem("PostedDate") Or note.HasItem("DeliveredDate")) Then
If source.EditMode = False Then
Exit Sub
Else
'If this is a message that was written by you, we need to remove any options fields
If note.From(0) = s.UserName Then
note.RemoveItem("MailOptions")
note.RemoveItem("SaveOptions")
If Not(note.HasItem("SecureMail")) Then CheckSecureMail
'If this is a message that was not written by you we do not present the mail dialog
'but we do want to force processing into QuerySave
Else
note.MailOptions = "0"
note.SaveOptions = "1"
End If
End If
Else
source.EditMode = True
End If
If source.IsNewDoc Then
NewDocument = True
CheckSecureMail
EditType = s.GetEnvironmentValue("MailStEd")
'EditType 1 = CreateStationery
If EditType = "1" Then
note.tmpAction = "SaveAsStationery"
note.IsMailStationery = 1
Call s.SetEnvironmentVar("MailStEd", "0")
note.MailOptions = "0"
note.SaveOptions = "1"
Else
'If note.HasItem("ForwardedFrom") Then Call note.ReplaceItemValue("$RefOptions", "1")
End If
Else
NewDocument = False
If note.HasItem("IsMailStationery") Then
EditType = s.GetEnvironmentValue("MailStEd")
'EditType 2 = EditStationery
If EditType = "2" Then
Call s.SetEnvironmentVar("MailStEd", "0")
note.MailOptions = "0"
note.SaveOptions = "1"
Else
'Create a doc from Stationery
note.RemoveItem("IsMailStationery")
note.RemoveItem("MailStationeryName")
Call note.ReplaceItemValue("$VersionOpt", "6")
End If
Else
EditType = s.GetEnvironmentValue("MailStEd")
'EditType 5 = EditNewCopy
If EditType = "5" Then
Call note.ReplaceItemValue("$VersionOpt", "6")
note.tmpAction = "ConvertNewDoc"
Call s.SetEnvironmentVar("MailStEd", "0")
source.reload
source.save
End If
End If
End If
source.Reload
source.RefreshHideFormulas
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
DoNotClose = False
If note Is Nothing Then Call InstantiateObjectVariables(source)
'Remove these because they are explicitly set in this event
note.RemoveItem("MailOptions")
note.RemoveItem("SaveOptions")
Action = note.tmpAction
If note.HasItem("IsMailStationery") Then
If Action(0) <> "RenameStationery" Then
Call SaveDialog("Stationery")
If ContinueSave = IDCANCEL Then continue = False
If ContinueSave <> IDYES Then
source.reload
Exit Sub
End If
End If
End If
Select Case Action(0)
Case "SaveAsStationery"
sName = Inputbox$("What would you like to call this Stationery?", "Save as Stationery", "-Untitled-")
If sName = "" Then
note.MailOptions = "0"
Continue = False
Exit Sub
End If
If NewDocument Then
note.IsMailStationery = 1
note.MailStationeryName = sName
note.MailOptions = "0"
note.SaveOptions = "1"
Else
note.SaveOptions = "0"
Set newnote = New NotesDocument(db)
Call note.CopyAllItems(newnote)
ItemList = newnote.Items
Forall i In ItemList
If Lcase(Left(i.Name, 3)) = "tmp" Then i.Remove
End Forall
newnote.IsMailStationery = 1
newnote.MailStationeryName = sName
newnote.Form = "Memo"
newnote.RemoveItem("PostedDate")
newnote.RemoveItem("DeliveredDate")
newnote.Save True, True
w.ViewRefresh
End If
Messagebox "This Message has been saved as Stationery in your Drafts folder. A new message will be created every time you open this Stationery.", 0, "Save as Stationery"
Case "RenameStationery"
MailStationeryName = note.MailStationeryName
sName = Inputbox$("What would you like to call this Stationery?", "Save as Stationery", MailStationeryName(0))
If sName = "" Then
note.MailOptions = "0"
note.RemoveItem("tmpAction")
DoNotClose = True
Continue = False
Exit Sub
End If
note.MailStationeryName = sName
note.MailOptions = "0"
note.SaveOptions = "1"
Case "SaveAsDraft", "SaveAndFile", "SendAndFile", "ConvertNewDoc"
note.MailOptions = "0"
note.SaveOptions = "1"
Case "Send"
note.MailOptions = "0"
note.SaveOptions = "0"
Case "Mailing"
'We do not want to do anything if mailing is in process (like from the Send button)
Case "ConvertToTask"
note.RemoveItem("DeliveredDate")
note.RemoveItem("PostedDate")
note.SendTo = ""
note.CopyTo = ""
note.SaveOptions ="1"
note.MailOptions = "0"
note.Form = "Task"
note.AssignState = 0
note.ExcludeFromView = "D"
Call note.ReplaceItemValue("_ViewIcon", 168)
Case Else
'If this is a message that was not written by you we do not present the mail dialog
If note.From(0) <> s.UserName Then
note.MailOptions = "0"
note.SaveOptions = "1"
Call SaveDialog("Document")
If ContinueSave = IDCANCEL Then continue = False
If ContinueSave <> IDYES Then
source.reload
Exit Sub
End If
End If
End Select
note.RemoveItem("tmpAction")
If note.HasItem("$VersionOpt") Then Call note.ReplaceItemValue("$VersionOpt", "0")
source.Reload
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
If DoNotClose Then
DoNotClose = False
Continue = False
End If
End Sub
'++LotusScript Development Environment:2:2:Postmodechange:1:12
Sub Postmodechange(Source As Notesuidocument)
If note Is Nothing Then Call InstantiateObjectVariables(source)
'If this is a message that was written by you, we need to remove any options fields
If note.From(0) = s.UserName Then
note.RemoveItem("MailOptions")
note.RemoveItem("SaveOptions")
If Not(note.HasItem("SecureMail")) Then CheckSecureMail
'If this is a message that was not written by you we do not present the mail dialog
'but we do want to force processing into QuerySave
Memo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postmodechange(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Postopen From Source Call Postopen
On Event Querysave From Source Call Querysave
On Event Queryclose From Source Call Queryclose
On Event Postmodechange From Source Call Postmodechange
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
If source.InPreviewPane Then Exit Sub
If note Is Nothing Then Call InstantiateObjectVariables(source)
If (note.HasItem("PostedDate") Or note.HasItem("DeliveredDate")) Then
If source.EditMode = False Then
Exit Sub
Else
'If this is a message that was written by you, we need to remove any options fields
If note.From(0) = s.UserName Then
note.RemoveItem("MailOptions")
note.RemoveItem("SaveOptions")
If Not(note.HasItem("SecureMail")) Then CheckSecureMail
'If this is a message that was not written by you we do not present the mail dialog
'but we do want to force processing into QuerySave
Else
note.MailOptions = "0"
note.SaveOptions = "1"
End If
End If
Else
source.EditMode = True
End If
If source.IsNewDoc Then
NewDocument = True
CheckSecureMail
EditType = s.GetEnvironmentValue("MailStEd")
'EditType 1 = CreateStationery
If EditType = "1" Then
note.tmpAction = "SaveAsStationery"
note.IsMailStationery = 1
Call s.SetEnvironmentVar("MailStEd", "0")
note.MailOptions = "0"
note.SaveOptions = "1"
Else
'If note.HasItem("ForwardedFrom") Then Call note.ReplaceItemValue("$RefOptions", "1")
End If
Else
NewDocument = False
If note.HasItem("IsMailStationery") Then
EditType = s.GetEnvironmentValue("MailStEd")
'EditType 2 = EditStationery
If EditType = "2" Then
Call s.SetEnvironmentVar("MailStEd", "0")
note.MailOptions = "0"
note.SaveOptions = "1"
Else
'Create a doc from Stationery
note.RemoveItem("IsMailStationery")
note.RemoveItem("MailStationeryName")
Call note.ReplaceItemValue("$VersionOpt", "6")
End If
Else
EditType = s.GetEnvironmentValue("MailStEd")
'EditType 5 = EditNewCopy
If EditType = "5" Then
Call note.ReplaceItemValue("$VersionOpt", "6")
note.tmpAction = "ConvertNewDoc"
Call s.SetEnvironmentVar("MailStEd", "0")
source.reload
source.save
End If
End If
End If
source.Reload
source.RefreshHideFormulas
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
DoNotClose = False
If note Is Nothing Then Call InstantiateObjectVariables(source)
note.RemoveItem("MailOptions")
note.RemoveItem("SaveOptions")
Action = note.tmpAction
If note.HasItem("IsMailStationery") Then
If Action(0) <> "RenameStationery" Then
Call SaveDialog("Stationery")
If ContinueSave = IDCANCEL Then continue = False
If ContinueSave <> IDYES Then
source.reload
Exit Sub
End If
End If
End If
Select Case Action(0)
Case "SaveAsStationery"
sName = Inputbox$("What would you like to call this Stationery?", "Save as Stationery", "-Untitled-")
If sName = "" Then
note.MailOptions = "0"
Continue = False
Exit Sub
End If
If NewDocument Then
note.IsMailStationery = 1
note.MailStationeryName = sName
note.MailOptions = "0"
note.SaveOptions = "1"
Else
note.SaveOptions = "0"
Set newnote = New NotesDocument(db)
Call note.CopyAllItems(newnote)
ItemList = newnote.Items
Forall i In ItemList
If Lcase(Left(i.Name, 3)) = "tmp" Then i.Remove
End Forall
newnote.IsMailStationery = 1
newnote.MailStationeryName = sName
newnote.Form = "Memo"
newnote.RemoveItem("PostedDate")
newnote.RemoveItem("DeliveredDate")
newnote.Save True, True
w.ViewRefresh
End If
Messagebox "This Message has been saved as Stationery in your Drafts folder. A new message will be created every time you open this Stationery.", 0, "Save as Stationery"
Case "RenameStationery"
MailStationeryName = note.MailStationeryName
sName = Inputbox$("What would you like to call this Stationery?", "Save as Stationery", MailStationeryName(0))
If sName = "" Then
note.MailOptions = "0"
note.RemoveItem("tmpAction")
DoNotClose = True
Continue = False
Exit Sub
End If
note.MailStationeryName = sName
note.MailOptions = "0"
note.SaveOptions = "1"
Case "SaveAsDraft", "SaveAndFile", "SendAndFile", "ConvertNewDoc"
note.MailOptions = "0"
note.SaveOptions = "1"
Case "Send"
note.MailOptions = "0"
note.SaveOptions = "0"
Case "Mailing"
'We do not want to do anything if mailing is in process (like from the Send button)
Case "ConvertToTask"
note.RemoveItem("DeliveredDate")
note.RemoveItem("PostedDate")
note.SendTo = ""
note.CopyTo = ""
note.SaveOptions ="1"
note.MailOptions = "0"
note.Form = "Task"
note.AssignState = 0
note.ExcludeFromView = "D"
Call note.ReplaceItemValue("_ViewIcon", 168)
Case Else
'If this is a message that was not written by you we do not present the mail dialog
If note.From(0) <> s.UserName Then
note.MailOptions = "0"
note.SaveOptions = "1"
Call SaveDialog("Document")
If ContinueSave = IDCANCEL Then continue = False
If ContinueSave <> IDYES Then
source.reload
Exit Sub
End If
End If
End Select
note.RemoveItem("tmpAction")
If note.HasItem("$VersionOpt") Then Call note.ReplaceItemValue("$VersionOpt", "0")
source.Reload
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
If DoNotClose Then
DoNotClose = False
Continue = False
End If
End Sub
'++LotusScript Development Environment:2:2:Postmodechange:1:12
Sub Postmodechange(Source As Notesuidocument)
If note Is Nothing Then Call InstantiateObjectVariables(source)
'If this is a message that was written by you, we need to remove any options fields
If note.From(0) = s.UserName Then
note.RemoveItem("MailOptions")
note.RemoveItem("SaveOptions")
If Not(note.HasItem("SecureMail")) Then CheckSecureMail
'If this is a message that was not written by you we do not present the mail dialog
'but we do want to force processing into QuerySave
Reply'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postmodechange(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Postopen From Source Call Postopen
On Event Querysave From Source Call Querysave
On Event Queryclose From Source Call Queryclose
On Event Postmodechange From Source Call Postmodechange
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
If source.InPreviewPane Then Exit Sub
If note Is Nothing Then Call InstantiateObjectVariables(source)
If (note.HasItem("PostedDate") Or note.HasItem("DeliveredDate")) Then
If source.EditMode = False Then
Exit Sub
Else
'If this is a message that was written by you, we need to remove any options fields
If note.From(0) = s.UserName Then
note.RemoveItem("MailOptions")
note.RemoveItem("SaveOptions")
If Not(note.HasItem("SecureMail")) Then CheckSecureMail
'If this is a message that was not written by you we do not present the mail dialog
'but we do want to force processing into QuerySave
Else
note.MailOptions = "0"
note.SaveOptions = "1"
End If
End If
Else
source.EditMode = True
End If
If source.IsNewDoc Then
NewDocument = True
CheckSecureMail
EditType = s.GetEnvironmentString("MailStEd")
If EditType = "1" Then
note.tmpAction = "SaveAsStationery"
note.IsMailStationery = 1
Call s.SetEnvironmentVar("MailStEd", "0")
note.MailOptions = "0"
note.SaveOptions = "1"
Else
If Len(EditType) > 1 Then
TaskReply = True
Call s.SetEnvironmentVar("MailStEd", "0")
note.SaveOptions = "1"
note.MailOptions = "1"
note.AssignState = 9
note.DueState = 9
Call note.ReplaceItemValue("_ViewIcon", 82)
End If
End If
Else
NewDocument = False
If note.HasItem("IsMailStationery") Then
EditType = s.GetEnvironmentValue("MailStEd")
If EditType = "2" Then
Call s.SetEnvironmentVar("MailStEd", "0")
note.MailOptions = "0"
note.SaveOptions = "1"
Else
note.RemoveItem("IsMailStationery")
note.RemoveItem("MailStationeryName")
Call note.ReplaceItemValue("$VersionOpt", "6")
End If
Else
EditType = s.GetEnvironmentValue("MailStEd")
If EditType = "5" Then
Call note.ReplaceItemValue("$VersionOpt", "6")
note.tmpAction = "ConvertNewDoc"
Call s.SetEnvironmentVar("MailStEd", "0")
source.reload
source.save
End If
End If
End If
source.Reload
source.RefreshHideFormulas
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
DoNotClose = False
If note Is Nothing Then Call InstantiateObjectVariables(source)
note.RemoveItem("MailOptions")
note.RemoveItem("SaveOptions")
Action = note.tmpAction
If note.HasItem("IsMailStationery") Then
If Action(0) <> "RenameStationery" Then
Call SaveDialog("Stationery")
If ContinueSave = IDCANCEL Then continue = False
If ContinueSave <> IDYES Then
source.reload
Exit Sub
End If
End If
End If
Select Case Action(0)
Case "SaveAsStationery"
sName = Inputbox$("What would you like to call this Stationery?", "Save as Stationery", "-Untitled-")
If sName = "" Then
note.MailOptions = "0"
Continue = False
Exit Sub
End If
If NewDocument Then
note.IsMailStationery = 1
note.MailStationeryName = sName
note.MailOptions = "0"
note.SaveOptions = "1"
Else
note.SaveOptions = "0"
Set newnote = New NotesDocument(db)
Call note.CopyAllItems(newnote)
ItemList = newnote.Items
Forall i In ItemList
If Lcase(Left(i.Name, 3)) = "tmp" Then i.Remove
End Forall
newnote.IsMailStationery = 1
newnote.MailStationeryName = sName
newnote.Form = "Memo"
newnote.RemoveItem("PostedDate")
newnote.RemoveItem("DeliveredDate")
newnote.Save True, True
w.ViewRefresh
End If
Messagebox "This Message has been saved as Stationery in your Drafts folder. A new message will be created every time you open this Stationery.", 0, "Save as Stationery"
Case "RenameStationery"
MailStationeryName = note.MailStationeryName
sName = Inputbox$("What would you like to call this Stationery?", "Save as Stationery", MailStationeryName(0))
If sName = "" Then
note.MailOptions = "0"
note.RemoveItem("tmpAction")
DoNotClose = True
Continue = False
Exit Sub
End If
note.MailStationeryName = sName
note.MailOptions = "0"
note.SaveOptions = "1"
Case "SaveAsDraft", "SaveAndFile", "SendAndFile", "ConvertNewDoc"
note.MailOptions = "0"
note.SaveOptions = "1"
Case "Send"
note.MailOptions = "0"
note.SaveOptions = "0"
Case "Mailing"
'We do not want to do anything if mailing is in process (like from the Send button)
Case "ConvertToTask"
note.RemoveItem("DeliveredDate")
note.RemoveItem("PostedDate")
note.SendTo = ""
note.CopyTo = ""
note.SaveOptions ="1"
note.MailOptions = "0"
note.Form = "Task"
note.AssignState = 0
note.ExcludeFromView = "D"
Call note.ReplaceItemValue("_ViewIcon", 168)
Case Else
'If this is a message that was not written by you we do not present the mail dialog
If note.From(0) <> s.UserName Then
note.MailOptions = "0"
note.SaveOptions = "1"
Call SaveDialog("Document")
If ContinueSave = IDCANCEL Then continue = False
If ContinueSave <> IDYES Then
source.reload
Exit Sub
End If
End If
End Select
note.RemoveItem("tmpAction")
If note.HasItem("$VersionOpt") Then Call note.ReplaceItemValue("$VersionOpt", "0")
source.Reload
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
If DoNotClose Then
DoNotClose = False
Continue = False
End If
If TaskReply Then
ToName = note.SendTo
Messagebox "Notification has been sent to " & ToName(0) & ".", 0, "Task Message"
End If
End Sub
'++LotusScript Development Environment:2:2:Postmodechange:1:12
Sub Postmodechange(Source As Notesuidocument)
If note Is Nothing Then Call InstantiateObjectVariables(source)
'If this is a message that was written by you, we need to remove any options fields
If note.From(0) = s.UserName Then
note.RemoveItem("MailOptions")
note.RemoveItem("SaveOptions")
If Not(note.HasItem("SecureMail")) Then CheckSecureMail
'If this is a message that was not written by you we do not present the mail dialog
'but we do want to force processing into QuerySave
You cannot convert this message into a Task because it already has a due date associated with it.
3S4S6S12S18S
tmpAction
ConvertNewDoc
Unavailable
0R1S2S3S7S9S
0R4S9S13S
0R4S
_Remove From Folder...
Categori_ze
SSend
Times New Roman
About Mail
The Mail template is used to create a database to send and receive electronic mail using Notes. The template can be used to create a mail database either on a local workstation or on a server. The Mail template also contains Task management features which can be used for personal time management or to delegate work to other people. Please consult Help/Help Topics for more information on how to use the features of the Mail template.
&Arial
StdNotesLtr4
tmpDisplayFrom_Preview
tmpFrom
tmpDisplayDate_Preview
tmpDate
VersionOpt|
6S7S9S14S
$VersionOpt
0R1S2S3S
SavedOnce
0R1S2S3S
PostedDate(
0R1S2S3S
DeliveredDate
0R1S2S3S
$AutoEditMode
0R1S2S3S
MailSaveOptions
0R1S2S3S
VersionOpt
0R4S
"Small Fonts
New Task
Subject
Subject
Subject
4S6S12S13S14S15S17S21S23S25S26S28S
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
%INCLUDE "lsconst.lss"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub InstantiateObjectVariables(source)
Declare Sub CheckDueDate
Declare Sub CheckStartDate
Declare Function SendNotification(ReplyType, MessageText, NewState, ViewIcon) As Variant
Declare Sub CheckSecureMail
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim w As NotesUIWorkspace
Dim s As NotesSession
Dim db As NotesDatabase
Dim note As NotesDocument
Dim maildoc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim item As NotesItem
Dim dt As NotesDateTime
Dim dt2 As NotesDateTime
Dim Action As Variant
Dim DocWasSaved As Variant
Dim FinalSave As Variant
Dim CommentQuery As Variant
Dim StartDate As Variant
Dim DueDate As Variant
Dim Subject As Variant
Dim NewSubject As String
Dim ComposeReply As Variant
Dim ConvertedTask As Variant
'++LotusScript Development Environment:2:2:InstantiateObjectVariables:1:8
Sub InstantiateObjectVariables(source)
Set w = New NotesUIWorkspace
Set s = New NotesSession
Set db = s.CurrentDatabase
Set note = source.document
source.AutoReload = False
End Sub
'++LotusScript Development Environment:2:2:CheckDueDate:1:8
Sub CheckDueDate
'DueState causes the view to sort correctly: 0=Overdue, 1=Current, 2=Future
Set dt2 = New NotesDateTime(DueDate(0))
If dt.TimeDifference(dt2) > 0 Then
note.DueState = 0
Else
note.DueState = 1
End If
End Sub
'++LotusScript Development Environment:2:2:CheckStartDate:1:8
Sub CheckStartDate
'DueState causes the view to sort correctly: 0=Overdue, 1=Current, 2=Future
Set dt2 = New NotesDateTime(StartDate(0))
If dt.TimeDifference(dt2) < 0 Then
note.DueState = 2
Else
note.DueState = 1
End If
End Sub
'++LotusScript Development Environment:2:1:SendNotification:1:8
Function SendNotification(ReplyType, MessageText, NewState, ViewIcon) As Variant
Reply'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postmodechange(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Postopen From Source Call Postopen
On Event Querysave From Source Call Querysave
On Event Queryclose From Source Call Queryclose
On Event Postmodechange From Source Call Postmodechange
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
If source.InPreviewPane Then Exit Sub
If note Is Nothing Then Call InstantiateObjectVariables(source)
If (note.HasItem("PostedDate") Or note.HasItem("DeliveredDate")) Then
If source.EditMode = False Then
Exit Sub
Else
'If this is a message that was written by you, we need to remove any options fields
If note.From(0) = s.UserName Then
note.RemoveItem("MailOptions")
note.RemoveItem("SaveOptions")
If Not(note.HasItem("SecureMail")) Then CheckSecureMail
'If this is a message that was not written by you we do not present the mail dialog
'but we do want to force processing into QuerySave
Else
note.MailOptions = "0"
note.SaveOptions = "1"
End If
End If
Else
source.EditMode = True
End If
If source.IsNewDoc Then
NewDocument = True
CheckSecureMail
EditType = s.GetEnvironmentString("MailStEd")
If EditType = "1" Then
note.tmpAction = "SaveAsStationery"
note.IsMailStationery = 1
Call s.SetEnvironmentVar("MailStEd", "0")
note.MailOptions = "0"
note.SaveOptions = "1"
Else
If Len(EditType) > 1 Then
TaskReply = True
Call s.SetEnvironmentVar("MailStEd", "0")
note.SaveOptions = "1"
note.MailOptions = "1"
End If
End If
Else
NewDocument = False
If note.HasItem("IsMailStationery") Then
EditType = s.GetEnvironmentValue("MailStEd")
If EditType = "2" Then
Call s.SetEnvironmentVar("MailStEd", "0")
note.MailOptions = "0"
note.SaveOptions = "1"
Else
note.RemoveItem("IsMailStationery")
note.RemoveItem("MailStationeryName")
Call note.ReplaceItemValue("$VersionOpt", "6")
End If
Else
EditType = s.GetEnvironmentValue("MailStEd")
If EditType = "5" Then
Call note.ReplaceItemValue("$VersionOpt", "6")
note.tmpAction = "ConvertNewDoc"
Call s.SetEnvironmentVar("MailStEd", "0")
source.reload
source.save
End If
End If
End If
source.Reload
source.RefreshHideFormulas
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
DoNotClose = False
If note Is Nothing Then Call InstantiateObjectVariables(source)
note.RemoveItem("MailOptions")
note.RemoveItem("SaveOptions")
Action = note.tmpAction
If note.HasItem("IsMailStationery") Then
If Action(0) <> "RenameStationery" Then
Call SaveDialog("Stationery")
If ContinueSave = IDCANCEL Then continue = False
If ContinueSave <> IDYES Then
source.reload
Exit Sub
End If
End If
End If
Select Case Action(0)
Case "SaveAsStationery"
sName = Inputbox$("What would you like to call this Stationery?", "Save as Stationery", "-Untitled-")
If sName = "" Then
note.MailOptions = "0"
Continue = False
Exit Sub
End If
If NewDocument Then
note.IsMailStationery = 1
note.MailStationeryName = sName
note.MailOptions = "0"
note.SaveOptions = "1"
Else
note.SaveOptions = "0"
Set newnote = New NotesDocument(db)
Call note.CopyAllItems(newnote)
ItemList = newnote.Items
Forall i In ItemList
If Lcase(Left(i.Name, 3)) = "tmp" Then i.Remove
End Forall
newnote.IsMailStationery = 1
newnote.MailStationeryName = sName
newnote.Form = "Memo"
newnote.RemoveItem("PostedDate")
newnote.RemoveItem("DeliveredDate")
newnote.Save True, True
w.ViewRefresh
End If
Messagebox "This Message has been saved as Stationery in your Drafts folder. A new message will be created every time you open this Stationery.", 0, "Save as Stationery"
Case "RenameStationery"
MailStationeryName = note.MailStationeryName
sName = Inputbox$("What would you like to call this Stationery?", "Save as Stationery", MailStationeryName(0))
If sName = "" Then
note.MailOptions = "0"
note.RemoveItem("tmpAction")
DoNotClose = True
Continue = False
Exit Sub
End If
note.MailStationeryName = sName
note.MailOptions = "0"
note.SaveOptions = "1"
Case "SaveAsDraft", "SaveAndFile", "SendAndFile", "ConvertNewDoc"
note.MailOptions = "0"
note.SaveOptions = "1"
Case "Send"
note.MailOptions = "0"
note.SaveOptions = "0"
Case "Mailing"
'We do not want to do anything if mailing is in process (like from the Send button)
Case "ConvertToTask"
note.RemoveItem("DeliveredDate")
note.RemoveItem("PostedDate")
note.SendTo = ""
note.CopyTo = ""
note.SaveOptions ="1"
note.MailOptions = "0"
note.Form = "Task"
note.AssignState = 0
note.ExcludeFromView = "D"
Call note.ReplaceItemValue("_ViewIcon", 168)
Case Else
'If this is a message that was not written by you we do not present the mail dialog
If note.From(0) <> s.UserName Then
note.MailOptions = "0"
note.SaveOptions = "1"
Call SaveDialog("Document")
If ContinueSave = IDCANCEL Then continue = False
If ContinueSave <> IDYES Then
source.reload
Exit Sub
End If
End If
End Select
note.RemoveItem("tmpAction")
If note.HasItem("$VersionOpt") Then Call note.ReplaceItemValue("$VersionOpt", "0")
source.Reload
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
If DoNotClose Then
DoNotClose = False
Continue = False
End If
If TaskReply Then
ToName = note.SendTo
Messagebox "Notification has been sent to " & ToName(0) & ".", 0, "Task Message"
End If
End Sub
'++LotusScript Development Environment:2:2:Postmodechange:1:12
Sub Postmodechange(Source As Notesuidocument)
If note Is Nothing Then Call InstantiateObjectVariables(source)
'If this is a message that was written by you, we need to remove any options fields
If note.From(0) = s.UserName Then
note.RemoveItem("MailOptions")
note.RemoveItem("SaveOptions")
If Not(note.HasItem("SecureMail")) Then CheckSecureMail
'If this is a message that was not written by you we do not present the mail dialog
'but we do want to force processing into QuerySave
tmpDisplayDate_PreviewTime/date memo was created or mailed.
Preview letterheads for new Memos and Replies in the list below.
When you find one you like, press Done.
LetterHeadChoices
Plain Text|StdNotesLtr0Bouncy Earth|StdNotesLtr1Buck Rogers Mail|StdNotesLtr2Centered and Bold|StdNotesLtr3Decco|StdNotesLtr4Falling Spheres|StdNotesLtr5First Initial|StdNotesLtr6Frank Lloyd|StdNotesLtr7From The Desk|StdNotesLtr8Gateway|StdNotesLtrGatewayGeometry |StdNotesLtr9Gray Gradient with Lines|StdNotesLtr13Green and Yellow Diamond|StdNotesLtr14Marquee|StdNotesLtr34Metal Plate|StdNotesLtr15Pencil and Grid|StdNotesLtr16Pony Express|StdNotesLtr17Purple Geometry|StdNotesLtr18Reversed Teal|StdNotesLtr20Slashed Lines with Globe|StdNotesLtr21Squiggle with Backdrop|StdNotesLtr22Squiggly Line|StdNotesLtr23Tacks|StdNotesLtr24Tape|StdNotesLtr25Teal and Yellow Lines|StdNotesLtr26Three Dimensional Relief|StdNotesLtr27Torn Paper|StdNotesLtr28Triangle with Dots 1|StdNotesLtr29Triangle with Dots 2|StdNotesLtr30Wild Confetti|StdNotesLtr32Yellow Gradient|StdNotesLtr33
DefaultLogo
0S0E
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder
Choose New Letter Head
DefaultLogo
DefaultLogo
1S2S
Logos
0RR1S2S
The following list should be translated. It is presented to user in list box
0R1S
LogoNames
Three
Buck Rogers
Centered Rich
Confetti
Falling Balls
Frank Lloyde
0R1S2S
Select a Letterhead
Select the Letterhead which will appear at the top of all new Memos and Replys
DefaultLogo
Logos
LogoNames
LogoNames
0R1S2S14S16S19S
DefaultLogo
LogoNames
Logos
0RR4S8S10S
preview
Done
0S0E
DeliveryOptions
Importance:
Delivery report:
Delivery priority:
SenderTag
0S0E
Mood stamp:
Importance
Normal|2High|1Low|3
DeliveryReport
Only on failure|BConfirm delivery|CTrace entire path|TNone|N
, by checking this box, that I have complied with the requirements of U.S. export law, specifically, 22 CFR 123.27, pertaining to the "temporary" export of cryptographic products for "personal" use.
I certify that:
the use of the product identified above was solely for personal use and not for sales, demonstration or marketing purposes;
only one copy of the product identified above was exported and it remained in my possession (and was not sent separately) during this travel;
I did not travel to a country to which exports are prohibited (countries on which a "ban or embargo" has been
imposed
by the U.S. government or United Nations); and
I have no knowledge or reason to believe the products were copied, transferred, stolen, or compromised while abroad.
. .
. .
Explanation of law:
The Personal Use Exemption authorizes temporary export of cryptographic products for personal use by U.S.citizens and lawful permanent residents when travelling abroad. The exemption requires the traveller to keep certain records and report instances where the product was stolen or otherwise compromised. There are no other export related requirements such as export licenses or Shipper's Export Declarations.
Requirements:
- Use of the cryptographic items must be for personal use and not for sales, marketing, or demonstration purposes
- Only one copy of a cryptographic item may be exported (i.e. one phone, one laptop,etc.) and one copy each of cryptographic software to be used on simultaneously exported hardware.
- The Exemption cannot be used for travel to countries which have been identified as supporting terrorism or those under certain United Nations embargoes. These countries currently are Cuba, Iran, Iraq, Libya, North Korea, Sudan and Syria.
- The cryptographic products must be hand carried (may be included with accompanying baggage), not sent separately, and must be returned to the U.S. at the completion of the stay abroad. Upon request of a U.S. Customs officer, the exporter will submit the products for inspection.
- The exporter must keep records for five years from the date the trip commenced. The records must include the description of the handcarried cryptographic products; dates and countries visited; dates of leaving the U.S. and re-entry. The record is to contain a statement that all conditions of the Exemption as outlined above were met and that no products were stolen, transferred or otherwise compromised.
- The exporter also has a duty to report to the U.S. Department of State, Office of Defense Trade Controls, any loss, transfer, copy, or compromise of the product while abroad within 10 days of returning to the U.S. (If the exporter has a reason to know any of these events has occurred he or she should immediately inform the Department of State.)
(.txt)