[Ovillo] Relay access denied

[Rosendo Marín]

esta es la función enviar_email:

<%

Function Enviar_Email 
(Servidor,Remitente_Email,Remitente_Nombre,Destinatario_Email,Asunto,Cuerpo) 


    ' "" = ENVIO OK!
    ' "" <> ERROR, Y DEVOLVEMOS LA DESCRIPCIÓN DEL ERROR

   Set Mail = Server.CreateObject("Persits.MailSender")

   Mail.Host = Servidor
   Mail.From = Cstr(Remitente_Email)
   Mail.FromName = Cstr(Remitente_Nombre)
   Mail.AddAddress Destinatario_Email
 
   Mail.Subject = Asunto
   Mail.Body = Cuerpo

   On Error Resume Next
   Mail.Send
   If Err <> 0 Then ' error occurred
      Email=Err.Description
   End If   
  
'   Mail.userName=Usuario
'   Mail.PassWord=PassWord
'   If Puerto <> "" Then
'       Mail.Port = Puerto
'   End If
'   If Copia <> "" Then
'       Mail.AddCC Copia
'   End If
'   IF Copia_Oculta<>"" THen
'      Mail.AddBcc Copia_Oculta
'   End If
'   If ReplyTo <> "" Then
'       Mail.AddReplyTo ReplyTo
'   End If

End Function

gracias por la ayuda!!!

Mauro Gullino escribió:
> podrías acercarnos la función Enviar_Email ?
>
>