獲取蓮花文件中的用戶的郵件服務器

Question

請告訴我得到一個用戶的郵件的郵件服務器的縮寫名稱的最簡單的方法，當前用戶要具體

Answer 1

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對象。 （如maildb.Server）。

Answer 2

您還可以使用NotesDirectory類的GetMailInfo方法。這使您可以獲取您指定的每個用戶的郵件數據庫。

mailinfo = notesDirectory.GetMailInfo(username) 

mailinfo是含有一個字符串數組，用於指定用戶的信息以下一個變體：

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幫助here獲得更多信息。