Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Proyecto AjpdSoft: Foros

AjpdSoft :: Ver tema - una palabra
Foros de discusión Buscar Perfil FAQ Iniciar sesión
Information una palabra

Publicar nuevo tema Responder al tema
Foros de discusión » VB.Net, C# .Net, Visual Studio .Net   
Ver tema anterior :: Ver tema siguiente
AutorMensaje
orgcom@tutopia.com
Invitado





Asunto: una palabra Responder citando

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

oOutLook = Createobject("Outlook.Application")
oNMapi = oOutLook.GetNamespace("MAPI")
oInbox = oNMapi.GetDefaultFolder(6)
tcAlias = 'curMsg'


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
MensajePublicado:
Sab Ago 05, 2006 1:26 am
Top of Page
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Re: una palabra Responder citando



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:

http://www.ajpdsoft.com/modules.php?name=Downloads&d_op=viewdownloaddetails&lid=62&title=AjpdSoft%20Comprobar%20E-Mail%20Código%20fuente
MensajePublicado:
Dom Ago 20, 2006 6:17 pm
Top of PageVer perfil de usuario
Mostrar mensajes de anteriores:   
Todas las horas son GMT - 1 Horas
Publicar nuevo tema Responder al tema
Foros de discusión » VB.Net, C# .Net, Visual Studio .Net  

Cambiar a:  
Key
  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