Formmail.asp - Erro No Envio

[s_ric_ptbrasil]

Estou fazendo um teste de formulário(email.htm) enviando e-mail com mensagem em formatação, mas

quando eu envio dá a seguinte mensagem:

Persits.MailSender.4 error '800a000a'

No SMTP hosts specified.

/formmail.asp, line 21

Por que?

O código fonte do arquivo é:

<table width="760" border="0" cellpadding="0" cellspacing="0">

<tr bgcolor="#015B8B">

<td height="20" colspan="3"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>&nbsp;COMERCIAL</strong></font></td>

</tr>

<tr bgcolor="#FFFFFF">

<td width="15" height="314">&nbsp;</td>

<td width="730" height="314" valign="top">

<div align="center">

<form name="form1" method="post" action="http://www.empresa.com.br/formmail.asp">

<div align="center"></div>

<table width="100%">

<tr>

<td> <div align="center">

<table width="630" border="0">

<tr>

<td width="310" height="20" valign="bottom"><font color="#003d79" size="1" face="Verdana, Arial, Helvetica, sans-serif">Nome

ou Raz&atilde;o Social:</font></td>

<td width="310" height="20" valign="bottom"><font color="#00268A" size="1" face="Verdana, Arial, Helvetica, sans-serif"><font color="#003d79">Contato:</font></font><font color="#0000FF" size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></td>

</tr>

<tr>

<td width="310"><input name="razaosocial" type="text" id="razaosocial" size="48" maxlength="42"></td>

<td width="310"><input name="2)contato" type="text" id="2)contato" size="48" maxlength="42"></td>

</tr>

<tr valign="bottom">

<td height="20" colspan="2"><table width="100%" height="20" border="0" cellspacing="0">

<tr valign="bottom">

<td width="178"><font color="#003d79" size="1" face="Verdana, Arial, Helvetica, sans-serif">Cidade:</font></td>

<td width="52"><font color="#003d79" size="1" face="Verdana, Arial, Helvetica, sans-serif">U.F</font></td>

<td width="84"><font color="#003d79" size="1" face="Verdana, Arial, Helvetica, sans-serif">CEP:</font></td>

<td width="313"><font color="#00268A" size="1" face="Verdana, Arial, Helvetica, sans-serif"><font color="#003d79">Endere&ccedil;o:

(Logradouro,n&ordm;,bairro)</font></font></td>

</tr>

</table></td>

</tr>

<tr>

<td height="20" colspan="2"><table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">

<tr>

<td width="182"> <input name="3)cidade" type="text" id="3)cidade" size="25" maxlength="22">

</td>

<td width="56"> <select name="4)uf" size="1" id="4)uf">

<option>&nbsp;AC</option>

<option>&nbsp;AL</option>

<option>&nbsp;AM</option>

<option>&nbsp;AP</option>

<option>&nbsp;BA</option>

<option>&nbsp;CE</option>

<option>&nbsp;DF</option>

<option>&nbsp;ES</option>

<option>&nbsp;FN</option>

<option>&nbsp;GO</option>

<option>&nbsp;MA</option>

<option>&nbsp;MG</option>

<option>&nbsp;MS</option>

<option>&nbsp;muito</option>

<option>&nbsp;pra</option>

<option>&nbsp;PB</option>

<option>&nbsp;PE</option>

<option>&nbsp;PI</option>

<option>&nbsp;PR</option>

<option selected value="RJ">&nbsp;RJ</option>

<option>&nbsp;RN</option>

<option>&nbsp;RO</option>

<option>&nbsp;RR</option>

<option>&nbsp;RS</option>

<option>&nbsp;SC</option>

<option>&nbsp;SE</option>

<option>&nbsp;SP</option>

<option>&nbsp;TO</option>

</select> </td>

<td width="88"> <input name="5)cep" type="text" id="5)cep" size="9" maxlength="9">

</td>

<td width="310"> <input name="6)endereco" type="text" id="6)endereco" size="48" maxlength="42">

</td>

</tr>

</table></td>

</tr>

<tr valign="bottom">

<td width="310" height="20"><font color="#003d79" size="1" face="Verdana, Arial, Helvetica, sans-serif">Tel:</font><font color="#0000FF" size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></td>

<td width="310" height="20"><font color="#00268A" size="1" face="Verdana, Arial, Helvetica, sans-serif"><font color="#003d79">Email:</font></font><font color="#0000FF" size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></td>

</tr>

<tr valign="bottom">

<td width="310"><input name="7)tel" type="text" id="7)tel" size="48" maxlength="42"></td>

<td width="310"><input name="8)email" type="text" id="8)email" size="48" maxlength="42"></td>

</tr>

<tr valign="bottom">

<td height="20" colspan="2"><font color="#003d79" size="1" face="Verdana, Arial, Helvetica, sans-serif">Assunto:</font><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></td>

</tr>

<tr>

<td colspan="2"><input name="9)assunto" type="text" id="9)assunto" size="101" maxlength="75"></td>

</tr>

<tr>

<td height="20" colspan="2" valign="bottom"><font color="#003d79" size="1" face="Verdana, Arial, Helvetica, sans-serif">Mensagem:</font><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></td>

</tr>

<tr>

<td colspan="2"><textarea name="10)mensagem" cols="76" rows="4" id="10)mensagem"></textarea></td>

</tr>

<tr>

<td width="310"><div align="right">

<input name="recipient" type="hidden" id="recipient" value="meunome@empresa.com.br">

<input name="subject" type="hidden" id="subject" value="Formul&aacute;rio de Contatos - Comercial">

<input name="redirect" type="hidden" id="redirect" value="http://www.empresa.com.br/retorno_com.htm">

<input type="submit" name="Submit" value="Enviar">

</div></td>

