Domino 9 und frühere Versionen > Administration & Userprobleme

MailSend in LS?

<< < (2/3) > >>

Axel:

--- Zitat von: immanuel am 27.09.04 - 10:34:53 ---Hallo Zusammen!
Erhalte ich Fehlermeldungen...

--- Ende Zitat ---

Hi,

du musst schon ein bisschen genauer werden.

Was für Fehlermeldung?  Wo rufst du dasd Script auf. Poste doch mal das gesamte Script.


Axel

immanuel:
Hallo!

Hier der Code, der einen Fehler ergibt, weil doc nicht vom Typ NotesDocument ist.


--- Code: ---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
--- Ende Code ---

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

Semeaphoros:
Versuchs mal mit

Call rtitem.AppendDocLink( doc.document, "comment")


Deine Variable Doc ist ein UIDocument nicht ein Document, das hier erforderlich ist. Siehe Hilfe .......

Axel:
Hi,

da fehlt was. Füge mal die beiden fettgedruckten Zeilen ein.


Function resolve
Dim workspace As New NotesUIWorkspace

Dim doc As NotesDocument

Set doc = workspace.CurrentDocument.Document



Axel

immanuel:
Hallo Zusammen

Mit:

--- Code: --- 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 )
--- Ende Code ---

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

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete