Mensaje: necesito el nombre del contenedor del nombre del archivo adjunto de
un email de outlook ya que no puedo referenciarlo para bajar el archivo con
su nombre original prove con oEmail.Attachments(1).SaveAsFile(me falta aqui
cual es la variable)
todo lo demas anda, es decir puedo recorrer la bandeja de entrada o cualquier bandeja, y ademas recorrer y contar los archivos adjuntos
pero no puedo referenciar para extraer el nombre
este es el programita completo
* Nombre del Folder Valor Nombre del Folder Valor
* ----------------------------------- ----------------------------------
* Deleted Items 3 Calendar 9
* Outbox 4 Contacts 10
* Sent Items 5 Journal 11
* Inbox 6 Notes 12
oEmail = oInbox.Items(2) && Email Nro 3
NUMERO=oEmail.Attachments.Count
num=1
? numero
If oEmail.Attachments.Count> 0 Then
DO WHILE num<=numero
? oEmail.Attachments(num)
oEmail.Attachments(1).SaveAsFile( ")
L----->aqui falta
* oEmail.Attachments(2).SaveAsFile("C:\carpeta1\ZZZZ1.DBF")
asi lo extrae pero con el nombre ZZZZ1.DBF Y YO NECESITO
QUE SEA EL NOMBRE DE ORIGEN
num=num+1
enddo
EndIf
Publicado:
Sab Ago 05, 2006 1:26 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: una palabra
Anuncios
Nota: esta respuesta es sólo válida para Delphi, no para Visual Basic:
La forma de obtener el nombre del fichero adjunto de un email es:
Código:
...
var
nombreAdjunto : string;
i : integer;
begin
...
for i := 0 to IdMessage1.MessageParts.Count - 1 do
begin
if IdMessage1.MessageParts.Items[i] is TIdAttachment then
begin
nombreAdjunto := TIdAttachment(
IdMessage1.MessageParts.Items[i]).Filename;
...
end;
Donde:
TIdAttachment -> es un tipo perteneciente a la unidad IDMessage que se añade al insertar el componente de tipo TIDMessage, de la paleta Indy Misc.
IdMessage1 -> componente de tipo TIDMessage, de la paleta Indy Misc.
Puedes ver un ejemplo en Delphi 6 con código fuente completo en el enlace:
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A
