Domino 9 und frühere Versionen > ND6: Entwicklung

per skript doclink als mail senden

(1/6) > >>

gfunkus:
hallo,

wer kann mir helfen? wie kann ich auf das aktuell geöffnete Dokument in einer Mail verweisen... habe ein skript welches einene link für die datenbank ghenereirt aber wie öffne ich das geöffnete dokument???

Dim session As New NotesSession
Dim db As NotesDatabase
Dim newDoc As NotesDocument
Dim rtitem As NotesRichTextItem
Set db = session.CurrentDatabase
Set newDoc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( newDoc, "Body" )
Call rtitem.AppendDocLink( db, db.Title )
newDoc.Subject = "Here is a link to the database"
newDoc.SendTo = "Lauri Nodwell"
newDoc.Send( False )

koehlerbv:
Guckst Du in Designer-Hilfe ...
Was Du versendest (bzw. dieses Beispiel aus der Designer-Hilfe), ist ein Link auf die DB.
Für das Dokument übergibst Du das entsprechende Dokument, das Du natürlich vorher instantiieren mußt.

Mit ein bißchen Zusatzinfo können wir da vielleicht auch helfen.

Bernhard

Ralf_M_Petter:
Denke nicht weiter schwierig:

Dim session As New NotesSession
Dim ws as New NotesUiWorkspace
Dim db As NotesDatabase
Dim newDoc As NotesDocument
Dim rtitem As NotesRichTextItem
Set db = session.CurrentDatabase
Set newDoc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( newDoc, "Body" )
Call rtitem.AppendDocLink( ws.currentDocument.Document, "Dokument" )
newDoc.Subject = "Here is a link to the database"
newDoc.SendTo = "Lauri Nodwell"
newDoc.Send( False )

Ich denke das funktioniert.

Grüße

Ralf

gfunkus:
wie gesagt das skript befindet sich in einem speichern button... habe versucht das instanzierte "uidoc" statt doc zu nehmen aber das geht nicht???


Dim   ws      As   New   NotesUIWorkspace
   Dim   session      As   New   NotesSession
   Dim   doc      As         NotesDocument
   
   Dim   ReItm   As         NotesItem
   
   Dim vw As notesview
   Dim db As NotesDatabase
   
   
         ' hole information der leser welche ins leserfeld eingetragen werden
   Set db = session.CurrentDatabase
   Set vw = db.GetView ("VS033_ModAuLe" )
   Set doc = vw.GetDocumentByKey ("KON")
   tmpLeser = doc.FS033NLeser
   
   
   
   
   
   
   
'   Document abspeichern
   Set   uidoc   =            ws.CurrentDocument
   
   Call uidoc.Refresh   
   Set   udoc      =            uidoc.Document
'   Set   db         =            sess.CurrentDatabase   
'   doc.Form               =   ("FW009_Task")   
   'Auslesen der nötigen Informationen zu Mailgenerierung
   DlgEmpf = session.UserName
   Aufziel = udoc.FW009NTaskTgt(0)
   TskAut = udoc.Autoren
   If udoc.FW009NStatus(0)="1" Then udoc.Leser = tmpLeser

   
   
 'generiere mail
   Dim sess As New NotesSession
   Dim newDoc As NotesDocument
   Dim rtitem As NotesRichTextItem
   
   Set db = sess.CurrentDatabase
   Set newDoc = New NotesDocument( db )
   Set rtitem = New NotesRichTextItem( newDoc, "Body" )
   Call rtitem.AppendDocLink ( db ,Link)
   newDoc.Subject =    "Aufgabe " + " von " + Cstr(DlgEmpf)
   newDoc.SendTo = TskAut
   Call newDoc.Send( False )   
   
   
   
   
   Call udoc.save(True, False)
   Call uidoc.close   
   
   
   
   
   
   Call ws.CurrentDocument.Close()

gfunkus:
@ralf habe ich auch schon versucht aber der meint could nt find default view id oder so??? woran liegt das?


Gfunkus

Navigation

[0] Themen-Index

[#] Nächste Seite