Prueba usando AspEmail.dll
Dim Mail
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.uns.edu.ar"
Mail.From = "
[email protected]"
Mail.FromName = "Lista de LLamados a Concursos"
Mail.AddAddress "
[email protected]"
Mail.AddAddress rsParaMail("depto_emai")
Mail.Addbcc "
[email protected]"
Mail.Subject = "Nuevo LLamado Concurso/Inscripción"
Mail.Body = chr(13) & chr(10) & "LLamado Nro: "& rsParaMail("llamado")&_
chr(13) & chr(10) & "Departamento: " & rsParaMail("depto_desc")&_
chr(13) & chr(10) & "LLamado a Concursos: "&_
chr(13) & chr(10) & "
http://www.uns.edu.ar/neoweb/concursos/llamados.asp?tipollamado=D"&_
chr(13) & chr(10) & "LLamado a Inscripción: "&_
chr(13) & chr(10) & "
http://www.uns.edu.ar/neoweb/concursos/llamados.asp?tipollamado=L"
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "El mensaje no pudo ser enviado" & Err.Description
End if
Es fácil de Usar... si quieres te lo mando por correo