13/02/2009, 08:53
|
| | | Fecha de Ingreso: noviembre-2007
Mensajes: 123
Antigüedad: 17 años, 5 meses Puntos: 0 | |
 Enviar corro con copia...
Saludos, espero esten todos muy bien. Tengo un código donde envia un correo eletrónico, con los datos básicos (Asunto, remitente, destinatario) Necesito que el correo que estoy enviando, se le envie una COPIA a la persona que lo envia. Este es mi código:
Set myMail=CreateObject("CDO.Message")
cuerpo = cuerpo & "<HTML>"
cuerpo = cuerpo & "<meta http-equiv='Content-Type' content='text/html; charset=windows-1252'>"
cuerpo = cuerpo & "<BODY bgcolor='#FFFFFF'>"
cuerpo = cuerpo & "</BODY>"
cuerpo = cuerpo & "</HTML>"
myMail.Subject = request.form("asunto")
myMail.From = request.form("remitente")
myMail.To = request.form("destinatario")
myMail.HTMLBody = cuerpo
myMail.Send
set myMail=nothing
NOTA: Necesito que el correo que envio, una copia lo reciba el "remitente" |