Enviando E-mail com o CDO.Message

Uma maneira simples e eficiente de se enviar e-mail é usando o CDO.
Sua maior virtude além do fácil manuseio, é o fato de praticamente todos os provedores de hospedagem possuí-lo instalado.

'===== primeiro código - (default.asp) =====





Preencha os campos abaixo!!!




Nome:


 
E-mail:


 
Mensagem:






'===== FIM PRIMEIRO CÓDIGO =====


'===============================


'===== segundo código - (envia.asp) =====
<% @language=vbscript %>

<%
strnome = Request.Form("nome")
stremail = Request.Form("email")
strmensagem = Request.Form("mensagem")

Set ObjMail = Server.CreateObject("CDO.Message") 
objMail.From = stremail
objMail.To = "[email protected]"
objMail.Subject = "Título da Mensagem" 
objMail.HTMLBody = strmensagem
objMail.Send
Set objMail = Nothing
%>






OBRIGADO
Mensagem enviada com sucesso!!!


'===== FIM SEGUNDO CÓDIGO =====


'===============================


'EXPLICAÇÕES
'Cria o objeto
Set ObjMail = Server.CreateObject("CDO.Message")

'Remetente 
objMail.From = stremail

'Destinatário
objMail.To = "[email protected]"

'Assunto
objMail.Subject = "Título da Mensagem"

'Mensagem
objMail.HTMLBody = strmensagem

'Envia o E-mail
objMail.Send

'Fecha o objeto
Set objMail = Nothing

'===============================

*´¨) AN-ICE
¸.•´¸.•*´¨) ¸.•*¨)
(¸.•´ (¸.•` * ANGELO JÚNIOR (.)(.)

Tags:

• ASP,
• Bate Papo e Email,
• CDOSYS,
• IIS