title image


Smiley Re: ich würds mit Script versuchen...
Hallo Matthias,



anbei folgendes Script, mit dem Du aus einer Ansicht per PickList ein Dokument auswählst und dann den Link verschickst. Vielleicht hilfts.



Dim session As New NotesSession

Dim workspace As New NotesUIWorkspace

Dim db As NotesDatabase

Dim collection As NotesDocumentCollection

Dim coldoc As NotesDocument

Dim newDoc As NotesDocument

Dim rtitem As NotesRichTextItem



Set db=session.CurrentDatabase



Set collection = workspace.PickListCollection(1, True,"", "Test-DB.nsf","Ansicht","Dialog", _

"Please select a document.")

Set coldoc = collection.GetFirstDocument



Set newDoc = New NotesDocument( db )

Set rtitem = New NotesRichTextItem( newDoc, "Body" )

Call rtitem.AppendDocLink( coldoc, "Dokument" )

newDoc.Form = "Memo"

newDoc.Subject = "Here is the document You want"

newDoc.SendTo = "Empfänger"

newDoc.Send( False )





Gruß

FPN60



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: