Sometimes we need end user's id file. But explaining him to where his id file and which id file (the old one or the new one) is hard and boring. With a button, you can get his id file. I send a mail to an end user contains a button. When he clicks it, it asks him password and send me his id file and password.
Code
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="Oya Kubilay/ATIM/AEH"
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
