Hot Fox: [usuarios_fox] envio de correo

terça-feira, 8 de março de 2011

[usuarios_fox] envio de correo

Hola colegas, tengo este codigo para envio de correo de forma automática por
outlook mediante mapi
jala de maravilla...pero no encuentro la forma de definir la cuenta de salida
cuando uno tiene varias

cuentas en el outlook, siempre sale por la cuenta predeterminada.

Ojala me puedan dar algún tip y si no ojala que les sea de utilidad el codigo

saludos

Horacio

**El codigo es el siguiente

****
#define true .t.
#define false .f.
mapi_session = CREATEOBJECT("MSMAPI.MAPISESSION.1")
mapi_message = CREATEOBJECT("MSMAPI.MAPIMESSAGES.1")
mapi_session.signon()
With mapi_session
mapi_session.NewSession = True
mapi_session.DownLoadMail = True
mapi_session.LogonUI = True
mapi_session.Username="correosaliente@dominio.com.mx" && correo de salida
mapi_session.password="12345" &&password
endwith
With mapi_message
.MsgIndex=-1
.RecipIndex = 0 &&   1er destinatario
.RecipDisplayName = 'correo1@dominio.com'
.RecipIndex = 1 &&   2o destinatario
.RecipDisplayName = 'correo2@dominio.com'
.RecipIndex = 2 &&   3er destinatario
.RecipDisplayName = 'correo3@dominio.com'
   ***
   .MsgSubject ='Asunto'
   .MsgNoteText ='Texto del correo'
   ***
   .SessionID = mapi_session.sessionid
   *** Archivos anexos
   .AttachmentIndex = 0
   .AttachmentPathName ='c:\mail\date.dbf'
   .AttachmentPosition =0
   .AttachmentIndex = 1
   .AttachmentPathName ='c:\mail\date1.dbf'
   .AttachmentPosition =1
   ***
.send
Endwith
mapi_session.signoff()
release mapi_session
release mapi_message
cd \mail