Código Fonte - O melhor conteúdo para programadores

Este código tem nota

Autor

Angelo Resende Júnior

membro deste dezembro de 2006

Compartilhe e guarde

Enquete

Como você fará para aprender HTML5 / CSS3?

Internet (tutoriais, artigos, videos)
Todas as opções
Palestras
Livros e revistas
Colegas de trabalho

Home Código Fonte ASP Bate Papo e Email

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) =====
<html>
<head>
<title>.:: C&oacute;digo Fonte - Envio de email ::.</title>
</head>
<body>
<div align="center"><font size='1' face='Verdana'><b>Preencha os campos abaixo!!!</b></font></div>

<form name="frmemail" method="post" action="envia.asp">
<table width="36%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="23%">Nome:</td>
<td><input type="text" name="nome" size="20" maxlength="20"></td>
</tr>
<tr> 
<td width="23%">E-mail:</td>
<td><input type="text" name="email" size="50" maxlength="50"></td>
</tr>
<tr> 
<td width="23%">Mensagem:</td>
<td><textarea name="mensagem" rows="3" cols="45"></textarea></td>
</tr>
</table>
</form>
</body>
</html>
'===== 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 = "seuemail@dominio.com.br"
objMail.Subject = "Título da Mensagem" 
objMail.HTMLBody = strmensagem
objMail.Send
Set objMail = Nothing
%>

<html>
<head>
<title>.:: C&oacute;digo Fonte - Envio de email ::.</title>
</head>
<body>
<p align='center'><font size='1' face='Verdana'><strong><font color="#FF6016">OBRIGADO</font><br>Mensagem enviada com sucesso!!!</strong></font></p>
</body>
</html>
'===== FIM SEGUNDO CÓDIGO =====


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


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

'Remetente 
objMail.From = stremail

'Destinatário
objMail.To = "seuemail@dominio.com.br"

'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 (.)(.)

'===== primeiro código - (default.asp) =====
<html>
<head>
<title>.:: C&oacute;digo Fonte - Envio de email ::.</title>
</head>
<body>
<div align="center"><font size='1' face='Verdana'><b>Preencha os campos abaixo!!!</b></font></div>

<form name="frmemail" method="post" action="envia.asp">
<table width="36%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="23%">Nome:</td>
<td><input type="text" name="nome" size="20" maxlength="20"></td>
</tr>
<tr> 
<td width="23%">E-mail:</td>
<td><input type="text" name="email" size="50" maxlength="50"></td>
</tr>
<tr> 
<td width="23%">Mensagem:</td>
<td><textarea name="mensagem" rows="3" cols="45"></textarea></td>
</tr>
</table>
</form>
</body>
</html>
'===== 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 = "seuemail@dominio.com.br"
objMail.Subject = "Título da Mensagem" 
objMail.HTMLBody = strmensagem
objMail.Send
Set objMail = Nothing
%>

<html>
<head>
<title>.:: C&oacute;digo Fonte - Envio de email ::.</title>
</head>
<body>
<p align='center'><font size='1' face='Verdana'><strong><font color="#FF6016">OBRIGADO</font><br>Mensagem enviada com sucesso!!!</strong></font></p>
</body>
</html>
'===== FIM SEGUNDO CÓDIGO =====

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

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

'Remetente 
objMail.From = stremail

'Destinatário
objMail.To = "seuemail@dominio.com.br"

'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 (.)(.)

Este código foi útil para você?

Nota	Comentário
10	denunciar gabriel comentou em 17/12/2006 Parabéns Muito bom este código Angelo. É verdade que ainda existem muitos programadores utilizando o antigo CDONTS, eu sempre aconselho a migração para o CDOSYS pois além de existir desde o Windows 2000 é mais rápido.

Regras:
Os comentários seguem as seguintes regras:

Todos os comentários são enviados por membros cadastrados no site.
A pontuação de comentários de conteúdo do próprio membro não serão computados.
Os comentários serão pré-aprovados, porém a equipe do site revisará o conteúdo de todos os comentários podendo ser invalidados (inclusive a pontuação).
Os comentários precisam ter, obrigatóriamente, coerência sobre o conteúdo que será comentado.
O membro que atingir 5 comentários invalidados não poderá mais comentar dentro do site. Com isso o membro não poderá mais ganhar pontos com comentários.
Há um limite de 10 comentários por dia para cada membro.
Qualquer comentário após ter sido publicado poderá ser retirado através da opção ( denunciar)

Comente

Autenticação:	Apelido: Senha: (ainda não tem cadastro? clique aqui!)

Título:	Máximo de 30 caracteres
Comentário:	Máximo de 255 caracteres
Avaliação:

Equipe | Tabela de Pontos e Estrelas | Política de Privacidade | Mapa do Site | Fale Conosco

Autor

Angelo Resende Júnior

Tags

ASP

CDOSYS

Compartilhe e guarde

Enquete

Como você fará para aprender HTML5 / CSS3?

Enviando E-mail com o CDO.Message

Parabéns

Comente