FoxPro/Visual FoxPro - correo

saludos

como hago para que cuando envie correo no me salga el mensaje de enviar , no enviar
el codigo que utilizo es el siguiente

LOCAL oSession as MSMAPI.MAPISession
LOCAL oMessage as MSMAPI.MAPIMessages

osession = CreateOBJECT("MSMAPI.MAPISession")
oMessage= CreateOBJECT('Msmapi.MapiMessages')
osession.DownLoadMail = .F.
osession.SignOn
oMessage.sessionid = osession.sessionid
With oMessage
.compose
.MsgIndex=-1
.msgsubject = ALLTRIM(rAsuntoRZ)
.msgnotetext = alltrim(rCuerpoMenajeRZ)
.AddressResolveUI=.F.
note: agregamos la(s) direcciones de correo
For i = 1 To GetWordCount(rDestinosRZ,";")
.RecipIndex = i-1
.RecipAddress = LOWER(ALLTRIM(GetWordNum(rDestinosRZ, i,";")))
Next
note: agregamos el(los) datos adjuntos
IF !EMPTY(rRutaDatosAdjutosRZ)
For i = 1 To GetWordCount(rRutaDatosAdjutosRZ,";")
cRutaAchivoRZ = ALLTRIM(GetWordNum(rRutaDatosAdjutosRZ, i,";"))
.AttachmentIndex = i-1
.AttachmentName = SUBSTR(cRutaAchivoRZ,ratc('\',cRutaAchivoRZ)+1)
.AttachmentPathName = cRutaAchivoRZ
Next
ENDIF
.send() &&&
osession.signoff
Endwith

att re

muchas gracias

Saludos, Re.

Mira asi es que yo envio la nomina al banco

mail = SPACE(50)
SELECT Bancos
LOCATE FOR codbanco = ThisForm.txtcodbanco.Value
IF FOUND()
SCATTER MEMVAR
STORE m.email TO mail
ENDIF
oOutlook = CREATEOBJECT("outlook.application")
oMail=oOutlook.createitem(0)
oMail.Subject="Envío Nómina al Banco Correspondiente al :"+TRANSFORM(ThisForm.txtperiodo11.Value,'99/99/9999')
oMail.body = "Envío Nómina al Banco Correspondiente al :"+TRANSFORM(ThisForm.txtperiodo11.Value,'99/99/9999')
oMail.attachments.ADD("c:\transfer\nomina.csv")
oMail.to = mail
oMail.Display
oMail.send
oMail = .NULL.
RELEASE oMail
oOutlook = .NULL.
RELEASE oOutlook
ThisForm.Release


Me informas si te funciona, ami me funciona, claro es solo una direccion, pero veo que puedes hacer el mismo, for next, y ya sta.

Att.
Antonio R. Moquete Mejia
Santo Domingo, Rep. Dom.