Ir para conteúdo
Fórum Script Brasil
  • 0

Envio De Email Usando Cdosys


Renato Cast

Pergunta

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...