Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: Bazooka en Diciembre 05, 2012, 09:26:55 am

Título: Problemas al intentar enviar más de 1 ADJUNTO con MAPI
Publicado por: Bazooka en Diciembre 05, 2012, 09:26:55 am

Hola amigos tengo este bloque de codigo que necesito enviar un adjunto y a veces dos, pero solo me funciona cuando envio uno ya que si intento enviar 2 no pasa absolutamente nada y nunca se habre la ventana del outlook!

   

Código: [Seleccionar]

MAPISession1.SignOn
    MAPISession1.DownLoadMail = False
    DoEvents
    MAPIMessage1.SessionID = MAPISession1.SessionID
    MAPIMessage1.Compose
    MAPIMessage1.RecipAddress = txtSendTo
    MAPIMessage1.RecipDisplayName = Label1 '"Aca lo que muestro"
    MAPIMessage1.ResolveName
    MAPIMessage1.MsgSubject = Label3 '"Liquidación: Diciembre/2011" 'AnsParseStr
    MAPIMessage1.AttachmentIndex = 0
    MAPIMessage1.AttachmentType = 0
    MAPIMessage1.AttachmentPathName = FileToAttach
    MAPIMessage1.AttachmentPosition = 0

    'si activo estas lineas que serian para enviar el segundo adjunto no se envia nada!!
    'CUANDO DIGO NADA ME REFIERO NI AL PRIMERO NI AL SEGUNDO NI SE ABRE LA VENTANA
    'EMERGENTE PARA EL ENVIO
    '    MAPIMessage1.AttachmentIndex = 1
    '    MAPIMessage1.AttachmentPathName = FileDetalle
    '    MAPIMessage1.AttachmentName = Left$(AnsParseStr, Len(AnsParseStr) - 4) & "_detalle.txt"
    '    MAPIMessage1.AttachmentPosition = 1

Título: Re:Problemas al intentar enviar más de 1 ADJUNTO con MAPI
Publicado por: E N T E R en Diciembre 05, 2012, 10:15:18 am

Por que no le metes en un .rar o un zip, entonces se convierte solo en 1 archivo ademas va a ser mas chico.

Título: Re:Problemas al intentar enviar más de 1 ADJUNTO con MAPI
Publicado por: Bazooka en Diciembre 05, 2012, 10:28:22 am

es solo un archvivo de texto con datos muy pequeños y no quiero complicar el codigo comprimiendo, luego descomprimiendo y todo eso.
ya lo tengo armado y funcionando pero solo me surge este moco ahora!