Beiträge von GerdH

Hallo,

es kann auch sein, dass zu dem Wert im Feld "Vermittler" kein Eintrag in der Ansicht "Vermittlererfassung" vorhanden ist.
Das kannst Du mit @IsError oder im DBLookup mit dem weiteren Parameter [FailSilent] abfangen.

Gruß,
GerdH

Hi Dirk,

leider sind unter dem Pfad keine weiteren RegEinträge vorhanden - oder zumindest darf ich sie mit meiner User-Berechtigung nicht sehen...

Gruß,
Gerd

Hallo Domino-Forum,

nach der Umstellung von Notes 6.5 / Office 2003 auf Notes 8.5 / Office 2010 funktioniert eine Anwendung nicht mehr, die per OLE-Automation Daten aus einer Notes-Maske in ein Word-Dokument übernimmt.
Nach dem Erzeugen des Word-Objekts erscheint die Fehlermeldung "Automation object error" (in der Zeile, wo die Datei geöffnet werden soll).
Die Fehlermeldung bleibt aus, wenn ich nach der Erzeugung des Word-Objekts eine Pause einbaue - dann funktionierts wieder wunderbar.

Hat jemand schon ähnliche Erfahrungen gemacht?
Gibt es einen eleganteren Weg, als die Pause einzulegen? (Ich konnte keine Funktion wie z. B. Application.IsReady o. ä. finden)

Danke,
GerdH

...
'Word öffnen und unter neuem Dateinamen speichern
	Set wdApp = CreateObject("Word.Application")
	If wdApp Is Nothing Then
		MeMWord_createWordDocument = "Word-Objekt konnte nicht erstellt werden."
		Exit Function
	End If
	Sleep 5		'Pause, sonst "Automation object error"
	wdApp.Visible = True
	wdApp.Documents.Open sWordPathVorlageDatei
	Set wdDoc = wdApp.ActiveWindow.Document

	'Felder im Word-Dokument setzen
	wdDoc.Fields.Item(1).Result.text = sVNAnrede
	wdDoc.Fields.Item(2).Result.text = sVNName
	wdDoc.Fields.Item(3).Result.text = sVNStrasse
	wdDoc.Fields.Item(4).Result.text = sVNOrt
...

Mit der LotusScript-Fuinktion Dir() kannst Du prüfen, ob eine Datei vorhanden ist.
Je nach Bedarf kannst Du die Prüfung ins QueryOpen oder in die Schaltfläche einbauen.

Vielleicht nützt Dir auch die Option "Anonyme Maske" in den Maskeneigenschaften.

Mit der Formel und dem Textfeld sollte es funktionieren.

Beim Optionsfeld musst Du wahrscheinlich die Alias-Werte ("1" bzw "3") verwenden.
Wahrscheinich musst Du das Dokument nur noch aktualisieren (manuell F9 oder Refresh im Exiting des Datum-Feldes).
Was steht nach dem Speichern in den Feldeigenschaften?

Gruß,
GerdH

Bei Mehrfachwerten wird es so Probleme geben.
Versuch es über die Backend-Klassen:

set doc = uidoc.Document
newDoc.SendTo = doc.Verteiler

Alternativ kannst Du die Werte mit Split() auftrennen. Dabei musst Du aber auf das richtige Trennzeichen (Feldeigenschaften) achten.
Schau Dir das ganze am besten im Debugger an. Dann kannst Du nachvollziehen, welche Werte in die Mail geschrieben werden.

Gruß,
GerdH

Hallo,

im IBM-Forum habe ich eine API-Dokumentation des View Applets gefunden.
Das bringt mich schon mal weiter voran..

Gruß,
GerdH

Messagebox in einem Backend-Agenten schreibt die Ausgabe auf die Console und in das Log (siehe Designer-Hilfe)

Hallo Dominoforum,

ich möchte die Diskussions-Datenbank erweitern, damit man eine Kategorie ausgewählter Dokumente auf einen Rutsch ändern kann.
Für den Notes-Client kein Problem - bei der Umsetzung fürs Web komme ich aber gerade nicht weiter:

