Lotus notes IBM Notes-创建代理以在用户输入日期发送邮件

我创建了一个表单，其中包含一个按钮，用于向用户发送邮件通知。我需要一个计划代理在用户输入日期发送邮件。多谢各位

以下是按钮的代码：

Sub Click(Source As Button)
    Dim incharge As String
    Dim Session As New NotesSession
    Dim db As NotesDatabase
    Set db = session.CurrentDatabase
    Dim ws As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim doc As NotesDocument
    Dim varValues As Variant
    Dim varCC As Variant

    Set uidoc = ws.currentDocument
    Set doc = uidoc.Document
    varCC = "(the CC address)"
    varValues = doc.GetItemValue( "incharge" )
    Dim email As NotesDocument
    Set email = db.CreateDocument
    email.Form="project"
    email.Principal="(the sender address)"
    email.Subject="(subject)"
    email.CopyTo=  varCC
    If Not Isnull( Arraygetindex( varValues, "Employee 1" ) ) Then
    email.Body = "Message"
    email.SendTo = "Employee 1 Address"
    Call email.Send(False)
    Else
    End If
    If Not Isnull( Arraygetindex( varValues, "Employee 2" ) ) Then
        email.Body = "Message"
        email.SendTo = "Employee 2 Address"
        Call email.Send(False)
    Else
    End If
    If Not Isnull( Arraygetindex( varValues, "Employee 3" ) ) Then
        email.Body = "Message"
        email.SendTo = "Employee 3 Address"
        Call email.Send(False)
    Else
    End If
    If Not Isnull( Arraygetindex( varValues, "Employee 4" ) ) Then
        email.Body = "Message"
        email.SendTo = "Employee 4 Address"
        Call email.Send(False)
    Else
    End If
    If Not Isnull( Arraygetindex( varValues, "Employee 5" ) ) Then
        email.Body = "Message"
        email.SendTo = "Employee 5 Address"
        Call email.Send(False)
    Else
    End If
    If Not Isnull( Arraygetindex( varValues, "Employee 6" ) ) Then
        email.Body = "Message"
        email.SendTo = "Employee 6 Address"
        Call email.Send(False)
    Else
    End If
End Sub

---

单击按钮后，此代码将发送邮件。谢谢大家!

单击按钮时，只需保存文档即可。然后创建一个每天运行一次的计划代理，并执行db.search以查找具有当前日期的项目文档，遍历集合并发送它们

---

这是一种方法，还有很多其他方法。

Jamie，欢迎来到Stack Overflow。你已经试过什么了？谢谢你的评论。您能帮我了解lotusscript代理的代码吗？我是domino特别是lotusscript的初学者。显然，在DominoR10中有一种方法可以延迟邮件的发送。然后服务器将在特定的日期和时间发送邮件，我假设是基于某个字段中的日期/时间值。这不是StackOverflow的工作方式，Jamie。你发布你尝试过的代码，告诉我们当它运行时你期望它做什么，并告诉我们当它运行时实际发生了什么。我们在代码中帮助您解决问题。我们不为您编写代码，也不参与为您提供详细教程的对话。我的错。谢谢大家的帮助。