per skript doclink als mail senden

[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

[koehlerbv]

Was funktioniert denn konkret nicht bzw. welche Fehlermeldungen gibt es ?
Und Du verweist ja wieder auf die db statt auf udoc . Parameter 2 (Link) ist eine Variable, die Du nicht deklariert oder belegt hast.

[koehlerbv]

Wenn Du Mails aus einer DB heraus versenden willst, brauchst Du zwingend eine Vorgabe-Ansicht - genau das besagt auch die Fehlermeldung.

[gfunkus]

kann ich den 2ten parameter auch weglassen???

[gfunkus]

Sorry, aber
was denn eine vorgabe ansicht???

[Ralf_M_Petter]

Ich denke das ist am zweiten Reiter im Ansicht Konfigurieren Dialog die erste Checkbox. Einfach bei irgendeiner View anhaken.

Grüße

Ralf

P. S.  Bitte neben Notes Forum gehört auch die Designer Hilfe zu den unentbehrlichen Hiflsmitteln. Was eine Vorgabeansicht ist, bekommt man nämlich auch durch Suchen nach Vorgabeansicht in der Designer Hilfe heraus. Einfach mal probieren es lohnt sich.

[gfunkus]

danke! aber ich habe die designer hilfe in english und da hatte ich irgendiwe nix richtige darüber gefunden.. hat wer nen link wo ich die mal in german ziehen kann?


thx

Gfunkus

[koehlerbv]

Verträgst Du ein Mail mit einem 5,6 MB grossen Attachment ? Dann schicke ich Dir ein Zip-File ;-)
Hierzu bitte Mailadresse bekannt geben (Forumspost).

Die deutsche Designer-Hilfe ist aber auch in grossen Teilen englisch, aber die allgemeinen Beiträge sind eingedeutscht.

Bernhard

[koehlerbv]

Bevor jetzt jemand fragt, was für einen tollen Packer ich habe - ich blinde Nuß habe nicht gesehen, daß Gfunkus auf R6 ist.
Dann kämen also genau 5 MB dazu ...

[eknori]

öhm ( Stimme aus dem OFF ) Aber ermittelt man nicht das zum uidoc gehörende doc über

Set doc = uidoc.document ??

eknori

[koehlerbv]

Worauf in diesem langsam unübersichtlich werdenden Thread beziehst Du Dich ?
Set NotesDocument = NotesUIWorkspace.CurrentDocument.Document
geht (logischerweise), und eine andere Stelle habe ich jetzt nicht gefunden.

Sach ma an, Meister der API,
Bernhard

[eknori]

Sorry, möglicherweise habe ich was übersehen, aber in den letzten Postings ging es doch um die leidige Frage der Default View.
Abgesehen davon, daß man das ruhig einstellen sollte, ist der weg über uidoc.document doch einfacher, als erst in einem (extra ) zu erstellendem View anhand der DocID das BackendDoc zu suchen.

[koehlerbv]

Hi, Ulrich,

ich hoffe, wir mißverstehen uns jetzt nicht ...

Set uidoc = ws.CurrentDocument
set doc = uidoc.Document

ist doch das gleiche wie

set doc = ws.CurrentDocument.Document.

Massa Gfunkus holt aus doc doch nur einen Wert, den er für später braucht, und auf seinem uidoc basiert dann udoc. Sicherlich noch recht wirr, aber er scheitn ja auch (noch) vollkommener Anfänger zu sein.
Sein doc hat jedenfall mit dem ws.CurrentDocument nix zu tun, das sind zwei Paar Stiefel.

Oder ich bin blind, kann ja auch sein ;-)

Ciao,
Bernhard

[eknori]

Set   uidoc   =            ws.CurrentDocument
   
   Call uidoc.Refresh  
   Set   udoc      =            uidoc.Document

ja, ja, das leidige Problem der Variablenbenennung; da kann man schnell schon mal ein i übersehen  

Oder war es doch die türkische Sonne.... ??

[eknori]

Call rtitem.AppendDocLink ( db ,Link)

wollte gfunkus nicht auf das DOCUMENT verweisen ?? und welchen Wert nimmt die Varialble Link an ??

[koehlerbv]

Besser die türkische Sonne auf'n Kopf als 'n Kopfschuss in Israel ;-)

Da wir hier auch den ganzen Tag knalligen Sonnenschein hatten, habe ich natürlich auch Dein erstes Mail mißdeutet ...

Häff ä neiss iewening,
Bernhard