FoxPro/Visual FoxPro - enviar mail

Hola estoy interesando en hacer una aplicacion que me envie correos automaticos desde una tabla que contenga los correos o sea tengo una tabla con varios correos automaticos y este me enviara de manera automatica a todos los correos de la tabla archivos que estan relacionados por medio del nombre de archivo a las diferentes personas

cada persona tiene un archivo diferente ejemplos estados de cuenta

Usa este codigo:
Procedure Enviar_mail
*--------------------

parameters xEnviarA,asunto,texto,xArchivo
sesion = CREATEOBJECT("MSMAPI.MAPISESSION.1")
sesion.DownloadMail = .f.
sesion.LogonUI = .f.
sesion.SignOn
if sesion.SessionID = 0 && No pudo conectarse
Return
else
msg = CREATEOBJECT("MSMAPI.MAPIMESSAGES.1")
msg.SessionID = sesion.SessionID
msg.Compose()
sesion.signon()
With msg
.MsgIndex=-1
.RecipDisplayName = xEnviarA
.MsgSubject = Alltrim(Asunto)
.MsgNoteText = Alltrim(texto)
.SessionID= sesion.SessionID
If !Empty(xarchivo)
.AttachmentIndex = 0
.AttachmentPosition = 1
.AttachmentPathName = xArchivo
EndIf
.send()
Endwith
sesion.signoff()
Release sesion
Release msg
endif
endproc

me sale un error

OLE IDispatch exception code 0 from mapi session: logon failure valid session id already exists

no se que pueda ser??