In der Notes-Hilfe sind für Web-Agenten nur die Trigger Kein und Alle Dokumente aufgeführt.
Der Trigger "Alle ausgewählten Dokumente" führt dann auch zu einer Fehlermeldung "Unsupportet Trigger in the Search or Background Agent".

Kann mir jemand helfen, wie man an die Info kommt, welche Dokumente in einem Java-View-Applet selektiert sind?

Vielen Dank,
GerdH

Lotus Domino 6.53
IE 6.0

Bin wieder dabei

Deine Formel müsste wahr sein, wenn @Round zwischen 0,005 und 0,014999... liegt.
Das müsste ca. 1% entsprechen.

Alternativ kann die Formel auch so aussehen:

(@Random*100)<=1

Hallo Taurec,

in der Designer Hilfe 6.5.1 finde ich bei der Beschreibung der Methode keinen Hinweis auf eine Beschränkung.
Auch in 8.5 nicht: AppentRTItem
Wo finde ich denn die Beschränkungen in der Hilfe?

Die Ursache der Fehlermeldung konnten wir jetzt auf die Sicherheitseinstellungen in den Benutzervorgaben zurückführen.
Nachdem der Haken bei "Gespeicherte Kopie der gesendeten Mail verschlüsseln" entfernt wurde, hat alles wieder funktioniert.

Gruß,
GerdH

Hallo Taurec,

danke für den Hinweis, ich werde dies bei Gelegenheit mal umstellen.

Allerdings erklärt es nicht, wieso der Fehler nur bei einer Person auftaucht. Wird die Mail an einen Kollegen weitergeleitet, so kann dieser die Mail problemlos archivieren. Die Größe der Anhänge scheint auch nicht ausschlaggebend zu sein (Es wurden schon Mails >9MB problemlos so verarbeitet).

Gibt es nähere Infos, wo und wie das rtItem von der Methode beschnitten wird? In der Notes-Hilfe fand ich keinen Hinweis dazu. Gilt dies nur für den Text, der in dem rtItem steht? Wie werden die in dem rtItem befindlichen Anhänge behandelt? ...

Gruß,
GerdH

Hallo,

es handelt sich um eine eigene Erweiterung für die Überführung von Mails in unser Archiv-System.
Die zu archivierende Mail wird um eine xml-Datei mit Meta-Informationen erweitert und an eine bestimmt Adresse gesendet. Von dort holt sich das Archivsystem die Mails ab.

Die Fehlermeldung tritt nur bei einem Anwender auf. Der Fehler verweist auf die Zeile beim Versenden der Mail.

archivDoc.Send(False)

Beim Debuggen sind auch immer alle Objekte gesetzt.

Hat jemand diese Fehlermeldung schon mal gesehen?

Danke,
GerdH

Sub ArchivPostSaveExtension(Source As NotesUIDocument)

	On Error Goto Fehler

	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim archivdoc As NotesDocument

	Dim ArchivMailAddress As String
	Dim sSubject As String
	Dim FileName As String

	Set db = session.CurrentDatabase
	Set doc = source.Document


'Empfänger-Adresse aus Konfig-Datenbank auslesen	
	ArchivMailAddress = ...
	sSubject = "Archiv: " + doc.ArchivDocType(0)

'XML-Datei für Indizierung generieren
	FileName = MQGenerateXML(doc)	
	If FileName = "Error" Then
		Messagebox "Die Erzeugung der Archiv-Informationen ist fehlgeschlagen" & Chr$(13) & "Die Archivierung wird abgebrochen", 64, "Archivierung"
		Exit Sub
	End If

'Mail für Archivsystem erstellen	
	Set archivdoc = db.CreateDocument

	archivdoc.form 		= "Memo"
	archivdoc.SendTo 	= ArchivMailAddress
	archivdoc.Subject 	= sSubject

	Dim doc_from As NotesItem
	Dim doc_to As NotesItem
	Dim doc_cc As NotesItem		
	Dim doc_bcc As NotesItem	
	Dim doc_subject As NotesItem
	Dim body As NotesRichTextItem
	Dim rtbody As NotesRichTextItem

	Set doc_from = doc.getFirstItem("From")
	Set doc_to = doc.getFirstItem("EnterSendTo")
	Set doc_cc = doc.getFirstItem("EnterCopyTo")
	Set doc_bcc = doc.getFirstItem("EnterBlindCopyTo")
	Set doc_subject = doc.getFirstItem("Subject")

	Set rtbody = New NotesRichTextItem( archivdoc, "Body" )

