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.
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
This was first published in November 2001