Visual Basic - Enviar un Archivo al Portapapeles

Estimados:
Necesitaría la siguiente ayuda, tengo que enviar un archivo al Portapapeles con VB6 para luego pegarlo en cualquier lado (por ejemplo en un e-mail ó en alguna parte del Disco).
Revise en este foro algunas respuesta sobre casos similares, pero no encontre sobre como guardar un archivo (xxx.jpeg - xxx.word, etc. etc.).

Concretamente lo que quiero hacer es:
Indicando la ruta del archivo (origen), que lo copie en el Portapales y luego al abrir un correo poder pegarlo (como archivo adjunto).

En la actualidad, busco el archivo por medio del explorador de Win, lo copio y luego lo pego en el mensaje (tambien se puede desde el mimo mensaje buscar el archivo).

Necesito automatizar una herramienta de envío de archivos por e-mail y no se como realizarlo.

Agradecido por vuestra ayuda.
Saludos.
Luis

deberías recurrir a las API de Windows
este fragmento (en C++ Builder4) quizá te de una idea de las API's
que tenés que buscar... (faltan algunas)

....
UINT CF_DROPEFFECT = ::RegisterClipboardFormat CFSTR_PREFERREDDROPEFFECT);
if(::OpenClipboard(Handle)){
::EmptyClipboard();
::SetClipboardData(CF_HDROP, hDrop);
::SetClipboardData(CF_DROPEFFECT, hDropEffect);
::CloseClipboard();
}
....

Saludos desde Baires, JuanC

Gracias por tu ayuda, pero creo que estás complicando las cosas.

Ya existen otros foros para C. Este es de VISUAL BASIC.

La API en este caso no hace falta. Además, no es algo para gente poco experimentada.

Para manipular el Portapapeles en VB se utiliza el elemento Clipboard.

Para manipular archivos se utiliza open, close, etc. Todo ello en MSDN.

Open archivo for input as #1
lineinput #1, buffer
Clipboard.SetText buffer
Close #1

así que este era un foro de Visual Basic??, pues mira que no me di cuenta...
y no sabía que hay foros para C
suerte que haya gente para aclarar las cosas! ;-)
mejor me dedico a otra cosa...

Igor, probe con el código que mencionas y cuando voy a pegar lo que esta en el portapales solo pega una cadena de carácteres (ÿØÿá!þExifII* 
z
€


)
Tal vez Yo le este errando en algo?
Leí la ayuda del MSDN y entendí que lo que mencionas como "buffer" es una variable de tipo String

Una vez que ejecuto el codígo, siendo RutaImagen el lugar donde esta el archivo, luego abro un correo de Outlook y pego el contenido del portapales (botón derecho del ratón y pego), acá es donde me aparece la cadena de carácteres.

El código me quedo así:

Dim Variable as String
Open RutaImagen For Input As #1
Line Input #1, Variable
Clipboard.SetText Variable
Close #1

Desde ya, gracias por lo que me estas enseñando.
Luis

Uno porque me paso y otro porque me quedo corto, uno no sabe como acertar.

Estas haciendo bien, para copiar datos en vez de texto utiliza SetData en vez de SetText.

Con ese código copias una línea de texto al portapapeles.

Si quieres adjuntar un archivo en Outlook no vas por buen camino. Sería bastante complicado hacer eso con VB de manera totalmente automática.

La solución de copiar en el portapapeles y pegar en Outlook serviría para añadir texto al contenido del e-mail. Como si lo escribieras a mano pero con copiar y pegar.

Para adjuntar archivos yo te recomiendo que copies en el portapapeles la RUTA DE ACCESO del documento y luego peges ese texto en donde se selecciona el archivo adjunto. Ej:

"C:Documents and settingsUsuariomis documentosFoto.jpg"

Estimo que la Ruta de Acceso que mencionas se debe colocar en la dirección del explorer y así ubicar el archivo, no?

Bueno, copiar un archivo desde el explorador y luego poder pegarlo en un e-mail utilizando solo Window se puede, hacerlo con VB se ve bastante dificil.

Veré que hago, desde ya muchas gracias.