Ejemplo de Dundas Mailer

false false false MicrosoftInternetExplorer4

Si tienes Hospedaje Windows puedes usar este ejemplo para utilizarlo como objeto de envío  de correos ASP en tus formularios de contacto, de esta manera podrás autentificar con una cuenta existente de tu dominio y así poder enviar mensajes a cuentas de correo fuera del servidor.

<%
Dim objEMail
On Error Resume Next
Set objEMail = Server.CreateObject("Dundas.Mailer")
objEMail.SMTPRelayServers.Add "servidor", 26, "servidor", "correo","contraseña_correo"
objEMail.Tos.Add "destino"
objEMail.FromAddress = "correo_remitente"
objEMail.Subject = "asunto_mensaje"
objEMail.BodyCharSet = "koi8r"
objEMail.Body = "cuerpo_mensaje"
objEMail.SendMail

if Err <> 0 Then
Rezult = "Error: " & Err.Description
else
Rezult = "Mensaje_resultado_exitoso"
end if
%>
< html >
<%=Rezult%>
< /html >