Hi Experten,
wir haben ein dringendes problem
Nach einspielen des SSL Zertifkates kann unser Java Applet nicht mehr auf die Domino dxml Dokumente(Readviewentries) zugreifen
Und es wird folgende Fehlermeldung ausgegeben:
javax.net.ssl.SSLHandshakeException: unknown certificate
Wir haben versucht das zertifikat in dem Java Zertifikats Speicher auf zu nehemen (-keytool ) hatten jedoch keinen Erfolg.
Um eine schnelle Hilfe wären wir dankbar
Hi kennt keiner dieses Problem,
oder ist es nicht lösbar?
Hallo Experten,
in der Diskussiondatenbank von Notes 6 gibt es die Möglichkeit per Web Interface ein Thema dem Interessenprofil hinzu zu fügen.
Nachdem ich dem Agenten "WebAddTopic" die Berechtigungstufe auf 2 gesetzt habe sagt er mir das der Agent dieses Thema dem Intressenprofil hinzugefügt hat.
Nun das Problem ich sehe es aber in meinem Intressenprofil nicht.
Wo liegt der Fehler oder ist es ein Bug?
Wie gesagt es geht nur im Web Nicht
Hallo Experten,
ich habe eine DB mit 3665 Datensätzen. Beim ersten öffen der Datenbank erscheint die Meldung
"Diese Ansicht wird aktaulisiert. Sie wird angezeigt sobald die Aktualisierung abgeschlossen wird."
Wie kann ich verhindern das diese Meldung nicht mehr erscheint?
Gibt es einen Agenten der mir die Ansicht oder DB öffnet bevor es der Anwender dies macht?
Die DB wird jeden Abend per Agent komprimiert
Hi,
der Agent steigt immer noch beim Embedd Attachemnent aus.
Habe mal folgendes auspropiert:
Im Dokumnet wo das Bild importiert werden soll habe ich eine Schaltfläche eingebaut mit folgender Formel was auch funktioniert
BildPfad :="c:\\bilder\\";
BildArtikel :=Artikelnummer+".jpg";
@Command([EditDocument]);
@Command([EditGotoField];"Bild");
@Command([FileImport]; "JPEG Image";BildPfad +BildArtikel);
@Command([FileSave]);
@Command([FileCloseWindow])
Nun zu meiner Frage kann ich per Agent für ausgewählte Dokumente diese Formel ansprechen wenn Ja sagt mir bitte wie
Hi,
habe das mit dem dim des rtitem as variant probiert aber es funzt immer noch nicht. Was mache ich falsch???
Hallo ich weiß das einige es nicht mögen das man hier Scripts ablegt aber ich mache es zum besseren Verständnis.
Also das folgende Script zum Import vom JPG Files
Bei "Set object = rtitem.EmbedObject(EMBED_ATTACHMENT, "", filename) bekomme ich die Fehlermeldung Object variable not set
On Error Goto ErrHandler
Dim session As New NotesSession
Dim db As NotesDatabase
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Dim filename As String
Dim ImageType As String
Dim ImageHeight As String
Dim ImageWidth As String
Dim ImageDepth As String
' Open a dialogbox and allow users to select from a list of files
' NB: PNG is missing from here as Notes can't import PNG image types.
files = workspace.OpenFileDialog(True, "File List", "Supported Images|*.jpg;*.bmp;*.gif", "C:\")
If Isempty(files) Then Exit Sub ' Exit if the user selects the Cancel button
Forall FileList In files ' Loop through the list of files selected
Filename = Filelist ' Get the current filename
' GetImageProperties returns an array of ImageType, height, width and bit-depth
imgProps = GetImageProperties(Filename)
ImageType = imgProps(0) ' Get the image type, BMP-GIF-JPEG-PNG
ImageHeight = imgProps(1) ' Get the image height
ImageWidth = imgProps(2) ' Get the image width
ImageDepth = imgProps(3) ' Get the image bit-depth
' Now, we will create a new document and attach the selected image to it.
Set db = session.CurrentDatabase ' Get the current database
Set coll=db.unprocesseddocuments
Set doc=coll.getfirstdocument
'Set rtitem = doc.GetFirstItem( "Bild" )
'######
'filename = "c:\\65003.jpg"
'
Set rtitem = doc.GetFirstItem("Bild")
Set object = rtitem.EmbedObject ( EMBED_ATTACHMENT, "", filename) ' Attach the file to it
'Set rtitem = New NotesRichTextItem( doc, "Bild" ) ' Create a new richtext item
Set object = rtitem.EmbedObject ( EMBED_ATTACHMENT, "", filename) ' Attach the file to it
doc.Form = "Document" ' Set the form name
'doc.HEIGHT = Cint(ImageHeight) ' Write the height
'doc.Width = Cint(ImageWidth) ' Write the width
'doc.colordepth = Cint(ImageDepth) ' Write the colour depth
'doc.filesize = Filelen(filename) ' Write the filename
Call doc.Save( True, True ) ' Save the backend document
' Once we have attached the image, we can open the document in the front-end and
' import the same file so we have a preview version.
Set uidoc = workspace.EditDocument( True, doc ) ' Open the backend doc in the UI
'Call uidoc.GotoField( "Bild" ) ' Make the ImageView field the focus
Select Case Imagetype ' Select which image type this file is
Case "GIF":
Call uidoc.Import("GIF Image",filename) ' Import the GIF image into the field
Call uidoc.fieldsettext("ImageType", "GIF Image") ' Set the Image type field
Case "JPEG":
Call uidoc.Import("JPEG Image",filename) ' Import the JPEG image into the field
'Call uidoc.fieldsettext("ImageType", "JPEG Image") ' Set the Image type field
Case "PNG":
' NB: This will never happen as Notes doesn't import PNG files although it's there if we need it
Call uidoc.Import("PNG Image",filename) ' Import the PNG image into the field
Call uidoc.fieldsettext("ImageType", "PNG Image") ' Set the Image type field
Case "BMP":
Call uidoc.Import("BMP Image",filename) ' Import the BMP image into the field
Call uidoc.fieldsettext("ImageType", "BMP Image") ' Set the Image type field
End Select
Call uidoc.FieldSetText("Filename", filename) ' Set the filename field
uidoc.CollapseAllSections ' Collapse the preview section
uidoc.save ' Save the UI Doc
uidoc.close ' Close the UI Doc
End Forall ' loop through any of the remaining files
'############################################################################################
errPos = 10
ExitSub:
Exit Sub
ErrHandler:
Print ">> Fehler in dem Bildimport: " & Error & " in Zeile " & Erl & " !!!"
Select Case errPos
Case 10: Resume ExitSub
'Case 20: Resume LBLPOS30
'Case 30: Resume LBLPOS40
'Case 70: Resume LBLPOS80
Case default: Resume ExitSub
End Select
Resume exitsub
Bei "Set object = rtitem.EmbedObject(EMBED_ATTACHMENT, "", filename) bekomme ich die Fehlermeldung Object variable not set
Hi,
habes es mit dem Befehl
call notesRichTextItem.EmbedObject( EMBED_OBJECT, "", "pfad auf die bilddatei")
probiert aber es funzt nicht benötige bitte dazu noch mehr info.
Hallo,
hat jemand von euch schonmal einen Agenten geschrieben der per Script JPG Files in ein Dokument speichert ( Richtext Feld). Und danach sollen beim öffnen des jeweiligen Dokumentes die Bilder sichtbar sein.
Wäre dankbar wenn man mir wenigstens ein Beispiel geben kann wie ich das am besten lösen kann.
Danke im voraus.
Danke rubbeldidup
guter tip gewesen und hat mir auch direkt weitergeholfen vor allem Export To Excel 2.0 ist richtig Klasse.
Wusste doch das es Leute mit guten Ideen in diesem Forum gibt.
Hallo Rubbeldidupp,
mit dem Unproccessed Proberty habe ich schon probiert. Nur das Script steigt an der stelle
xlSheet.Cells(ii, ia+1).Value = doc.ColumnValues( i )
aus mit der meldung das der wert nicht gesetzt werden kann. Also wenn ihr dazu eine Lösung dazu habt teilt sie mir bitte mit. Es ist dringend
Hallo Leute,
hatte auch nicht vor von irgendjemand mein Skript debuggen zu lassen. Wenn der export nach csv das Ergebnis gebracht hätte, wie ich es mir vorstelle hätt ich dies auch getan.
Aber da es in diesem Forum auch Leute gibt die auch gute Ideen haben und das Problemm vielleicht schon gelöst haben und sich von einem bisschen Skript nicht aus der Fassung bringen lassen, erhoffe ich mir natürlich Hilfe.
Hallo Leute,
wie muss ich folgendes Script ändern das ich aus der Ansicht nur die markierten Felder nach Excel exportiere und NICHT ALLES.
Sub Initialize
On Error Goto errSub
Dim ses As NotesUIworkspace
Dim vw As NotesView
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set ses = New NotesUIWorkspace
Set vw = ses.currentview.view
Dim xlApp As Variant
Dim xlSheet As Variant
Set xlApp = CreateObject("Excel.application")
xlApp.StatusBar = "WorkSheet wird erstellt. Bitte warten..."
xlApp.Visible = True
xlApp.Workbooks.Add
xlApp.ReferenceStyle = 2
Set xlSheet = xlApp.Workbooks(1).Worksheets(1)
xlsheet.Name = "Excel Druckvorlage"
i=1
ia=1
Forall c In vw.Columns
If Trim(c.Title)<>"" Then
xlSheet.Cells(1, ia).Value = c.Title
ia=ia+1
End If
i=i+1
End Forall
ii=2
Set doc = vw.GetFirstDocument
While Not(doc Is Nothing)
i=0
ia=0
Forall c In vw.Columns
If Trim(c.Title)<>"" Then
xlSheet.Cells(ii, ia+1).Value = doc.ColumnValues( i )
ia=ia+1
End If
i=i+1
End Forall
ii=ii+1
Set doc = collection.GetNextDocument(doc)
Wend
On Error Resume Next
xlSheet.Cells.Select
xlApp.Selection.Columns.AutoFit
xlSheet.Rows("1:1").Select
xlApp.Selection.Font.Bold = True
exitsub:
On Error Resume Next
xlApp.StatusBar = ""
xlApp.Visible = True
Exit Sub
errsub:
Print Error & "/" & Erl
Resume exitsub
End Sub
Funktioniert leider auch nicht im Bearbeitungsmodus des Dokuments.
Also doch ein Bug von Notes!
Hi.
Warum kann Notes nicht ein JPG File und Text in die Zwischenablage kopieren??
Oder doch wenn ja bitte mir mitteilen.
Hi benötige Hilfe,
folgendes Problem meine Maske hat ein richtext Feld wo der Anwender (Editor) jpg Bilder einfügen kann.
Nun das Problem wenn die Maske nicht im Bearbeitungsmodus ist kann man das Bild zwar markieren aber es wird nicht in die Zwischenablage kopiert (STRG+C) um dann in Word das Bild einzufügen.
Ist die Maske aber im Bearbeitungsmodus funktioniert das ganze.
Also hat da jemand einen Lösungsvorschlag
Hi Leute,
habe einen Agenten in Java geschrieben um aus die ausgewählten Dateien einer der Ansicht ins Clipboard zu kopieren.
Diese Agent läuft auf einem Windows Client problemlos unter dem MAC OS 9 client erscheint die Fehlermeldung #3e:00
Hat jemand damit schon erfahrungen gemacht und kann mir weilterhelfen???
Nun zur Syntax:
import lotus.domino.*;
import java.awt.*;
import java.awt.datatransfer.*;
public class JavaAgent extends AgentBase {
public String sc(java.util.Vector a) {
String wtext = "";
try {
wtext = "" + a.elementAt(0);
wtext = wtext.trim() + "\t";
} catch(Exception e) {
wtext = "";
}
return wtext;
}
public void NotesMain() {
try {
Session session = getSession();
AgentContext agentContext = session.getAgentContext();
DocumentCollection dc = agentContext.getUnprocessedDocuments();
Document doc;
String text = "";
Clipboard clip = Toolkit.getDefaultToolkit().getSystemClipboard();
int size = dc.getCount();
for (int i = 1; i <= size; i++) {
doc = dc.getNthDocument(i);
//text += " " + doc.getItemValue("TITEL").elementAt(0) + " " + doc.getItemValue("Bild").elementAt(0) + " " + doc.getItemValue("ArNr").elementAt(0) +" "+ " \n"+doc.getItemValue("Prseinh").elementAt(0) + " VE:" + doc.getItemValue("MEEH").elementAt(0) + " \n";
text += sc(doc.getItemValue("Titel")) + sc(doc.getItemValue("Bild")) + sc(doc.getItemValue("ArNr")) +sc(doc.getItemValue("Preiszeile"))+ "VE: "+sc(doc.getItemValue("Verpeinh"))+ " \n";
}
StringSelection ss = new StringSelection(text);
clip.setContents(ss,null);
} catch(Exception e) {
String mesg;
mesg = e.getLocalizedMessage() + e.getMessage()+e.toString();
System.out.println("Kopieragent " + mesg);
e.printStackTrace();
}
}
}
Ein anderer leerer Agent liefert dieselbe Fehlermeldung:
mport lotus.domino.*;
import java.awt.*;
import java.awt.datatransfer.*;
public class JavaAgent extends AgentBase {
public void NotesMain() {
try {
System.out.println("Kopieragent ");
} catch(Exception e) {
}
}
}
Hi Ronka,
wenn du mir jetzt noch sagst wie ich das beim Click auf den Gliederungseintrag bekomme wäre ich dir sehr dankbar.
Hallo Ronka,
danke für die schnelle Antwort kannst du mir bitte ein Beispiel dazu geben. Oder besser mir sagen wie ich da genau vorgehen muss.
Hi Leute,
habe in Notes ein Gliederung in der mehrere Gliederungseinträge vorhanden sind. Wenn der Anwender auf eine bestimmte Gliederung z.B. 'Gehalt' sollte sich beim öffnen der Ansicht eine Passwortabfrage stattfinden und erst nach eingabe dieses Passwortes die Ansicht öffnen.
