E ai pessoal, tdo bom? To com o seguinte problema: Desenvolvi um site pra uma empresa que usa a hospedagem do ig empresas e me enrolei com o envio do email. O ig usa somente o CDOSYS e eu nunca havia usado. Fuçei na net um pouco e achei algumas coisas, todas iguais, mas nenhum deles funcionou no bendito servidor... E o pior, ele não fala qual o erro, só me exibe uma numeração e fala que o erro esta na linha do cdo.send.... vou deixar postado ai em baixo o código, se alguém puder me ajudar... vlw
Pergunta
Renato Cast
E ai pessoal, tdo bom? To com o seguinte problema: Desenvolvi um site pra uma empresa que usa a hospedagem do ig empresas e me enrolei com o envio do email. O ig usa somente o CDOSYS e eu nunca havia usado. Fuçei na net um pouco e achei algumas coisas, todas iguais, mas nenhum deles funcionou no bendito servidor... E o pior, ele não fala qual o erro, só me exibe uma numeração e fala que o erro esta na linha do cdo.send.... vou deixar postado ai em baixo o código, se alguém puder me ajudar... vlw
contato.htm
<form method="POST" action="envia.asp">
<input name="nome" id="nome" style="border:1px solid #666666; font-size: 8 pt; font-family: Verdana; color:#333333; background-color:#FFCC00" size="42">
<input name="telefone" id="telefone" style="border:1px solid #666666; font-size: 8 pt; font-family: Verdana; color:#333333; background-color:#FFCC00" size="42">
<input name="email" id="email" style="border:1px solid #666666; font-size: 8 pt; font-family: Verdana; color:#333333; background-color:#FFCC00" size="42">
<textarea name="mensagem" cols="41" rows="4" id="mensagem" style="border:1px solid #666666; font-size: 8 pt; font-family: Verdana; color:#333333; background-color:#FFCC00"></textarea>
<input style="border:1px solid #808080; FONT-WEIGHT: bold; FONT-SIZE: 8 pt; FONT-FAMILY: Verdana; color:#000000; background-color:#FF9900; margin-right:28" type="submit" value="Enviar" name="ok">
</form>
envia.asp
<%
email = request.Form("email")
msg = "Nome: '"&(request.Form("nome"))&"'<br>"
msg = msg&"Email: '"&(request.Form("email"))&"'<br>"
msg = msg&"Telefone: '"&(request.Form("telefone"))&"'<br>"
msg = msg&"Mensagem: '"&(request.Form("mensagem"))&"'<br>"
'DEFININDO EMAIL
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title>Mensagem enviada pelo site</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""#FFFFFF"">"
HTML = HTML & "" & msg
HTML = HTML & "</body>"
HTML = HTML & "</html>"
'Cria o objeto para o enviar e-mail
Set objCDO = Server.CreateObject("CDO.Message")
'Cria o objeto de configuração do SMTP
Set objCDOSYSCon = Server.CreateObject("CDO.Configuration")
With objCDOSYSCon
'SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mbmetais.com.br"
'Porta do SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'Porta do CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
'Validação Email - Autenticação
.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mbmetais@mbmetais.com.br"
'Senha
.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha"
'Atualiza
.Fields.update
End With
'Atualiza as configurações do CDOSYS para enviar o e-mail
Set objCDO.Configuration = objCDOSYSCon
With objCDO
'Remetente do e-mail
.From = "" & email
'Destinatário do e-mail
.To = "mbmetais@mbmetais.com.br"
'Assunto
.Subject = "teste"
'Conteúdo da mensagem (Se for apenas texto, mude para TextBody)
.HTMLBody = "" & HTML
'Envia o e-mail
.Send
End With
'Destrói os objetos
Set objCDO = Nothing
Set objCDOSYSCon = Nothing
%>
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.