Richtextbox

Der er et af argumenterne i eventhandleren der indeholder al den information du har brug for.

Hvad med OLEObject og OLEObjects properties?

noget med:
Dim a As OLEObject, b As OLEObjects

b = Form1.RichTextBox1.OLEObjects
For Each a In b
    Debug.Print a
Next a

Jeg tror dog ikke du kan fange filnavnet med dem.

verine>> Der er ikke nogle af eventhandlerne der bliver udløst når jeg bruger automatisk oledrag and drop!

tjacob>>Det har jeg prøvet, jeg kan simpelthen ikke få det til at virke.

Jeg kan køre følgende:

Dim a As OLEObject, b As OLEObjects

b = Form1.RichTextBox1.OLEObjects
For Each a In b
    Debug.Print a.Class
Next a

Jeg har testet det med et Word-dokument, og det den skriver er: Word.Document.8

-Det kan jo ikke bruges til meget, og de andre properties i OLEObject er heller ikke meget værd. ;-)

Det du får frem ved at bruge Olebject.Class er det program der kan åbne filen! Det har jeg ikke noget at bruge til.

Det handler helt konkret om at jeg skal bruge de objekter til at vedhæfte til en mail i outlook.

VH CK

Nå jeg fandt en anden løsning på problemet!