USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  Enviando email com cdonts
Postada em 28/8/2003 por DTLucchesi            
'Arquivo enviaemail.asp

<%
str_nome = trim(request.form("nome"))
str_email = trim(request.form("email"))
str_assunto = trim(request.form("assunto"))
str_mensagem = trim(request.form("mensagem"))
str_ip = trim(request.form("hiddenField"))

str_mensagememail = "" & str_mensagem & "<br><br>IP: " & str_ip & ""

set mensagem = server.createobject("CDONTS.NewMail")
mensagem.from = str_email
mensagem.to = "dariothiago@hotmail.com"
mensagem.Subject = str_assunto
mensagem.bodyformat = 0
mensagem.mailformat = 0
mensagem.Body = str_mensagememail
mensagem.Send
Set objMail = nothing
response.write "Sua mensagem foi enviada com sucesso!"
%>


'Arquivo formulario.asp

<form method=post action="enviaemail.asp">
<table border="0" width="18%" cellspacing="0" cellpadding="0" align="left">
<tr>
<td width="96%" height="21" valign="bottom">
<p align="left"><font size="1" face="Verdana">Seu nome:</font>
</td>
</tr>
<tr>
<td width="96%" height="23">
<p align="left"><font size="1" face="Verdana">
<input type="text" name="nome" size="21" style="font-family: Verdana; font-size: 9 pt; border-style: solid; border-width: 1" maxlength="50">
</font>
</td>
</tr>
<tr>
<td width="96%" height="21" valign="bottom">
<p align="left"><font size="1" face="Verdana">E-mail:</font>
</td>
</tr>
<tr>
<td width="96%" height="23">
<p align="left"><font size="1" face="Verdana">
<input type="text" name="email" size="21" style="font-family: Verdana; font-size: 9 pt; border-style: solid; border-width: 1" maxlength="50">
</font>
</td>
</tr>
<tr>
<td width="96%" height="21" valign="bottom"><font size="1" face="Verdana">Assunto:</font></td>
</tr>
<tr>
<td width="96%" height="23"><font size="1" face="Verdana">
<input type="text" name="assunto" size="21" style="font-family: Verdana; font-size: 9 pt; border-style: solid; border-width: 1" maxlength="50">
</font></td>
</tr>
<tr>
<td width="96%" height="21" valign="bottom">
<p align="left"><font size="1" face="Verdana">Mensagem:</font>
</td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="1" face="Verdana">
<textarea rows="5" name="mensagem" cols="21" style="font-family: Verdana; font-size: 9 pt; border-style: solid; border-width: 1"></textarea>
<input type="hidden" name="hiddenField" value="<%= Request.ServerVariables("REMOTE_ADDR")%>">
</font>
</td>
</tr>
<tr>
<td width="96%" height="40">
<p align="left"><font face="Verdana">
<input type="submit" src="file:///C|/WINDOWS/Desktop/C%F3gidos%20e%20Utilit%E1rios/C%F3gidos%20e%20Utilit%E1rios/C%F3gidos%20e%20Utilit%E1rios/imagens/enviar.gif" value="Enviar" name="enviar">
</font>
</td>
</tr>
</table>
</form>
 


CyberWEB Network Ltda.    © Copyright 2000-2018   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página