'Header der ursprünglichen Mail im Body der Archiv-Mail erstellen	
	If GenerateArchivHeader(rtbody, doc_from.Text, doc_to.Text, doc_cc.Text, doc_bcc.Text, doc_subject.Text)  = False Then
		Messagebox "Die Archivierung wird abgebrochen", 64, "Archivierung"
		Exit Sub
	End If

'Original-Body an den Header anhängen	
	Set body = doc.GetFirstItem("Body")
	Call rtbody.AppendRTItem( body )
	Call rtbody.AddNewLine(2)

'XML-Datei anhängen	
	Dim XMLAttachment As NotesEmbeddedObject
	Set XMLAttachment = rtbody.EmbedObject( 1454, "", FileName )

'Mail an Archivsystem versenden	
	Call archivdoc.send(False)

	Messagebox "Die Mail wurde erfolgreich an das Archivsystem weitergeleitet!", 64, "Archivierung"

'Archiv-Zeichen entfernen
	Call doc.RemoveItem( "Archiv_flag2" )

	Call doc.Save(False, False)

Ende:	
	Exit Sub

Fehler:
	Messagebox "Fehler in Modul ArchivPostSaveExtensions!"+Chr$(13)+ Error + " in Line " + Cstr(Erl), 16, "Fehler bei Archivierung"
	Resume Ende


End Sub

mit css sollte es funktionieren:
SelfHTML, CSS-Formate einbinden

Definiere eine CSS-Klasse z. B.

@media print {
  .NoPrint {display:none}
}

...und weise diese den Elementen zu, die Du nicht drucken möchtest.

Gruß,
Gerd

nein, leider nicht.
Für unser Dokumentenmanagement habe ich die persönlichen Postkörbe schon um einige (LS-)Funktionen erweitert. Jetzt kam noch die PDF-Passwortprüfung obendrauf - wofür ich aber Java benötige.
LS2J scheint eine schnelle Möglichkeit zu sein, das da rein zu bekommen.
Ich hatte gedacht, das Dokument zu übergeben und die ganze Logik dann in Java abzuarbeiten.
Aber ich glaube, ich werde nun die Dokumente vorher abhängen und eine Liste der Dateinamen übergeben. Dann bin ich in Java wieder unabhängig von den Domino-Objekten.

Gruß,
Gerd

Hallo Matthias,

danke für die Infos.

Ich möchte ein umfangreiches LotusScript um eine Funktion erweitern, welche PDF-Anhänge auf Vorhandensein/Korrektheit von PDF-Lesepasswörtern prüft.
Das funktioniert mit iText in Java auch schon ganz gut. Für die Integration ins LotusScript schien mir LS2J ein Blick wert zu sein, weil ich direkt einen Rückgabewert bekommen kann.

Ich versuche dann mal über die AgentBase-Klasse meine Session zu bekommen.
Allerdings läuft mein LotusScript im QuerySave. Mal schauen ob das funktioniert....???

Gruß,
Gerd

Hallo Forum,

1. Wie sind Eure Erfahrungen mit LS2J? Kann man das bedenkenlos einsetzen oder gibt es Eurer Ansicht nach Einschränkungen?

2. Kann man auch richtige Objekte übergeben oder nur die von Domino nach Java umgesetzten Datentypen?

z. B. so?

Dim session As New notessession 
Set jSession = New JavaSession 
Set pbClass = jSession.GetClass("Test") 
Set pb = pbClass.CreateObject("(Llotus/domino/Session)V", session)

Oder wie kann ich in meiner Java-Klasse sonst eine NotesSession bekommen? Von AgentBase ableiten?

Danke für die Hilfe,
Gruß,
Gerd

Hallo,

morgen siehts bei mir schlecht aus.
Ich hoffe, dass ich es aber irgendwann auch mal schaffe...
Vielleicht mal direkt in Stuttgart?

Gruß,
GerdH