| Aspemail sirve para madar mensajes de correo electrónico.
Aspemail:
'Creamos una instancia
Set Mail = Server.CreateObject("Persits.MailSender")
'Especificamos el servidor.
Mail.Host = "mail.terra.es"
'El email de quien envia el mensaje
Mail.From = "pepe@terra.es"
'El nombre del mismo es opcional
Mail.From = "Departamento de compras"
'A quién se envia el mensaje
Mail.AddAddress "huescah@terra.es"
'Copia del mensaje es opcional.
MailAddCC "huescah2@terra.es"
'Titulo del mensaje también es opcional
Mail.Subject = "Titulo del mensaje"
'Cuerpo del mensaje que enviamos.
Mail.Body = "hola ¿que tal estas? esto es una prueba
de aspemail"
'Adjuntar un documento
Mail.AddAttachment Server.MapPath("documento.doc")
On Error Resume Next
'Llamamos al metodo send para enviar el mensaje
Mail.send
if err <> 0 then
Response.Write "error:" & err.description
else
response.write "ENVIADO CORRECTAMENTE"
end if
Veamos un ejemplo:
Para utilizar Aspemail en primer lugar tendremos que
ponernos en contacto con nuestro servidor para vier si podemos utilizarlo,
en el siguiente ejemplo la dirección de correo a la cual enviamos
el correo es fija será huescah@terra.es.
Código utilizado en el ejemplo anterior:
<%
dim origen1
dim asunto1
dim mensaje1
dim Mail
origen1 = request.form("origen")
destino1 = "huescah@terra.es"
asunto1 = request.form("asunto")
mensaje1 = request.form("mensaje")
IF origen1="" or asunto1="" or mensaje1=""
then
response.redirect("aspmailnoenviado.asp")
end if
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.terra.es"
Mail.From = origen1
Mail.AddAddress destino1
Mail.Body = mensaje1
Mail.Subject = asunto1
On Error Resume Next
Mail.send
if err <> 0 then
Response.Write "error:" & err.description
else
response.write "HA SIDO ENVIADO CORRECTAMENTE"
end if
%>
|