<td width="310"><input type="reset" name="Submit2" value="Limpar"></td>

</tr>

</table>

</div></td>

</tr>

<tr>

<td>&nbsp;</td>

</tr>

<tr>

<td>&nbsp;</td>

</tr>

<tr>

<td>&nbsp;</td>

</tr>

</table>

</form>

<font size="3" face="Verdana, Arial, Helvetica, sans-serif"><br>

</font> <font size="3" face="Verdana, Arial, Helvetica, sans-serif">

</font></div></td>

<td width="15" height="314">&nbsp;</td>

</tr>

<tr bgcolor="#376088">

<td height="26" colspan="3" bgcolor="#015B8B"> <table width="760" height="26" cellpadding="0" cellspacing="0">

<tr>

<td width="126">&nbsp;</td>

<td><div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">Empresa</font></div></td>

<td width="74">&nbsp;</td>

<td width="26" align="center" valign="middle"><a href="java script:;" onClick="MM_openBrWindow('links.htm','linkinteressante','scrollbars=yes,width=300,height=300')"><img src="imagens/links.gif" alt="Links Interessantes" width="18" height="18" border="0"></a></td>

<td width="26" align="center" valign="middle"><a href="java script:window.external.AddFavorite('http://www.ocf.com.br','Grupo OCF')"><img src="imagens/favoritos.gif" alt="Adicionar aos Favoritos" width="18" height="18" border="0"></a></td>

</tr>

</table></td>

</tr>

</table>

O código fonte do formmail é:

<%response.buffer= true%>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<html>

<%

recipient = request("recipient")

subject = request("subject")

redirect = request("redirect")

razaosocial = request("razaosocial")

message = subject & Chr(13) & Chr(10) & Chr(13) & Chr(10)

if razaosocial <> "" then

message = message & "Nome: " & razaosocial & Chr(13) & Chr(10) & Chr(13) & Chr(10)

end if

Set Mailer = Server.CreateObject("Persits.Mailsender")

Mailer.AddCc recipient

Mailer.From = recipient

Mailer.Host = "smtp.ocftecnologia.com.br"

Mailer.Subject = subject

Mailer.Body = message

if not Mailer.Send then

Response.Write "Problema com envio de e-mail. Erro: " & Mailer.Response

else

response.redirect redirect

end if

%>

</body>

</html>

Agradeço desde já!

[fantasma]

componete de envio de email esta instalado?????

[Marcos-rj]

Não sei se resolve, mas tenta assim:

<%
recipient = request("recipient")
subject = request("subject")
redirect = request("redirect")
razaosocial = request("razaosocial")

message = subject & Chr(13) & Chr(10) & Chr(13) & Chr(10)
if razaosocial <> "" then 
message = message & "Nome: " & razaosocial & Chr(13) & Chr(10) & Chr(13) & Chr(10) 
end if

Set Mailer = Server.CreateObject("Persits.Mailsender")
Mailer.Host = "smtp.ocftecnologia.com.br"
Mailer.AddCc recipient
Mailer.From = recipient
Mailer.Subject = subject
Mailer.Body = message
Mailer.Send

if err = 0 then
response.redirect redirect
else
response.write "Erro ao enviar email."
end if
%>

[Andre_Luiz]

tente Utilizar dessa forma:

    <%
        nome = request ("nome")
        email = request ("email")
        assunto = request ("assunto")        
        mensagem = request ("mensagem")    
        para = request ("para")
                
        Set Mail = Server.CreateObject("Persits.MailSender")
        Mail.Host = "mail.clubealoja.com.br"
        Mail.From = email
        Mail.FromName = nome 
        Mail.AddAddress para

        Mail.Subject = ".: Contato :."
        fale = fale & "Nome: " & nome & vbcrlf
        fale = fale & "E-mail: " & email & vbcrlf        
        fale = fale & "Assunto: " & assunto & vbcrlf
        fale = fale & "Mensagem: " & mensagem
        Mail.Body = fale

        On Error Resume Next
        Mail.Send
        If Err <> 0 Then
        Response.Write "Tente novamente, por favor" & Err.Description
        End If
        %>

[s_ric_ptbrasil]

O código que Marcos-rj me passou deu a seguinte informação:

Persits.MailSender.4 error '800a0006'

553 UTILIZE A AUTENTICACAO PARA ENVIO DE MENSAGENS/THIS SERVER IS TO BE USED WITH AUTHENTICATION (#5.7.1)

/formmail.asp, line 21

O código que Andre_Luiz me passou deu a seguinte informação:

Tente novamente, por favor503 Bad sequence of commands. You must specify the recipients of a message before you can send it

[Marcos-rj]

tenta assim então:

<%
recipient = request("recipient")
subject = request("subject")
redirect = request("redirect")
razaosocial = request("razaosocial")

message = subject & Chr(13) & Chr(10) & Chr(13) & Chr(10)
if razaosocial <> "" then 
message = message & "Nome: " & razaosocial & Chr(13) & Chr(10) & Chr(13) & Chr(10) 
end if

Set Mailer = Server.CreateObject("Persits.Mailsender")
Mailer.Host = "smtp.ocftecnologia.com.br"
Mailer.Username = "EMAIL"
Mailer.Password = "SENHADOEMAIL"
Mailer.AddCc recipient
Mailer.From = recipient
Mailer.Subject = subject
Mailer.Body = message
Mailer.Send

if err = 0 then
response.redirect redirect
else
response.write "Erro ao enviar email."
end if
%>

[s_ric_ptbrasil]

Marcos, aquela vez que você me passou já tinha funcionado. Só deu certo pois na linha 11 do teu código "Mailer.Host = "smtp.ocftecnologia.com.br"", era só preciso ter escrito ocftecnologia.com.br

Está correto!

valeu a todos pela ajuda!