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

¿Hola cómo te va?, BUENO ESPERO que bien.
Mi pregunta es la siguiente:
¿Cómo hago para mandar un mail a una persona?, tener en cuenta que no es siempre la misma ya que el dato de la persona que le tengo que mandar el mail lo saco de por ejemplo una grilla o text, desde ya muchas gracias.
1

1 Respuesta

446.350 pts.
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 = "[email protected]_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)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas