email asp

[zoreião 0]

Não consigo enviar meus arquivos pelo formulário,quando tento enviar aparece:

FromAddress Property cannot be blank.Preciso de ajuda

 

<title>mendessites</title><%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.mendessites.com.br"
Mailer.FromName = request.form("Alan Mendes de Souza")
Mailer.FromAddress = request.form("alanmendes05@hotmail.com")
Mailer.AddRecipient "Formulário " , "alan@mendessites.com.br"
Mailer.Subject = "Formulario de Cadastro"

Mailer.BodyText = "Nome: " & request.form("nomecompleto") & vbcrlf
Mailer.BodyText = "E-mail: " & request.form("email") & vbcrlf
Mailer.BodyText = "Telefone: " & request.form("telefone") & vbcrlf
Mailer.BodyText = "Estado: " & request.form("estado") & vbcrlf
Mailer.BodyText = "Assunto: " & request.form("assunto") & vbcrlf
Mailer.BodyText = "Comentários: " & request.form("comentários") & vbcrlf

if Mailer.SendMail then 
Response.redirect "faleconosco.html" 
else 
Response.Write mailer.response
end if
%>

[Public2004 79]

Basta interpretar a mensagem de erro!

 

Pergunto: Você tem um campo de formulário chamado: "Alan Mendes de Souza" ??

request.form("Alan Mendes de Souza")

Att.

[Patrique 0]

o Public matou a charada, você esta chamando um form que provavelmente não existe.

 

Faça o teste assim

 

Mailer.FromName = "Alan Mendes de Souza"

[zoreião 0]

Basta interpretar a mensagem de erro!

 

Pergunto: Você tem um campo de formulário chamado: "Alan Mendes de Souza" ??

request.form("Alan Mendes de Souza")

Att.

 

 

Mas isso já está feito lá em cima, você viu não deu em nada.

 

Basta interpretar a mensagem de erro!

 

Pergunto: Você tem um campo de formulário chamado: "Alan Mendes de Souza" ??

request.form("Alan Mendes de Souza")

Att.

 

 

 

você está dizendo pra mim tirar o Mailer.FromName = é isso?

[DSerma 19]

você está dizendo pra mim tirar o Mailer.FromName = é isso?

Não amigo.. estamos dizendo para você tirar o Request.Form..... e, se possivel, estudar um pouquinho mais...

Att;

[Patrique 0]

Exatamente como o Dark disse... você esta chamando uma variavel do form que provavelmente não existe.

 

Repare no seu code isso

 

request.form("Alan Mendes de Souza")

 

Você fez a mesma coisa no Mailer.FromAddress, portanto arrume ambos.

 

Desta forma o sistema vai entender que tem que existir um input no form da página aonde você envia o email, com isso é necessário que este input seja válido, pelo nome deste input que por padrão não se utiliza desta maneira, acreditamos que você se equivocou, com isso verifique ai tudo certinho e faça como sugerido que vai funfar.

 

Esta é a maneira certa.

 

<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.mendessites.com.br"
Mailer.FromName = "Alan Mendes de Souza"
Mailer.FromAddress = "alanmendes05@hotmail.com"
Mailer.AddRecipient "Formulário " , "alan@mendessites.com.br"
Mailer.Subject = "Formulario de Cadastro"

Mailer.BodyText = "Nome: " & request.form("nomecompleto") & vbcrlf
Mailer.BodyText = "E-mail: " & request.form("email") & vbcrlf
Mailer.BodyText = "Telefone: " & request.form("telefone") & vbcrlf
Mailer.BodyText = "Estado: " & request.form("estado") & vbcrlf
Mailer.BodyText = "Assunto: " & request.form("assunto") & vbcrlf
Mailer.BodyText = "Comentários: " & request.form("comentários") & vbcrlf

if Mailer.SendMail then
Response.redirect "faleconosco.html"
else
Response.Write mailer.response
end if
%>

[xanburzum 169]

verifique se realmente tem o campo de formulário chamado: "Alan Mendes de Souza", ou poste o code do formulário, olha este exemplo simples

 

A primeira coisa que você precisa fazer é criar a página do formulario.asp, com o código abaixo:

 

<form name="YourFormName" method="Post" action="enviar.asp">
    <table>
    <tr><td>Email: </td>
    <td><input type="text" name="Email" size="50"></td></tr>
    <tr><td>First Name: </td>
    <td><input type="text" name="FirstName" size="50"></td></tr>
    <tr><td>Last Name: </td>
    <td><input type="text" name="LastName" size="50"></td></tr>
    <tr><td>Assunto: </td>
    <td><input type="text" name="Subject" size="50"></td></tr>
    <tr><td>Comentarios: </td>
    <td><textarea name="Comments"></textarea></td>
    </table>
    <input type="submit" name="Submit" value="Submit Form">
    </form>

Em seguida, vamos criar uma página com o nosso código confirmation.asp ASPMail como pode ser visto abaixo:

 

<%
    DIM strEmail, strFirstName, strLastName, strSubject, strComments, Mailer
    strEmail = request.form("Email")
    strFirstName = request.form("FirstName")
    strLastName = request.form("LastName")
    strSubject = request.form("Subject")
    strComments = request.form("Comments")

    DIM Mailer, strMsgHeader, qryItem, strMsgInfo
    Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
    Mailer.FromName = "ASP Web"
    Mailer.FromAddress= "root@site.com"
    Mailer.ReplyTo = strEmail
    Mailer.RemoteHost = "seu_host.com"
    Mailer.AddRecipient "ASP Web", "xan@tester.com"
    Mailer.Subject = "ASP Website"
    strMsgHeader = "Esta mensagem de e-mail foi enviado a partir do www.site.com " & vbCrLf & vbCrLf
    Mailer.BodyText = strMsgHeader & vbCrLf & "Email: " & Request.Form("Email") & _
    vbCrLf & "First Name: " & Request.Form("FirstName") & _
    vbCrLf & "Last Name: " & Request.Form("LastName") & _
    vbCrLf & "Subject: " & Request.Form("Subject") & _
    vbCrLf & "Comentarios: " & Request.Form("Comments")

    IF Mailer.SendMail THEN
    Response.Write strFirstName & ",<br>"
    Response.Write "Sua mensagem foi enviada com sucesso."
    ELSE
    Response.Write "Ocorreu o seguinte erro ao enviar a sua mensagem: " & Mailer.Response
    END IF
    %>

[Patrique 0]

siga o que foi passado anteriormente, pois seu code esta correto não é necessário mudar, basta arrumar aquilo que dissemos anteriormente.

 

[]'s