<%
strHost = "smtp.wolnet.com.br" ' SMTP local d'wolnet.com.br pour comptes WINDOWS
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
' Authentification au serveur local SMTP d'wolnet.com.br
Mail.Username = "peterson@wolnet.com.br" 'indiquer ici votre login FTP
Mail.Password = "senha" ' indiquer ici votre mot de passe FTP
' Fin authentification au serveur local SMTP d'wolnet.com.br
Mail.Nome = Request("Nome")
Mail.E-mail = Request("E-mail")
Mail.Telefone Request("Telefone")
Mail.Cidade = Request("Cidade")
Mail.Estado = Request("Estado")
strErr = ""
bSuccess = False
On Error Resume Next
Mail.Send ' Envoi le message
If Err <> 0 Then
strErr = Err.Description
else
bSuccess = True
End If
End If
%>
<HTML><title>:::::..... * Formulário de teste em ASPemail * ....:::::</title>
<BODY BGCOLOR="#FFFFFF">
<% If strErr <> "" Then %>
<h3>Sua Mensagem não foi enviada:<% = strErr %>
<% End If %>
<% If bSuccess Then %>
OK ! Mensagem enviada com sucesso <% = Request("Nome") %>.
<% End If %>
<FORM METHOD="POST" ACTION="pepi.asp">
<TABLE CELLSPACING=0 CELLPADDING=2 BGCOLOR="#E0E0E0">
<TR>
<TD bgcolor="#FFFFFF"><font color="#FFFFFF">Hôte SMTP (Modifiable dans le script)</font>:</TD>
<TD bgcolor="#FFFFFF"><B>
<% = strHost %></B></TD>
</TR>
<TR>
<TD>Nome : </TD>
<TD><INPUT TYPE="TEXT" NAME="Nome"></TD>
</TR>
<TR>
<TD>E-mail: </TD>
<TD><INPUT TYPE="TEXT" NAME="E-mail"></TD>
</TR>
<TR>
<TD>Telefone: </TD>
<TD><INPUT TYPE="TEXT" NAME="Telefone"></TD>
</TR>
<TR>
<TD>Cidade: </TD>
<TD><INPUT TYPE="TEXT" NAME="Cidade"></TD>
</TR>
<TR>
<TD>Estado: </TD>
<TD><INPUT TYPE="TEXTO" NAME="Estado"></TD>
</TR>
<TR>
<TD COLSPAN=2><INPUT TYPE="SUBMIT" NAME="Send" VALUE="Enviar Formulário">
</TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>
Preciso De Ajuda Em Aspemail !
Started By Peterson, 06/05/2004, 03:33
1 reply to this topic
#1
Peterson
-
- Usuários
-
- 5 posts
Novato no fórum
- Sexo:Não informado
- Interesses:Bem!!! É o seguinte!!! Pá de cá Pá de Lá entende...
Posted 06/05/2004, 03:33
Bem pessoal, sou novato em ASP e preciso fazer esse formulario funcionar mas, quando eu mando enviar o email não chega nunca o que eu fiz de errado ou o que esta faltando ? me ajutem por fazer !
#2
cybermix
-
- Ex-Admins
-
- 3586 posts
andrewsmedina.com.br
- Sexo:Não informado
- Localidade:Não sou desse planeta não!!!!
- Interesses:python, fireworks, linux, php, flash...
Posted 06/05/2004, 08:40
olha é incorreto essa sintaxe que esta usando
a forma correta seria
Mail.Nome = Request("Nome")
Mail.E-mail = Request("E-mail")
Mail.Telefone Request("Telefone")
Mail.Cidade = Request("Cidade")
Mail.Estado = Request("Estado")
a forma correta seria
<%
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.wolnet.com.br"
Mail.From = Request.Form("E-mail") 'email de quem esta enviando
Mail.FromName = Request.Form("Nome") 'nome do destinatario
Mail.AddAddress "peterson@wolnet.com.br" 'email do receptor
Mail.Subject = "assunto do email"
Mail.IsHtml = true
Mail.Body Request("Telefone") & "-" & Mail.Cidade = Request("Cidade") & "-" & Mail.Estado = Request("Estado")
Mail.Send
End If
%>
www.andrewsmedina.com.br
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
