1

获取用户邮件邮件服务器的缩写名称的最简单方法是什么,当前用户是具体的

4

2 回答 2

3
Function getUserMailServer() As NotesName
    Dim session As New NotesSession
    Dim maildb As New NotesDatabase("", "")
    Call maildb.OpenMail
    Dim nName As NotesName
    Set nName = session.CreateName(maildb.Server)
    Print("Server: " + nName.Abbreviated)
    Set getUserMailServer = nName
End Function

maildb.OpenMail为您提供当前用户的邮件数据库。

maildb.Server返回邮件数据库的完整服务器名称。

session.CreateName()从服务器名称创建一个 NotesName 对象。

nName.Abbreviated返回缩写的服务器名称(与 相同maildb.Server)。

于 2013-11-01T09:56:47.253 回答
2

您还可以使用 NotesDirectory 类的 GetMailInfo 方法。这使您能够获取您指定的每个用户的邮件数据库。

mailinfo = notesDirectory.GetMailInfo(username)

mailinfo 是一个 Variant,其中包含一个字符串数组,其中包含指定用户的以下信息:

Mail Server - Home mail server for the specified person.
BuildNumber - If getver is true, a string representation of the build number of the specified person's mail server, for example, "303". If getver is false, "".
DominoVersion - If getver is true, a string representation of the Domino version of the specified person's mail server, for example, "Build V80_07042006NP". If getver is false, "".
MailFile - Mail file for the specified person.
ShortName - Short form of the specified person's name.
MailDomain - Notes Domain of the specified person's mail address.
User Name - First entry in the list of user names honored for the specified person.
InternetMailAddress - Internet mail address for the specified person.
OutOfOffice - Out of Office service type. "1" indicates Agent, "2" indicates Service.

请参阅此处的IBM 帮助以获取更多信息。

于 2013-11-05T12:45:28.757 回答