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):
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ß
Bei der Funktion:
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.