如何使用 Lotus Notes 中配置的共享邮箱发送消息？

Question

我有一个使用 Lotus Notes 的 VB6 应用程序，因此可以向不同的收件人发送电子邮件。 这是一个发送每日报告的繁重应用程序，由于它是一项相当繁重的任务，因此有一台专用机器运行它。 它有一个 win 用户登录，并且正在使用的 Lotus 会话是与 WIN 用户相关的会话。电子邮件由拥有 Lotus/Win 会话的用户发送。

现在，此用户可以访问 Lotus 中的共享邮箱。我希望从这个新的共享邮箱发送电子邮件。我可以手动完成，我注意到邮件是从这个共享邮箱的主电子邮件发送的，但在它下面添加了“从 UserX 发送”的字段。 这就是我想要自动化的情况。

我有这个 (VB6) 代码：

'Start a session to notes
Set Session = CreateObject("Notes.NotesSession")
'Get the sessions username and then calculate the mail file name
UserName = Session.UserName
MailDbName = Left(UserName, 1) & Right(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
'Open the mail database in notes
Set Maildb = Session.GETDATABASE("", MailDbName)

我想我需要更改我选择 MailDbName 的最后一行。

谁能给我一些指导，好吗？

谢谢。

Answer 1

MailDbName 是一个字符串，其中包含服务器内邮件数据库的路径和文件名，例如"mail/user.nsf"。在这种情况下，服务器是本地的，因为 GETDATABASE 方法的第一个参数传递一个空字符串。如果数据库在服务器上，您可以将其替换为服务器名称。

如果您打开共享邮件数据库并查看文件 > 数据库 > 属性，您可以看到服务器和文件路径信息并在此方法调用中使用。

但是，如果电子邮件是以编程方式发送的，您可能需要check out this tip 了解如何使“发件人”显示为不同的人。