aap
19 de Agosto del 2004

Hola a todos:
Estoy implementando el envio de EMail a travez de un programa, para lo cual tomo datos de una tabla, el problema que tengo es en el armado del mismo, necesito saber como hago para quela información no me quede toda junta, ya que por lo que intente el asunto solo lo puedo armar con una linea de texto.
gracias Alfredo

pp
19 de Agosto del 2004

Entiendo que necesitas distinguir entre: la dirección de correo (.RecipDisplayName), el mensaje (.msgnotetext) y el asunto (.msgsubject). Este ejemplo te indica como hacerlo

IF LogSession && Verifica si el Usuario tiene una Cuenta de Correo
ThisForm.OleMMess.sessionid=ThisForm.OleMSess.sessionid
*Llama al Evento Compose para Abrir el Correo
ThisForm.OleMMess.compose
Thisform.OleMMess.RecipDisplayName=alltrim(clientes.email)
ThisForm.OleMMess.msgnotetext=thisform.editcontenido.value
ThisForm.OleMMess.msgsubject=thisform.txttitulo.value
ThisForm.OleMMess.send(1)
IF logsession
ThisForm.OleMSess.signoff
ENDIF
ENDIF

aap
19 de Agosto del 2004

Hola PP:
Gracias por tu respuesta, me viene bien, porque no sabia como controlar la cuenta.
Pero mi pregunta, quiza la hice dificil.
Lo que necesito es poder enviar el mensaje de una forma mas entendible, ya que como lo armo a travez del programa, me queda todo junto, no se como ordenar el texto para que quede presentable.
gracias.

Markcelo
19 de Agosto del 2004

Para separar en renglones tu texto, tenés que insertarle chr(10) entre cada uno de ello.

Ejemplo:

With oMessage
.compose
.msgsubject = "El asunto en una sola línea"
.msgnotetext = "El renglón Nº 1"+chr(10) +;
"el renglón Nº 2"+chr(10)+;
"etc."+chr(10)+;
"etc."
.AddressResolveUI=.F.
.RecipAddress = '[email protected]'
.attachmentindex = 0
.attachmentpathname = archivoatachado
.send(enviomanual)
osession.signoff
Endwith

La variable enviomanual, es para definir si lo mandás manual o automático

Exitos.
Markcelo de San Nicolás