Habla con tu proveedor de hosting, yo me estuve volviendo loco y era cosa de las definiciones de SU servicio: me mandaron un mail indicando cómo tenía que poner el código y listos.
En mi caso (arsys) es:
Código:
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.mipagina.com" ' el servidor SMTP que envía
Mail.From = "[email protected]" ' remitente del mensaje
Mail.FromName = Mail.EncodeHeader ("Envío Automático") ' Nombre del remitente
Mail.AddAddress "[email protected]"
' necesario para el envio = remitente
'asunto:
Mail.Subject = "correo de: " & campodelform
'cuerpo:
Mail.Body = "<HTML><HEAD><title>Correo de: " & campodelform & "</title><resto del mail en formato html para que se vea como quiera>...</HTML>"
Mail.IsHTML = True
On Error Resume Next
'Enviamos el mail controlando errores
Mail.Sendtoqueue
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If