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