どのように完全な名前のオーナーのメールのファイルLotus Notes

StackOverflow https://stackoverflow.com/questions/2074096

質問

っているメールのファイル名およびサーバー、どうやって取得の完全修飾名は、ユーザに対応し、フォーム"CN=xxx/O=yyy"をLotusScript?

ことから話を始めたいと思い、ユーザのユーザー名にの部分を@にメール:すなわちuser1@example.com

私はサーバーは、このユーザー登録を使用していますので登録されます。GetUserInfoようになります:

Dim reg as New NotesRegistration
reg.RegistrationServer = "CN=myserver/O=mydomain"
Call reg.GetUserInfo("user1", mailserver$, mailfile$)

ここでの問いはどのようにこのデータを取得できますので、ユーザー

役に立ちましたか？

解決 4

私は、このソリューション（私は、ユーザーのためのアドレス帳サーバーである知っているように）になってしまいました 

macro$ = { @DbLookup( "" ; "} & regServer & _
         {" : "names.nsf" ; "($Users)" ; "} & shortName & {" ; "FullName" ) }

Dim namelist As Variant

namelist = Evaluate ( macro$ )

commonName = namelist(0)

他のヒント

こちらは迅速に実施Jonesysの提案:

Function getMailFileUser(mailserver As String, mailfile As String) As String
    On Error Goto errorthrower  
    Dim session As New notessession

    Dim dd As NotesDatabase
    Forall candidate_dd In session.AddressBooks
        If candidate_dd.Server<>"" And candidate_dd.IsPublicAddressBook Then
            Set dd = candidate_dd
            Exit Forall
        End If
    End Forall 
    If dd Is Nothing Then Error 1978,"Failed to find Domino Directory"
    If Not dd.IsOpen Then Call dd.Open("","")


    Dim userdocs As NotesDocumentCollection
    Set userdocs = dd.Search({form="Person" & }& _
    {@name([CANONICALIZE];MailServer)=@name([CANONICALIZE];"} & mailserver & {") & } &_
    {MailFile="} & mailfile & {"},Nothing,1)

    Dim userdoc As NotesDocument
    Set userdoc = userdocs.GetFirstDocument
    If Not userdoc Is Nothing Then
        getMailFileUser = userdoc.FullName(0)       
    Else
        getMailFileUser=""
    End If

    Exit Function
ErrorThrower:
    Error Err, Error & Chr(13) + "Module: " & Cstr( Getthreadinfo(1) ) & ", Line: " & Cstr( Erl )
End Function

数字の注意:

  • CANONICALIZE ピック、その価値からの電流IDをドミノ-ディレクトリを入力 mailserver する必要は省略した標準化形です。
  • の MailFile 分野 ません などの .nsf います。
  • とは思わないファイルのファイル名で大文字-小文字を区別Windowsでも他のプラットフォームに

あなたが必要なこれらのルックアップが頻繁に、計算のルックアップテーブルやビューのドミノ-ディレクトリは、おそらく最も効率的な解決策です。

あなたがメールファイル名を持っている場合は、なぜあなたのキーとして使用していることをNABに検索を行うと、そのように完全な名前を取得できません？

あなたがインターネットアドレスをお持ちの場合は、単にNotesNameクラスを使用することができます。

Dim s As New NotesSession
Dim userName As NotesName
Dim canonicalName as String

Set userName = s.CreateName("user@yourdomain.com")
'You can use the previous line or the next line to get the NotesName object
'Set userName = new NotesName("user@yourdomain.com")

canonicalName = userName.Canonical
ライセンス： CC-BY-SA と 帰属
所属していません StackOverflow
scroll top