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

Question

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

现在，此用户可以访问Lotus中的共享邮箱。我希望从这个新的共享邮箱发送电子邮件。我可以手动完成，并且我注意到该消息是从该共享邮箱的主电子邮件发送的，但是在其下面添加了从UserX＆＃34;发送的fiedl＆＃34;。 这是我想要自动化的情况。

我是这个（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方法的第一个参数传递一个空字符串。如果数据库在服务器上，则可以将其替换为服务器名称。

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

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