Na verdade, o ASP pode fazer muitas coisas, mas as pessoas não sabem como usá-lo. A Microsoft fornece muitos componentes úteis e prontos para ASP, mas ninguém sabe sobre esses componentes, como usar CDO.Message para enviar e-mails.
O que é CDO.Message? Para enviar e-mails em winnt e win2k, você precisa usar CDONTS.NewMail. O componente CDONTS.NewMail precisa ser registrado. Basta executar a linha de comando regsvr32 Cdonts.dll no servidor e confirmar no pop-up. caixa de diálogo Use CDONTS O serviço NewMail também precisa ter o smtp que vem com o iis instalado. Com o Windows 2003, o sistema não vem mais com o arquivo Cdonts.dll, restando apenas um arquivo semelhante cdosys.dll Claro, esse arquivo também está disponível no win2k (requer registro do componente), mas o que há de bom em 2003? Este componente não precisa ser cadastrado manualmente, o sistema o registrou automaticamente. Agora vamos ver como usar este componente.
<%
Dim cm
Definir cm=Server.CreateObject("CDO.Message")
'Criar objeto
cm.From=" [email protected] "
'Defina o endereço de e-mail do remetente
cm.To=" [email protected] "
'Defina o endereço de e-mail do destinatário
cm.Subject="Encontrei um site que permite assinar RSS online. Não há necessidade de instalar nenhum software no futuro."
'Defina o assunto do e-mail
'cm.TextBody=" http://www.downcodes.com/rss/ "
'O texto acima usa formato de texto comum para enviar e-mails. Só pode ser texto e não pode suportar html, portanto não é usado aqui.
cm.HtmlBody="Online RSS Feeds Reader é um sistema de leitura de notícias RSS online."&_
"Não há necessidade de baixar e instalar. Contanto que você se registre, você pode ter uma assinatura RSS online e um sistema de agregação de notícias que é tão poderoso quanto o software."&_
"Não importa onde você esteja, desde que tenha acesso à Internet, você poderá ler suas assinaturas favoritas."&_
"Apresse-se e registre-se: <a href=http://www.gbmad.net/rss/>http://www.gbmad.net/rss/</a>"
'O acima é o texto HTML que você construiu, assim Os e-mails que você envia parecem muito melhores do que aqueles apenas com texto. Não diga que você não sabe html'cm.AddAttachment
Server.MapPath("test.zip")
'Se você precisar enviar um anexo, use o método acima para anexar o arquivo.
cm.Enviar
'Finalmente, claro, execute o send
Definir cm=Nada
'Libere o objeto imediatamente após o envio com sucesso
Response.Write("Enviar email com sucesso.")
%>