Clipper On Line • Ver Tópico - Erro envio de email Delphi

Erro envio de email Delphi

Discussão sobre outras linguagens de programação.

Moderador: Moderadores

 

Erro envio de email Delphi

Mensagempor raquelreis » 09 Jan 2012 17:42

Boa Tarde pessoal,
É o seguinte, estou com uma rotina simples para envio de e-mails.
Ela funciona, mas quando mando e-mail para o Hotmail, dá o seguinte erro:
Realying Denied
Segue código:
procedure TfrmPrincipal.btnEnvioClick(Sender: TObject);

begin
     IdSMTP1.Host := 'meuhost.com.br';
     IdSMTP1.Username := 'remetente@meuhost.com.br';

     IdMessage1.From.Address := 'remetente@meuhost.com.br';
     IdMessage1.Subject := 'Teste Indy Delphi';
     IdMessage1.Body.Text := '<html><body><b><center>Esse é o corpo do e-mail.</center></b></body></html>';
     IdMessage1.ContentType := 'text/html';

     IdMessage1.Recipients.EMailAddresses := 'destinatario@hotmail.com;

     if not IdSMTP1.Connected then
        IdSMTP1.Connect(2000);

     if IdSMTP1.Connected then
     begin
         try
            IdSMTP1.Send(IdMessage1);
         finally
            IdSMTP1.Disconnect;
         end;

     end;
     ShowMessage('Enviado com Sucesso!');

end;
Keel
[]'s

_____________________________________________________________________________________
PROGRAMADOR é aquele que te resolve um problema que você não sabia que tinha, de uma maneira que você não compreende.
Avatar de usuário

raquelreis
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 87
Data de registro: 18 Jul 2011 15:29
Cidade/Estado: à procura
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Erro envio de email Delphi

Mensagempor raquelreis » 10 Jan 2012 10:39

Bom dia,

Após a inclusão do componente IdOhandle... O erro é:
'Could not Load SSL library'.
Já baixei, copiei em System32 e no diretório do meu projeto e nada...
Keel
[]'s

_____________________________________________________________________________________
PROGRAMADOR é aquele que te resolve um problema que você não sabia que tinha, de uma maneira que você não compreende.
Avatar de usuário

raquelreis
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 87
Data de registro: 18 Jul 2011 15:29
Cidade/Estado: à procura
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Erro envio de email Delphi

Mensagempor rochinha » 19 Jan 2012 21:26

Amiguinha,

Voce precisa adicionar a pasta de seu aplicativos as dlls para openssl, ssleay32.dll e libssl32.dll.

Além do mais voce precisa enviar o nome do usuário, a senha de autenticação, a porta segura(SSL, geralmente 995).

Hotmail exige autenticação e seus servidores são pop3.live.com e smtp.live.com.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4325
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 582 vezes
Mens.Curtidas: 197 vezes

Erro envio de email Delphi

Mensagempor raquelreis » 23 Jan 2012 15:29

Boa Tarde,

Obrigada rochinha, o problema foi resolvido. E com uma coisa e outra não lembrei de postar a solução.
1) Copiei as dlls para a pasta do windows/system32
2) copiei as dlls para a pasta do meu projeto
3) fiz as devidas autenticações

Mas, depois de tudo isso me veio a dúvida:
- Tenho um sistema e em algum momento preciso enviar o email.
Posso criar um executável e chamá-lo dentro do principal.
Ou devo criar essa rotina/form dentro do principal?
Keel
[]'s

_____________________________________________________________________________________
PROGRAMADOR é aquele que te resolve um problema que você não sabia que tinha, de uma maneira que você não compreende.
Avatar de usuário

raquelreis
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 87
Data de registro: 18 Jul 2011 15:29
Cidade/Estado: à procura
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Erro envio de email Delphi

Mensagempor rochinha » 23 Jan 2012 16:31

Amiguinha,

O Delphi tem muitos bons componentes para este intuito, voce somente deverá encontrar oque que esteja mais atualizado em relação a autenticação.

Caso seje possivel também voce pode, através do Delphi, fazer acesso ao objeto do Windows CDOSYS para o envio de email usando uma rotina em seu aplicativo.

Através de OLE voce pode inserir ações no Outlook usando MAPI.

Mas em todo o caso, voce pode transparentemente usar o BLAT, chamando-o externamente passando-lhe os parametros assim como no Clipper.

O Blat, também possui uma DLL e voce poderá agregá-la ao seu aplicativo tornando-o mais versátil.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4325
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 582 vezes
Mens.Curtidas: 197 vezes

Erro envio de email Delphi

Mensagempor maginal » 24 Abr 2013 14:33

OI sou nomo no Forum e queria saber se algum pode me ajudar.
fiz um código para enviar e-mail uso delphi 7 e indy 10.1.5 só que quando uso essa procedure para efetuar os teste ele sempre da como bem sucedido
begin
Try
  Screen.Cursor    := crHourGlass;
  IdSMTP1.Host     := Trim(EditSMTP.Text);
  IdSMTP1.Username := Trim(Edit_ID.Text);
  IdSMTP1.Password := Trim(MEditSenha.Text);
  IdSMTP1.Port     := StrToInt(Trim(EditPorta.Text));

  //*** Requer Autenticação
  If CBoxAutenticacao.Checked then
  Begin
//Não apareceu (AuthenticationType := atLogin;)  para  Consegue conectar
    IdSMTP1.AuthType       := atDefault;
  end //Fim If autenticação
  else
  Begin
//Não apareceu (AuthenticationType := atNone;) 
    IdSMTP1.AuthType := atNone;
  End;

  //*** Conexão Segura
  if CBoxSegura.Checked then
    IdSMTP1.IOHandler := IOHandlerSocket
  else
    IdSMTP1.IOHandler := nil;
//Aqui enssa parte ele da um erro assim.
//there is no overloaded version of 'connect' that can be called with these arguments
  If not IdSMTP1.Connected then
    IdSMTP1.Connect(2000);

algum pode me ajudar com isso?
maginal
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 1
Data de registro: 24 Abr 2013 11:56
Cidade/Estado: Feira de Santana / Bahia
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Erro envio de email Delphi

Mensagempor rochinha » 24 Abr 2013 15:10

Amiguinho,

Para o envio de email é necessário também voce acrescentar a portaSSL 587 e reforçar as criticas, pois se esta dando resposta de "foi enviado com sucesso" pode ser que voce esteja apenas apresentando a mensagem sem criticar as respostas.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4325
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 582 vezes
Mens.Curtidas: 197 vezes




Retornar para Outras linguagens de programação

Quem está online

Usuários vendo este fórum: Ahrefs [Bot] e 1 visitante


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro