Domino 9 und frühere Versionen > Entwicklung

rtitem ???

<< < (2/2)

Myron:
@Axel

habe zu schnell reagiert und mich geirrt! Hast recht, das braucht man! Wurde schon ausgebessert!

Grüße

Don Pasquale:
Hallo Axel,

vielen Dank, da hätte ich lange suchen müssen,
da wäre ich nie drauf gekommen. Ich dachte das sei
der Typ und kein Name. :-)


--- Zitat von: Axel am 13.11.02 - 14:16:56 ---Hi,

ich denke "der Hund liegt hier gegraben".

Set object = rtitem.GetEmbeddedObject("Microsoft Word Document")

Als Parameter erwartet die Methode einen Dateinamen. Ich denke mal das es so ausehen sollte:

Set object = rtitem.GetEmbeddedObject("document.doc")
         

--- Ende Zitat ---


Stimmt, da liegt der Hase im Pfeffer. Hardkodiert funktioniert die Sache auch. In welche Richtung muss ich suchen, damit ich von meinem Attachment den Namen bekomme ?
Die sollen ja nicht alle gleich heissen .

Axel:
Hi,

ich hab das mal so gemacht:

Dim strDateiname As String
...
Set rtitem = doc.GetFirstItem("Body")    
If rtitem.Type = RICHTEXT Then
  Forall objects In rtitem.EmbeddedObjects
    If objects.Type = EMBED_ATTACHMENT Then
       strDateiname = objects.Source
    End If  'If objects.Type = EMBED_ATTACHMENT
  End Forall  'Forall objects In rtitem.EmbeddedObjects
End If  'If rtitem.Type = RICHTEXT

Messagebox strDateiname

...


Axel

Don Pasquale:
@Axel


Auch noch Sourcecode direkt zum übernehmen,
das ist ja vom Feinsten.

Schnell noch das mergedoc angepasst und nun klappts
auch.


Da sage ich ganz herzlich Danke Schön.


Ciao

Don Pasquale

Navigation

[0] Themen-Index

[*] Vorherige Sete