Enviando e-mails em ASP

Exemplo de chamada→
EnviarMensagem ("origem@gmail.com", "destino@gmail.com", "1@gmail.com; 2@gmail.com", "Teste", "<html><body>Testando...</body></html>")


correio.asp
<%
sub EnviarMensagem (ACorreio_From, ACorreio_To, ACorreio_Cc, ATitulo, ATxtMensagem)
  dim Correio
  
  set Correio     = Server.CreateObject ("CDO.Message")
  
  Correio.From    = ACorreio_From
  Correio.To      = ACorreio_To
  Correio.Cc      = ACorreio_Cc
  Correio.Subject = ATitulo
  Correio.HTMLBody= ATxtMensagem
  Correio.Send
  
  set Correio= nothing
end sub
%>





http://transeberiano.brinkster.net