0

我在 VB6 中有一个使用 Lotus Notes 的应用程序，因此可以向不同的收件人发送电子邮件。这是一个发送每日报告的繁重应用程序，由于它是一项相当繁重的任务，因此有一台专用机器运行它。它有一个 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.

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

谢谢你。

4

1 回答 1

2

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

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

但是，如果电子邮件是以编程方式发送的，您可能需要查看有关如何使“发件人”显示为不同的人的提示。

于 2013-05-27T11:57:19.600 回答