¿Cómo puedo mandar un mail a una persona tomando la dirección una variable usando Visual Fox Pro?

¿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.
[email protected]
1

1 respuesta

Respuesta
1
Prueba con esta rutina... a mi me funciona perfectamente.
Local pcPara, pcAsunto, pcCuerpo, paFichEnviar, plMostrarDialogo
IF EMPTY(pcPara)
pcPara = "[email protected]_correo.es"
ENDIF
IF EMPTY(pcAsunto)
pcAsunto = "<Asunto>"
ENDIF
IF EMPTY(pcCuerpo)
pcCuerpo = ""
ENDIF
IF EMPTY(paFichEnviar)
paFichEnviar = ""
ENDIF
LOCAL oform
oform = CreateObject("form")
oform.addobject("Session1","olecontrol","MSMAPI.mapiSession")
IF TYPE('oform.Session1') <> 'O'
MESSAGEBOX('No se ha podido instanciar la aplicación de correo.', 64, 'Atención')
RELEASE oform
RETURN .F.
ENDIF
oform.addobject("Message1","olecontrol","MSMAPI.mapiMessages")
IF TYPE('oform.Message1') <> 'O'
MESSAGEBOX('No se ha podido instanciar la aplicación de correo.', 64, 'Atención')
RELEASE oform
RETURN .F.
ENDIF
oform.Session1.LogonUI = .t.
*- Si no se pone la propiedad a .F. y en OUTLOOK está puesto trabajar sin conexión
*- se cuelga
oform.Session1.DownloadMail=.f.
oform.Session1.signon
oform.Message1.sessionid = oform.Session1.sessionid
oform.Message1.compose
oform.Message1.RecipDisplayName = pcPara
oform.Message1.msgsubject = pcAsunto
oform.Message1.msgnotetext = pcCuerpo
*- Si no es un array, lo crea
IF TYPE('paFichEnviar[1]') = 'U'
LOCAL lcFileEnviar
lcFileEnviar = paFichEnviar
DIMENSION paFichEnviar(1)
paFichEnviar(1) = lcFileEnviar
ENDIF
LOCAL lnContFiles
lnContFiles = 1
FOR lnCount = 1 TO ALEN(paFichEnviar,1)
*- Si existen los archivos
IF FILE(paFichEnviar(lnContFiles))
oform.Message1.AttachmentIndex = lnContFiles - 1
oform.Message1.AttachmentPathName = paFichEnviar(lnContFiles)
oform.Message1.AttachmentPosition = lnContFiles - 1
lnContFiles = lnContFiles + 1
ENDIF
ENDFOR
oform.Message1.send(plMostrarDialogo)
oform.Session1.signoff
release oform
------------ OOo -----------
En la variable "pcPara" debes poner el la dirección de correo del destinatario
En la variable "pcAsunto" debes poner el Asunto del mensaje (si lo deseas)
En la variable "pcCuerpo" debes poner el texto del mensaje (si lo deseas)
en la variable "paFichEnviar" debes poner el nombre del archivo adjunto
Un saludo
Fernando Alvarez
La Pampa - Argentina
www.rfalvarez.com.ar
¿Hola com andas? Yo acá cansado. Mira yo creo un form, le pongo un botón y 4 text, después en e evento click le pongo el código que me dijiste y arriba le pongo esto haciendo referencia a las variables, le pongo esto:
pcparra = thisform.text1.Value
pcasunto = thisform.text2.Value
pcCuerpo = thisform.text3.Value
paFichEnviar = thisform.text4.Value
por ejemplo le pongo mi dere de mail que es [email protected] y no me llega nada, estoy haciendo algo mal?
Muchas gracias
Probá primero lo siguiente:
En el botón modifica las siguientes lineas:
pcpara="[email protected]"
pcasunto="asunto"
pcCuerpo="cuerpo"
paFichEnviar=""
para ver si hace bien el enlace con Outlook Express.
Si funciona, cambia:
pcpara=alltrim(thisform.text1.value)
pcasunto="asunto"
pcCuerpo="cuerpo"
paFichEnviar=""
Asegurandote que thisform.text1.value tenga asignado si o si un valor del tipo caracter.
Si funciona:
Anda agregando:
pcasunto=alltrim(thisform.text2.value)
despues:
pccuerpo=alltrim(thisform.text3.value)
Etc, etc

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas