|
|
| |
|
|
|
|
|
|
|
|
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>
|
|
|
|
|
|
|
|
