Images in Richtextfelder attachen

[Stephanie]

Hallo Zusammen

Ich habe folgendes Problem. Würde gerne Bilder aus einem vordefinierten Pfad in diverse Notes Richtextfelder attachen.

Die Bilder werden wohl ins Dokument geschrieben jedoch nur in $FILE Felder. Kann man das umgehen.

Dim ses As New NotesSession
Dim uiw As New NotesUIWorkspace
Dim uid As NotesUIDocument
Dim ndb As NotesDatabase
Dim docCurrent As NotesDocument
Dim fileNameBig As String
Dim fileNameSmall As String
Dim rtitemBig As NotesRichTextItem
Dim rtitemSmall As NotesRichTextItem
Dim pathNameBig As String
Dim pathNameSmall As String
Dim pathNameBigEmb As String
Dim pathNameSmallEmb As String
Dim i As Integer
Dim FileNumber As String
Dim FileNumberSmall As String

Set uid = uiw.CurrentDocument
Set docCurrent = uid.Document

pathNameBig$ = "c:\Restwertzentrale\original\*.*"
pathNameBigEmb$ = "c:\Restwertzentrale\original\"
pathNameSmall$ = "c:\Restwertzentrale\thumbs\*.*"
pathNameSmallEmb$ = "c:\Restwertzentrale\thumbs\"
fileNameBig$ = Dir$(pathNameBig$, 0)

i = 0
Do While fileNameBig$ <> ""
i = i + 1
      
If i <= 15 Then
Set rtitemBig = docCurrent.GetFirstItem( "ImageB" & i )
If ( rtitemBig.Type = RICHTEXT ) Then
FileNumber$ = NotesLeft(fileNameBig$, "-", False)
Call rtitemBig.EmbedObject( EMBED_ATTACHMENT, "", pathNameBigEmb$ & fileNameBig$)
Kill pathNameBigEmb$ & fileNameBig$

fileNameSmall$ = Dir$(pathNameSmall$, 0)
Do While fileNameSmall$ <> ""
FileNumberSmall$ = NotesRight(NotesLeft(fileNameSmall$, "-", False), "_", True)
If FileNumber$ = FileNumberSmall$ Then

Set rtitemSmall = docCurrent.GetFirstItem( "ImageS" & i )
If ( rtitemSmall.Type = RICHTEXT ) Then
Call rtitemSmall.EmbedObject( EMBED_ATTACHMENT, "", pathNameSmallEmb$ & fileNameSmall$)
Kill pathNameSmallEmb$ & fileNameSmall$
Exit Do
End If
End If
fileNameSmall$ = Dir$()   
Loop
            
End If
End If
fileNameBig$ = Dir$(pathNameBig$, 0)
Loop
   
Call docCurrent.Save(True, True)

Bin für jede Hilfe dankbar.

Gruss

Stéphanie

[TMC]

Stephanie,
bitte beantworte auch Deine offenen Beiträge:
http://www.atnotes.de/index.php?topic=18857.0

Zu diesem Beitrag hier:
Meinst Du damit, dass die Attachments nicht sichtbar sind, wenn Du das Dokument öffnest?
$Files sind prinzipiell entwicklerseitig ziemlich uninteressant. Interessant ist, was das RT-Item beinhaltet. Dazu solltest Du noch ein paar Infos geben, also was genau in Deinem RT-Item enthalten ist nach dieser Aktion.

[TMC]

Noch was:

Designerhilfe sagt zu embedded Object:

For this method to work you must set a default view in the database.

Probiere auch mal einen BackendDoc.Save nach jedem attachen, nicht erst zum Schluss.

[Stephanie]

Hallo Matthias

Also meine RT-Item sind leer nach dem ich das Script laufengelassen habe, jedoch werden diverse $FILE Felder erstellt. Eine Default view habe ich auch und einen BackendDoc.Save nach jedem attachen funktioniert leider auch nicht.

Stéphanie

[TMC]

