'estos son comentarios
' tienes que poner el nombre de los objetos de texto que tienes en la otra pagina
' luego tienes que poner la informacion donde corresponda ya sea en el cuerpo del mail "Contenu"
' o en el subject
'
' "primer_valor es una forma de recuperar la data de la otra pagina"
'en l avariable "Contenu" esta el cuerpo del mensaje este deberia contener la informacion que
' debes mandar
' donde esta la opcion de Host tienes que poner el servidor de correo
' el from debes poner una cuenta valida que exista para el dominio del correo
' repite la linea que sigue cuantos objetos sean necesarios rescatar y enviar de la otra pagina
primer_valor = reuqest.form("nombre_obj")
Dim objet_NewMail
Set Mail=Server.CreateObject("Persits.MailSender")
Mail.Host="200.14.80.90"
Mail.From="mfernandezl@gmail.com"
Mail.FromName="mail test"
Mail.AddAddress "mfernandezl@gmail.com"
Mail.Subject="Adm"
Contenu = "" _
& "" _
& "" _
& "" _
& "" _
& "" _
& "Notificación
" _
& "El informe de correo se ejecuto satisfactoriamente.
" _
& "TEST
" _
& "" _
& ""
Mail.Body=Contenu
Mail.IsHTML = True
On error Resume Next
Mail.Send
if err <> 0 then
response.write ("ERROR: " & Err.Description)
else
Response.Write" Mensaje enviado"&"
"
end if
set mail = nothing