Ir para conteúdo
Fórum CódigoFonte.net
Leone Costa

Acessar caixa de entrada do email e ler com ASP e ASP.NET

Recommended Posts

Ola pessoal sou programador junior ASP e ASP.NET estou tentando desenvolver um sistema para recuperar informação dos retornos de envio do servidor de email que utilizo. Para verificar emails inexistentes "falso" peguei um script para acessar o serviço de email porem não exibiu nada porem tenho 2 emails não lidos na caixa de entrada

O erro de retorno do servidor e esse gostaria de ler o email e verificar via banco e atualizar dizendo que o email [email protected] e inexistente no sistema de cadastro que fiz. E quero saber também como faço em “ASP.NET” se e o mesmo procedimento “lógica”.

This is the mail system at host c9mailgw62.amadis.com.

I'm sorry to have to inform you that your message could not

be delivered to one or more recipients. It's attached below.

For further assistance, please send mail to postmaster.

If you do so, please include this problem report. You can

delete your own text from the attached returned message.

The mail system

<[email protected]>: host mx02.cl01.mobimail.com[201.76.62.14] said:

550 [email protected] email.com.br unknown user account (in reply to RCPT TO

command)

O scritp utilizado abaixo

Dim sessao, CEntrada, mensagem, novamensagem, msgId, i

Set sessao = Server.CreateObject("CDONTS.Session")

'objMail.LogonSMTP "MinhaSenha", "[email protected]"

sessao.LogonSMTP "senha", "[email protected]"

Response.Write("FEZ LOGOn <br> " )

Set CEntrada = sessao.Inbox

Set mensagem = CEntrada.Messages

msgId = Trim(Request.QueryString("MsgId"))

If(msgId = "" Or Not IsNumeric(msgId)) Then

Response.Write("Entrou dentro do IF <br> " )

For Each novamensagem In mensagem

i = i+1

Response.write "<a href="""

Response.write request.serverVariables("SCRIPT_NAME")

Response.write "?MsgId=" & i & """>" & mensagem.Subject

Response.write "</a>"

Response.write "enviado por " & mensagem.Sender

Response.write "<br>"

Next

Else

Response.Write("Entrou dentro no ELSE <br>" )

Set mensagem = novamensagem(msgId)

Response.write "<br> Assunto: </b> " & mensagem.Subject & "<br>"

Response.write "<br> enviado Por: </b> " & mensagem.Sender & "<br>"

Response.write "<br> Mensagem: </b> " & mensagem.Body & "<br>"

End If

sessao.Logoff

Response.Write("FEZ LOGOFF<br> " )

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

×
×
  • Criar Novo...