LotusScript 代理从 csv 文件向多个收件人发送邮件

Question

我需要 LotusScript 代理操作按钮来向多个收件人发送电子邮件，这些收件人的邮件地址将从 csv 或 excel 文件中读取。我必须向几百个收件人发送相同的邮件，从 excel 文件发送邮件比单独键入或复制每个邮件要容易得多。我在 HCL 站点上找到了“Send”方法并使用静态数组示例实现：

Sub Click(Source As Button)
 Dim s As NotesSession
 Dim db As NotesDatabase
 Dim doc As NotesDocument
 Dim rtitem as NotesRichTextItem
 Set s = New NotesSession
 Set db = s.CurrentDatabase
 Set doc = New NotesDocument(db)

 '----------------------------------------------------------------------
 ' Build static list of email addresses
 '----------------------------------------------------------------------
 Dim addresses (1 to 3) as String
 addresses(1) = "EMAIL"
 addresses(2) = "EMAIL"
 addresses(3) = "EMAIL"

 '----------------------------------------------------------------------
 ' Create and send email message
 '----------------------------------------------------------------------
 doc.Form = "Memo"
 doc.SendTo = addresses
 doc.Subject = "This is the message subject"
 Set rtitem = New NotesRichTextItem(doc, "Body")
 Call rtitem.AddNewLine(1)
 Call rtitem.AppendText("The body of the email message.")
 doc.Send (True)
 Msgbox "Sample email sent"
End Sub 

此操作按钮应向 3 个收件人或我手动输入代码的多个收件人发送电子邮件，但有没有办法从 csv 或 excel 文件向收件人发送电子邮件？

Answer 1

是的，当然有办法。

要从 CSV 文件中读取，您可以使用 NotesStream class 从文件中读取数据。或者您可以使用Open statement 和旧的类似BASIC 的file operations 从文件中读取数据。当然，无论哪种方式，您都将编写一个 CSV 文件解析器。如果您搜索它们，您可能会找到一些示例，但实际上并没有那么难。

要在 LotusScript 中读取 Excel 工作表，您需要调用 Excel API classes。这是我发现的一个例子：link。我敢肯定还有很多其他人。但是，许多人会以另一种方式来执行此操作，即编写在 Excel 中运行并调用 Lotus 类的 VBA 代码。在 StackOverflow 上搜索“从 Excel VBA 发送 Lotus Notes 电子邮件”肯定会出现一些示例。也可以编写独立运行并同时使用 Excel 类和 Notes 类的 VBScript 代码，毫无疑问，您也可以找到一些这样的示例。