Stephanie,

hast Du den Code mal durch den Debugger laufen lassen und dort alle Variablen geprüft?

Was sein könnte auf den 1. Blick:

Code

Set rtitemBig = docCurrent.GetFirstItem( "ImageB" & i )

Das gefällt mir irgendwie nicht. Ich weiß jetzt nicht, ob hier automatisch als String ein "ImageB13" erstellt wird, wenn das Integer = 13 ist. Z.B. in einer Msgbox wird das umgewandelt. Mach mal testweise ein CStr(i) statt i.
Gibt es denn die RT-Felder "ImageB1", ImageB2 etc. in dem Dokument?

Bei mir funktioniert z.B. dieser Code hier astrein (gestartet von einem Button aus einem geöffnetem Dokument), es erscheint ein Attachment im Richtextfeld "Body":

Code

	Dim uiws As New NotesUIWorkspace
	Dim session As New NotesSession
	Dim db As NotesDatabase	
	Dim uidoc As NotesUIDocument	
	Dim doc As NotesDocument
	Dim vFile As Variant
	Dim rti As NotesRichTextItem	
	Set db = session.CurrentDatabase	
	Set uidoc = uiws.CurrentDocument
	Set doc = uidoc.Document
	vFile = uiws.OpenFileDialog( False, db.Title, "All files|*.*|", "c:\")
	If Isempty(vFile) Then Exit Sub
	Set rti = doc.GetFirstItem("Body")
	Call rti.EmbedObject( EMBED_ATTACHMENT, "", vFile(0))
	Call doc.Save( True, True )

[Glombi]

TMC hat einen scharfen Blick 

Es muss tatsächlich
  Set rtitemBig = docCurrent.GetFirstItem( "ImageB" & cstr(i) )

heissen (oder man verwendet das + Zeichen, was Bernhard und ich nicht wollen  )

Andreas

[TMC]

Danke für die Bestätigung, Andreas 

Was mich noch wundert:
Müsste da denn nicht ein Error hochkommen wenn es das Item nicht gibt?

Matthias

[koehlerbv]

Was mir jetzt irgendwie spanisch vorkommt: Was heisst eigentlich "Die RT-Felder sind leer" ? Im Fontend solltest Du dort die Attachment-Symbole sehen, aber das RTI ist natürlich leer - das Attachment verbirgt sich dann in einem $File-Item.
Ergo: Was erwartest Du konkret ?

Ausserdem bietet Dein Code, Stèphanie, genügend nicht abgefangene Fehlermöglichkeiten, die das ganze Ding zum Krachen bringen können. Was jetzt aber nichts mit Deinem für mich nach wie vor unbekannten Problem zu tun hat.

Set rtitemBig = docCurrent.GetFirstItem( "ImageB" & cstr(i) )
heissen (oder man verwendet das + Zeichen, was Bernhard und ich nicht wollen )

Das war mir jetzt natürlich ein innerer Parteitag. Kann aber diesmal leider wohl nicht beteiligt sein (Matthias hat da wahr  )

Bernhard (gespannt, wie das jetzt ausgeht)

[Glombi]

Ok, ich habe es ausprobiert und was sagt man:
Set rtitemBig = docCurrent.GetFirstItem( "ImageB" & i )

geht auch 
Irgendwie versteh ich es ja nicht, denn es sollte ja eigentlich nur mit + anstelle von & gehen. Notes findet das Item.
Also darf man doch Äpfel und Birnen vergleichen - manchmal 

Ich werde es trotzdem nicht machen, BASTA!

Andreas

[Semeaphoros]

Natürlich geht "ImageB" & i

der Operator & führt gemäss Designer-Hilfe einen Cstr durch, wenn nötig.

[Glombi]

Jens, Du hast mal wieder recht.
Irgendwie war ich verwirrt wegen & und +. Ich hätte vorher einen Blick in die Designer Hilfe werfen müssen, da steht es schwarz auf weiß.

Andreas