获取用户邮件邮件服务器的缩写名称的最简单方法是什么,当前用户是具体的
问问题
3365 次
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 回答