Hola buen da a todos,
Disculpen la molestia pero no encuentro como colocar en el cuerpo del correo un lista de informacin capturada previamente en pantalla, por ejemplo:
DataList
500
600
700
800
Cuando desee enviar el correo puede anexar esta DataList.
Anexo cdigo que encontr en el foro, alguien en su infinito conocimiento podra ayudarme?
Agradezco su amable atencin.
// http://forums.realsoftware.com/viewtopic.php?f=2&t=35813&hilit=att.yahoo
// http://www.att.com/esupport/article.jsp?sid=KB401568#fbid=sTaOw4i2TwN att info
// http://www.att.com/esupport/article.jsp?sid=KB401570#fbid=sTaOw4i2TwN att info
Dim mail as EmailMessage
Dim file as EmailAttachment
dim f as folderItem
Dim i as Integer
Dim s as String
if me.caption = "Enviar" then
me.caption = "Cancel"
n_bytes = 0
if ckbSSLsecure.Value = True then
SMTPSocket1.Secure = True
else
SMTPSocket1.Secure = False
end if
SMTPSocket1.address = cbServer.Text
SMTPSocket1.port =val(cbPort.text)
SMTPSocket1.ConnectionType = SMTPSecureSocket.TLSv1
if checkAuth.value then // Server requires authentication
SMTPSocket1.username =txtUsername.text //get username from editfield
SMTPSocket1.password = txtPassword.text //get password from Editfield
else
SMTPSocket1.username = "" //No username from editfield
SMTPSocket1.password = "" //No password from Editfield
end if
mail = New EmailMessage
mail.fromAddress=txtFrom.text //get From address from EditField
mail.subject= txtSubject.text //get Subject of mail from EditField
mail.bodyPlainText = Nota1.Text+" "+Chr(13)+chr(13)+"[b]Aqu deseo introducir una lista de datos que tengo previamente capturado en pantalla[/b]" 'txtMessage.text //get body in plain text from EditField
mail.headers.appendHeader "Mail","EMPRESA"
mail.addRecipient txtTo.text
SMTPSocket1.messages.append mail //add email to list of messages
MailProgress.visible = True
SMTPSocket1.SendMail //send message
else
me.caption ="Enviar"
labstatus.text = ""
SMTPSocket1.disconnect
end if