Envio de e-mail com CDOsys
Envio de e-mail com CDOsys
Form em HTML
<HTML> <head> </head> <body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <br> <center> <p class="style1"><strong><h1>Teste de envio</h1></strong></p> </center> <form method="post" action="cdosys.asp"> <table width="461" border="0" cellspacing="0" cellpadding="0" align="center"> <tr bgcolor="#F4F4F4"> <td valign="top" nowrap> </td> <td height="32" valign="top" nowrap><font class="texto">Nome:</font></td> <td> <input class="form_campos" type="text" name="nome" size="20"> </td> </tr> <tr bgcolor="#EFEFEF"> <td valign="top" nowrap> </td> <td valign="top" nowrap><font class="texto">E-mail:</font></td> <td> <input name="e-mail" type="text" class="form_campos" size="20" maxlength="15"> </td> </tr> <tr bgcolor="#F4F4F4"> <td colspan="3" valign="middle"> <font class="texto"></font> <br> <div align="center"> <input class="form_botao" type="submit" name="Enviar" value="Enviar Mensagem"> <input class="form_botao" type="reset" name="Limpar" value="Limpar"> </div> </td> </tr> <body> </HTML>
Cdosys.asp
<%session.LCID = 1046%>
<HTML>
<head>
<title>Teste</title>
</head>
<body>
<p align="center"><font face="Arial" size="5">Teste de envio</font></p>
<font face="Arial">
<%
Dim msg, remetente, destinatario, mensagem, asssunto
remetente = "teste@seudominio.com.br" 'Endereço de envio'
destinatario = "teste@seudominio.com.br" 'Endereço de destino'
assunto = " Testando"
email = Request.Form("e-mail") 'Campo declarado no forme html para pegar o endereço de e-mail digitado'
nome = Request.Form("nome") 'Como o campo citado anteriormente, essa coleta a descrição fo campo "nome no formulário"
data = now()
Set msg = CreateObject("CDO.Message")
' Abaixo configuraremos a atenticação do envio através de uma conta específica'
msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.telium.com.br" 'O endereço do host'
msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Ativa/Desativa conexao SSL (True ou False)
msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Ativa autenticacao em texto plano (clear-text)
msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="pesquisa@seudominio.com.br"
msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="123mudar"
msg.Configuration.Fields.Update
msg.To = destinatario
msg.Subject = assunto
msg.From = remetente
'msg.HTMLBody = "opcao para ter o corpo de texto em formato html"
msg.TextBody = "IP de Origem: " & Request.ServerVariables("REMOTE_ADDR") & vbcrlf&_
"Data: " & data & vbcrlf&_
"----------------------------" & vbcrlf&_
"Nome: " & nome & vbcrlf&_
"email: " & email & vbcrlf&_
mensagem & vbcrlf
msg.Send
Set msg = Nothing
%>
</font><center><font face="Arial" size="3">Seu e-mail foi enviado com sucesso<br>
</font></center>
</font><center><font face="Arial" size="3">Desde já agradecemos a sua atenção.<br>
</font></center>
</body>
</HTML>