MailSend in LS?

[immanuel]

Hallo Freunde

Ich möchte ein Mail mit LS senden. Am besten die gleiche Funktion wie @Mailsend mit dem Doclink. Gibts die Funktion in LS?
Klappt ansonnsten Evaluate mit MailSend gut?

Grüsse
Manuel

[koehlerbv]

Siehe die NotesDocument class. Dort gibt es die Send-Methode (incl. Beispiel).

HTH,
Bernhard

[Axel]

Hi,

oder siehe NotesUIDocument-Klasse. Auch hier gibt es eine Send-Methode.


Axel

[Glombi]

Wenn Du einen Doclink senden willst, musst Du die Send Methode der NotesDocument Klasse verwenden. Für den Doklink brauchst Du noch ein NotesRichTextItem mit der Methode
AddDoclink( ... )

Beispiele dazu gibt es in der Designer Hilfe.

Andreas

[immanuel]

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:

Code

Dim workspace As New NotesUIWorkspace
Set doc = workspace.CurrentDocument
...
Call rtitem.AppendDocLink( doc, "blabla" )

Erhalte ich Fehlermeldungen...

Könnt ihr mir da weiterhelfen? Dake

Gruss
Manuel

Code

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 )

[Axel]

Hallo Zusammen!
Erhalte ich Fehlermeldungen...

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

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 ) 

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

[Driri]

Die Fehlermeldnug sagt doch alles : Es gibt keine Standardansicht in der Datenbank.

[immanuel]

Wieso braucht es für einen Doclink eine Standartview? Kling dies nicht etwas verdächtig?

Grüsse
Manuel

[Driri]

Nein, für bestimmte Funktionen benötigt Notes eine Standardview.

[immanuel]

Lustig finde ich, dass ich über einen Navigator eine Standartview festgelegt habe. Es ist eine Öffentlich, bei 1ter Verwendung private View. Dies nennt man schon Standart View, oder? Oder wo definiere ich diese?

Naja...

Wenn ich könnte würde ich sofort auch FormulaLanguage wechseln. Vielleicht muss ich Evaluate in Betracht ziehen Apropos Evaluate, hat dies schonmal jemand für MailSend hingekriegt? Wenn ja, wäre ich froh um ein Codebeispiel.

Grüsse
Manuel