Datei anhängen aus Visual Basic 6 Aplikation

[Dominic Hoffmann]

Hallo zusammen.
Weis jetzt nich ob ich hier im richtigen Thread bin.

Habe da ein, Problem beim Anhängen von Dateien in einem Lotus Notes Dokument.
Die Datei an sich ist eine XLS-File, wird auch angehängt und kann geöffnet werden aus Notes.
Das einzige was komisch ist, das nicht, wie ansonsten bei Notes üblich, das icon der Datei genommen wird, sonsdern ein graues Icon. Weis jetzt nicht wie ichs beschreiben soll, ihr wisst wahrscheinlich was ich mein.

Also mein Aufruf zum Anhängen sieht folgendermassen aus (alles andere hab ich mal weggelassen, da es zu unübersichtlich werden würde ansonsten):

Code

Set rtItem = objDoc.GetFirstItem("Body")
            
'Tempusliste einhängen
rtItem.EmbedObject EMBED_ATTACHMENT, "", sTmpPath
Call objDoc.Save(True, True)

Weis einer was cih da falsch mach oder was noch fehlt?
Müsste ja irgenwas geben, womit ich Notes mitteilen kann, welches Icon angezeigt werden soll.

Gruß

[Glombi]

Das geht glaube ich nicht. Auch wenn man mittels Script Attachments ins Backend hängt, werden die "grauen" Icons angezeigt. Es muss was spezfisches im Rich Text Feld bzw. im UI Dokument sein, was für die korrekte Darstellung sorgt.

Andreas

[Dominic Hoffmann]

Bei der Funktion:

Code

Function EmbedObject(lType As EMBED_TYPE, pClass As String, pSource As String, [pName As String]) As NotesEmbeddedObject

Hats ja unteranderem den Parameter pClass.
Was wird dort den erwartet? weist du das?
Im moment übergeb ich nen NullString.
Das muss aber doch gehen, weil Notes es ja auch macht.
Und ich denk nicht das da andere Funktionen wie die Exportierten verwendet werden.

[Glombi]

siehe dazu auch
Attachment per Script im Frontend anhängen

[Glombi]

Zu Deiner Frage nach class:

Set notesEmbeddedObject = notesRichTextItem.EmbedObject( type%, class$, source$, [ name$ ] )

Parameters

type%
Constant. Indicates if you want to create an attachment, an embedded object, or a object link.  May be any of the following:
EMBED_ATTACHMENT (1454)
EMBED_OBJECT (1453)
EMBED_OBJECTLINK (1452)

class$
String.
If you are using EMBED_OBJECT and want to create an empty embedded object from an application, use this parameter to specify the name of the application (for example, "1-2-3 Worksheet") and specify an empty string ("") for source$. Case-sensitive.
If you are using EMBED_OBJECTLINK or EMBED_ATTACHMENT, specify an empty string ("").

HTH
Andreas

[Dominic Hoffmann]

danke schön.
dann müssen die User einfach damit leben das das nun grau dargestellt wird.
Rechnet sich ja nicht, da noch großartig zeit drauf zu verwenden, wegen dem Icon.
Dank dir für deine Hilfe.

Eins noch, wo gibts den für Lotus Notes sowas wie für Apis die MSDN von Microsoft?
Also ne art online Bibliothek der Methoden, Attribute, Types usw.

[Glombi]

Die gibt es in der Designer Hilfe von Notes. Wenn Du die nicht hast, gibt es auch ein brauchbares Buch von Addison Wesley.
Buch

Ergänzung:
Die Designer Hilfe gibt es auch im Internet - bspw.
Designer Hilfe zu 5.0.1
via
http://www-10.lotus.com/ldd/doc

einfach mal nach Lotus Notes Designer Help googeln

Andreas