2 replies to this topic

[raphaelcarlos]

Estou tentado enviar email com esse codigo :

<% If Request("op") = "envia" Then %>
	<% If Request("assunto") = "Nossos Produtos" Then %>
  <%	mEmail = "rafael.carlos@metalis.com.br"%>
	<% End If %>
	<% If Request("assunto") = "Informações Técnicas" Then %>
  <%	mEmail = "rafael.carlos@metalis.com.br"%>
	<% End If %>
	<% If Request("assunto") = "Orçamento" Then %>
  <%	mEmail = "rafael.carlos@metalis.com.br"%>
	<% End If %>
	<% If Request("assunto") = "Representantes" Then %>
  <%	mEmail = "rafael.carlos@metalis.com.br"%>
	<% End If %>
	<% If Request("assunto") = "Outros" Then %>
  <%	mEmail = "rafael.carlos@metalis.com.br"%>
	<% End If %>

<%
	
	'Monta as variáveis para a mensagem
  vNome = Request("nome")
  vAssunto = Request("assunto")
  vEmail = mEmail
  vComentarios = Request("comentarios")

	'monta o corpo do email de envio para a empresa

  vDados = vDados & "Nome: " & vNome & vbcrlf
  vDados = vDados & "E-mail: " & vEmail & vbcrlf & vbcrlf 	 
  vDados = vDados & "Digitou os seguintes comentários sobre " & vAssunto & vbcrlf & vbcrlf
  vDados = vDados & vComentarios

	'Recupera o email do remetente
  vEmail = Request("email")
  
	'Envia o email para o remetente

  Set mailmsg = Server.CreateObject("CDONTS.NewMail") 
  mailmsg.From = vEmail 
  mailmsg.to = mEmail
  mailmsg.Subject = vAssunto
  mailmsg.Body = vDados
  mailmsg.MailFormat = 0
  mailmsg.importance=2
  mailmsg.Send 
  set mailmsg = Nothing

	'monta o corpo do email de envio de resposta automatica para o remetente

  vResp = vResp & "Obrigado " & vNome & " por entrar em contato conosco." & vbcrlf
  vResp = vResp & "Estamos encaminhando seu e-mail para o setor competente," & vbcrlf
  vResp = vResp & "que analizará sua solicitação, e responderá o mais breve possível." & vbcrlf & vbcrlf
  vResp = vResp & "Atenciosamente," & vbcrlf
  vResp = vResp & "SAC - Metalis " & vbcrlf & vbcrlf & vbcrlf
  vResp = vResp & "********************************************************************"& vbcrlf
  vResp = vResp & " Essa é uma resposta automática, por favor não responda este e-mail" & vbcrlf
  vResp = vResp & "********************************************************************"

	'Envia o email para o remetente

  Set mailmsg = Server.CreateObject("CDONTS.NewMail") 
  mailmsg.From = mEmail
  mailmsg.to = vEmail
  mailmsg.Subject = "Solicitação recebida - SAC Metalis"
  mailmsg.MailFormat = 0
  mailmsg.importance=2
  mailmsg.Body = vResp
  mailmsg.Send 
  set mailmsg = Nothing

	'Redireciona para a pagina de dados enviados
  Response.write ("<script>alert('Email enviado com sucesso')</script>")
%>
<% End If %>

so que as msgs ficam armazenadas na pasta Inetpub\mailroot\Queue

e não chega qual é o problema ?

[Generation]

Essa pasta contem todas as mensagens que vão ser enviadas...

O servidor de emails nao esta pausado ?


[]'s

[The Blackjack]

Aproveito a deixa do nosso amigo e, além de ter os mesmos problemas que ele quando tento rodar o meu sistema de e-mails a partir de minha máquina com o CDONTS, tentei mudar de ferramenta e nenhuma delas funcionou...
Antes que diagnósticos tolos sejam apresentados, já aviso, eu estou com os componentes devidamente instalados e rodando! Seguem-se os códigos :

Alternativa 1 - CDOSYS :

<%sch = "http://schemas.micro...configuration/"

Set cdoConfig = Server.CreateObject("CDO.Configuration")

cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.ig.com.br"
'cdoConfig.Fields.Item(sch & "sendusername") = "renatojandere@ig.com.br"
'cdoConfig.Fields.Item(sch & "sendpassword") = "minhasenha"
cdoConfig.fields.update

Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig

cdoMessage.From = "renatojandere@bol.com.br"
cdoMessage.To = "t_bjack@hotmail.com"
cdoMessage.Subject = "E-mail no CDOSYS ASP"
cdoMessage.HTMLBody = "TESTE"
cdoMessage.AutoGenerateTextBody = false
cdoMessage.Send

Set cdoMessage = Nothing
Set cdoConfig = Nothing

response.write "Sua mensagem fora enviada com sucesso!"

%>

Erro que dá :

Tipo de erro:
(0x8004020F)
A classe de evento dessa assinatura está em uma partição inválida
/conteudo_asp/email/cdosys.asp, line 41



Alternativa 2 : ASPEmail

<%
Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "smtp.ig.com.br"
Mail.From = "renatojandere@bol.com.br"
Mail.FromName = "Renato"
Mail.AddAddress "renatojandere@hotmail.com"
Mail.Subject = "Este é o titulo da mensagem"
Mail.Body = "Teste que naum funciona!!!"

on error resume next
Mail.Send
mensagem_erro = ""
if err <> 0 then
mensagem_erro = "Ocorreu o seguinte erro durante o envio do e-mail: " & Err.description
end if

Set Mail = Nothing
on error goto 0

response.write "Mensagem enviada com sucesso!!!"
%>

No caso do aspemail ele roda normalmente e dá a mensagem de sucesso... mas o e-mail simplesmente não chega ao destino.


Portanto, eu questiono :

Esses componentes rodam localmente no iis da nossa máquina se estiverem devidamente instalados?! Os e-mails são de fato enviados e recebidos como se a página estivesse na web ou, para fazer esses códigos funcionarem e os e-mails chegarem eu terei de me cadastrar em um servidor asp pago que dê suporte a essas tecnologias?!

Peço sinceramente que alguém responda a minha questão... pois tenho essa dúvida há tempos e até agora não consegui, mesmo com a ajuda de livros, compreender se essas porcarias de componentes rodam e funcionam localmente ou não...

Desde já, agradecido!

Renato