Hallo Zusammen!
Vielen Dank!
Ein Beispiel habe ich gefunden, dass mir nützlich ist. Jedoch wird beim Beispiel der Link auf eine DB angehängt und nicht der Link des aktuellen Dokuments. Ich möchte, dass ein Link des Dokuments wo ich gerade bin versendet wird. Wenn ich dies so versuche:
Dim workspace As New NotesUIWorkspace
Set doc = workspace.CurrentDocument
...
Call rtitem.AppendDocLink( doc, "blabla" )
Könnt ihr mir da weiterhelfen? Dake
Gruss
Manuel
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 )
Hier der Code, der einen Fehler ergibt, weil doc nicht vom Typ NotesDocument ist.
Function resolve
Dim workspace As New NotesUIWorkspace
Set doc = workspace.CurrentDocument
resolvedDate= doc.FieldGetText("ResolvedDate")
ticketStatus= doc.FieldGetText("iq_CurrStatus")
Set doc = workspace.EditDocument( True )
Call doc.FieldSetText("ResolvedDate",Date$) 'resolved Datum setzen
' Nur Status neu setzen, wenn Status geändert wurde
If ( ticketStatus <> "Resolved")Then 'check if status has changed
' Status has changed to resolved
Call doc.FieldSetText("StatusDate", Date$) 'set StatusDate
setStatus("Resolved")
Dim session As New NotesSession
Dim db As NotesDatabase
Dim newDoc As NotesDocument
Dim rtitem2 As NotesRichTextItem
Set db = session.CurrentDatabase
Set newDoc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( newDoc, "Body" )
Call rtitem.AppendDocLink( doc, "comment")
newDoc.Subject = "Here is a link to the database"
newDoc.SendTo = "Manuel Fischer"
newDoc.Send( False )
End If
Call doc.RefreshHideFormulas
Call doc.Refresh
End Function
Ich möchte ein Mail mit dem doclink auf das aktuelle Dokument erzeugen. Also in einer Helpdesk Datenbank dem dem Kunden ein Mail mit dem Doclink auf das aktuelel Dokument senden. In Formula Language geschieht dies über: @MailSend( CreatedFor:CreateFullName;"";""; "IT-Office has updated a Trouble-Ticket ":iq_Subject; "Please read the document: " ; ""; [IncludeDoclink]);
Danke für eure Hilfe
Grüsse
Manuel
Hallo Zusammen
Mit:
Dim doc2 As NotesDocument
Set doc2= workspace.CurrentDocument.Document 'aktuelles Dokuement für DocLink
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( doc2, "comment")
newDoc.Subject = "Here is a link to the database"
newDoc.SendTo = "Manuel Fischer"
newDoc.Send( False )
Erhalte ich die Fehlermeldung "Can't get default view id vor database..."
Tipps? Mussted ihr noch nie einen Doclink zu einem Doc senden :)?
Grüsse
Manuel