Mail con MAPI
Estuve rompiendome el bocho y no pude encontrar la forma de enviar mail sin MAPI, me cansé y como no pude vencerlo me unà a él.
Lo pude hacer funcionar y puedo enviar mail con un archivo adjunto, pero yo quiero enviar mas de un adjunto. El codigo que tengo es el siguiente:
oform.message1.AttachmentIndex=0
oform.message1.Attachmenttype=0
oform.message1.attachmentname= adjunto1
oform.message1.attachmentPathname=ruta+adjunto1
oform.message1.AttachmentIndex=1
oform.message1.Attachmenttype=0
oform.message1.attachmentname= adjunto2
oform.message1.attachmentPathname=ruta+adjunto2
La idea (segun leà en la ayuda del MAPI) es que a traves del AttachmentIndex se van agregando y/o modificando las propiedades de cada archivo adjunto, pero no me dá ni cinco de pelota.
Al ejecutarlo me tira el error :"codigo de excepcion OLE Idispatch 0 de MapiMessages: Unespecified failure has ocurred".
Si a este mismo codigo le quito la parte que "teoricamente" agrega el segundo adjunto:
oform.message1.AttachmentIndex=1
oform.message1.Attachmenttype=0
oform.message1.attachmentname= adjunto2
oform.message1.attachmentPathname=ruta+adjunto2
Funciona de maravillas... ¿Será que el MAPI no permite enviar mas de un adjunto aunque en la ayuda diga lo contrario?
Lo pude hacer funcionar y puedo enviar mail con un archivo adjunto, pero yo quiero enviar mas de un adjunto. El codigo que tengo es el siguiente:
oform.message1.AttachmentIndex=0
oform.message1.Attachmenttype=0
oform.message1.attachmentname= adjunto1
oform.message1.attachmentPathname=ruta+adjunto1
oform.message1.AttachmentIndex=1
oform.message1.Attachmenttype=0
oform.message1.attachmentname= adjunto2
oform.message1.attachmentPathname=ruta+adjunto2
La idea (segun leà en la ayuda del MAPI) es que a traves del AttachmentIndex se van agregando y/o modificando las propiedades de cada archivo adjunto, pero no me dá ni cinco de pelota.
Al ejecutarlo me tira el error :"codigo de excepcion OLE Idispatch 0 de MapiMessages: Unespecified failure has ocurred".
Si a este mismo codigo le quito la parte que "teoricamente" agrega el segundo adjunto:
oform.message1.AttachmentIndex=1
oform.message1.Attachmenttype=0
oform.message1.attachmentname= adjunto2
oform.message1.attachmentPathname=ruta+adjunto2
Funciona de maravillas... ¿Será que el MAPI no permite enviar mas de un adjunto aunque en la ayuda diga lo contrario?
