Formail
#1
Posted 16/04/2004, 15:52
tipo assim assunto, mensagem, idade, email
<%
%>
<%
Dim strTo, strSubject, strBody
Dim objCDOMail
'Digite seu e-mail abaixo
strTo = "marcosmmb@hotmail.com"
strSubject = Request.Form("asunto")
strBody = Request.Form("mensagem")
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
'Coloque o titulo do e-mail que você vai receber no lugar de Email Emerson
objCDOMail.From = "contato"
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
objCDOMail.Send
Set objCDOMail = Nothing
%>
marcosmmb@hotmail.com
#2
Posted 16/04/2004, 17:30
<form action="script.asp" name="geral">
<table width="416" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="10" valign="top" bgcolor="#CCCCCC"><img src="/images/spacer.gif" width="10" height="10"></td>
<td width="430" valign="top">
<table width="387" border="0" align="center" cellpadding="0" cellspacing="0">
<tr valign="middle">
<td valign="middle" width="93"> <div align="right"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Nome
:</font></strong></div></td>
<td width="10"><img src="/images/spacer.gif" width="5" height="5"></td>
<td width="284"> <input type="text" name="strnome" size="56" style="COLOR: #ffffff; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 8pt; FONT-WEIGHT: normal; BACKGROUND: #FFFFFF; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; COLOR: #111111; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 7pt; FONT-WEIGHT: normal">
</td>
</tr>
<tr valign="middle">
<td valign="middle" width="93"> <div align="right"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Empresa
:</font></strong></div></td>
<td> </td>
<td> <input type="text" name="strempresa" size="56" style="COLOR: #ffffff; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 8pt; FONT-WEIGHT: normal; BACKGROUND: #FFFFFF; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; COLOR: #111111; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 7pt; FONT-WEIGHT: normal">
</td>
</tr>
<tr valign="middle">
<td valign="middle" width="93"> <div align="right"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">E-mail
:</font></strong></div></td>
<td> </td>
<td> <input type="text" name="stremail" size="56" style="COLOR: #ffffff; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 8pt; FONT-WEIGHT: normal; BACKGROUND: #FFFFFF; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; COLOR: #111111; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 7pt; FONT-WEIGHT: normal">
</td>
</tr>
<tr valign="middle">
<td valign="middle" width="93"> <div align="right"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Telefone
:</font></strong></div></td>
<td> </td>
<td> <input type="text" name="strtelefone" size="56" style="COLOR: #ffffff; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 8pt; FONT-WEIGHT: normal; BACKGROUND: #FFFFFF; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; COLOR: #111111; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 7pt; FONT-WEIGHT: normal">
</td>
</tr>
<tr valign="middle">
<td valign="middle" width="93"> <div align="right"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Assunto
:</font></strong></div></td>
<td> </td>
<td> <input type="text" name="strassunto" size="56" style="COLOR: #ffffff; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 8pt; FONT-WEIGHT: normal; BACKGROUND: #FFFFFF; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; COLOR: #111111; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 7pt; FONT-WEIGHT: normal">
</td>
</tr>
<tr valign="middle">
<td valign="top" width="93"> <div align="right"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Mensagem
:</font></strong></div></td>
<td> </td>
<td> <textarea name="strmensagem" wrap="VIRTUAL" cols="54" rows="8" style="COLOR: #ffffff; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 8pt; FONT-WEIGHT: normal; BACKGROUND: #FFFFFF; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; COLOR: #111111; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 7pt; FONT-WEIGHT: normal"></textarea>
</td>
</tr>
<tr valign="middle">
<td valign="top" width="93"> <div align="right"></div></td>
<td> </td>
<td> </td>
</tr>
<tr valign="middle">
<td valign="top" width="93"> <div align="right"></div></td>
<td> </td>
<td> <div align="right">
<input type="submit" name="Submit2" value="e n v i a r" size="10" style="COLOR: #000000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 8pt; FONT-WEIGHT: normal; BACKGROUND: #FFFFFF; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; COLOR: #111111; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 7pt; FONT-WEIGHT: normal">
</div></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
Script Asp - CDONTS
script.asp
<%
Response.Buffer=true
Response.clear
Dim strBody,objMail
Set objMail = Server.CreateObject("Persits.MailSender")
objMail.ResetAll
objMail.AddAddress "seuemail@email.com.br"
objMail.Host = "mail.seuemail.com.br"
objMail.From = Request("stremail")
objMail.FromName = Request("strnome")
objMail.Subject = "Titulo da Mensagem"
strBody = "Dados: " & vbCrLf & vbCrLf & _
"Nome: "& Request("strnome") & vbCrLf & _
"Empresa: "& Request("strempresa") & vbCrLf & _
"E-Mail: "& Request("stremail") & vbCrLf & _
"Telefone: "& Request("strtelefone") & vbCrLf & _
"Assunto: "& Request("strassunto") & vbCrLf & _
"Mensagem: "& Request("strmensagem")
strBody = strBody & "."
objMail.Body = strBody
objMail.Send
Set objMail = nothing
'*******************************************************%>
<%
response.redirect "paginadeconfirmacao.asp"
%>
Ta aí
O q estiver de vermelho vc substitui pelas configurações do seu e-mail
- - -não sei como configurar o CDONTS para enviar pro hotmail - - -
www.joomlaminas.org - Grupo de Usuários Joomla! de Minas Gerais
#3
Posted 16/04/2004, 17:47
objMail.Host = "mail.seuemail.com.br"
marcosmmb@hotmail.com
#4
Posted 16/04/2004, 17:52
www.joomlaminas.org - Grupo de Usuários Joomla! de Minas Gerais
#5
Posted 16/04/2004, 18:28
...novato...
marcosmmb@hotmail.com
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)