¿Cómo hago para mandar un mail a una persona, sacando el destinatario de una grilla o text?

Esta es una rutina que a mi me ha funcionado:
*********************************************************
** Programa para envío de mails con archivos adjuntos
** PARAMETROS
** m.cPara.- Dirección de correo del destinatario.
** m.cAsunto.- Asunto del mensaje
** m.cMensaje.- Texto del mensaje
** m.aArchivo.- Nombre del anexo con la ruta completa
** se puede pasar un arreglo
** m.lMostrar.- Si se muestra la ventana de correo
PARAMETER m.cPara, m.cAsunto, m.cMensaje, m.aArchivo, m.lMostrar
LOCAL m.oForm, m.xTemporal, m.nContador, m.nArchivos, m.cActual
m.cActual = SYS(5) + CURDIR() && El directorio determinad se mueve
IF TYPE( 'm.cPara' ) <> 'C'
m.cPara = "direccion@de_correo.es"
ENDIF
IF TYPE( 'm.cAsunto' ) <> 'C'
m.cAsunto = "<Asunto>"
ENDIF
IF TYPE( 'm.cMensaje' ) <> 'C'
m.cMensaje = ""
ENDIF
IF !( TYPE( 'm.aArchivo' ) $ 'CA' )
m.aArchivo = ""
ENDIF
m.oForm = CREATEOBJECT("form")
WITH m.oForm
.ADDOBJECT( "Session1", "olecontrol", "MSMAPI.mapiSession" )
IF TYPE( '.Session1' ) <> 'O'
MESSAGEBOX( 'No se ha podido instanciar la aplicación de correo.', 64, 'Atención')
RELEASE m.oForm
RETURN .F.
ENDIF
. ADDOBJECT("Message1", "olecontrol", "MSMAPI.mapiMessages" )
IF TYPE( '.Message1' ) <> 'O'
MESSAGEBOX( 'No se ha podido instanciar la aplicación de correo.', 64, 'Atención')
RELEASE m.oForm
RETURN .F.
ENDIF
WITH .Session1
.LogonUI = .T.
*- Si no se pone la propiedad a .F. y en OUTLOOK está puesto trabajar sin conexión
*- se cuelga
.DownloadMail=.F.
.SignOn
ENDWITH
WITH .Message1
.sessionid = .PARENT.Session1.sessionid
.compose
.RecipDisplayName = m.cPara
.msgsubject = m.cAsunto
.msgnotetext = m.cMensaje
*- Si no es un array, lo crea
IF TYPE('m.aArchivo[1]') = 'U'
m.xTemporal = m.aArchivo
DIMENSION m.aArchivo(1)
m.aArchivo[1] = m.xTemporal
ENDIF
m.nArchivos = 1
FOR m.nContador = 1 TO ALEN( m.aArchivo, 1 )
*- Si existen los archivos
IF FILE( m.aArchivo[m.nArchivos] )
.AttachmentIndex = m.nArchivos - 1
.AttachmentPathName = m.aArchivo(m.nArchivos)
* .AttachmentPosition = m.nArchivos - 1
m.nArchivos = m.nArchivos + 1
ENDIF
ENDFOR
.SEND(m.lMostrar)
Endwith
. Session1. SignOff
Endwith
RELEASE m.oForm
SET DEFAULT TO (m.cActual)