Erro no envio de email no windows 7 com Delphi 2010

Delphi

18/06/2012

Bom dia pessoal.

Já vi vários tópicos sobre o envio de email com o Indy no delphi, mas nenhum deu uma resposta concreta.

Seguinte...desenvolvi uma aplicação que em determinado momento envia um email. Funcionou perfeitamente no Windows XP mas quando fui rodar no Windows 7 deu a seguinte mensagem de erro: Could not load SSL librarys.

Alguém sabe de alguma restrição ou se alguma dll referente ao Windows 7? Lembrando que no XP não da erro.

Segue o código:

procedure TForm1.SendEmail;
var
  IdSMTP : TIdSMTP;
  lMensagem : TIdMessage;
begin
  CloseFile(Arquivo);
  try
    try
      IdSMTP := TIdSMTP.Create(nil);

      try
        lMensagem := TIdMessage.Create(nil);

        IdSMTP.IOHandler := SSL;
        IdSMTP.AuthType := satDefault;

        idSMTP.Username := email;// emaildo usuario
        idSMTP.Password := password;// senha do usuario
        idSMTP.Host := smtp.gmail.com;// host do usuaro ex.: provedo.mail.com.br
        idSMTP.Port := 25;// já tentei com 465 tambem
        IdSMTP.UseTLS := utUseRequireTLS;

        try
          with lMensagem do
          begin
            Subject := Assunto;// assunto
            From.Address := email;// email de origem
            Recipients.EmailAddresses := email;// email de destino
            Body.Text := body;// texto do email


            TIdAttachmentFile.Create(MessageParts, Path + NomeArquivoAtual); // usado para anexar arquivos

            idSMTP.Connect;
            idSMTP.Authenticate;

            idSMTP.Send(lMensagem);
          end;
        finally
          idSMTP.Disconnect;
        end;

      finally
        lMensagem.Free;
      end;

    finally
      IdSMTP.Free;
    end;

  except

  end;
end;
Bruno Manguinho

Bruno Manguinho

Curtidas 0

Respostas

Joao Moreira

Joao Moreira

18/06/2012

procura por uma DLL openssl acho que é esse o nome bota ela na system32 talvez seja preciso registrar a mesma
GOSTEI 0
Valdecir Francisco

Valdecir Francisco

18/06/2012

Ola, amigo. Tenho o programa que envia e recebe email pelo delphi.
mande seu email para contato.
Até
GOSTEI 0
Ricardo Costacurta

Ricardo Costacurta

18/06/2012

Se o Wndows 7 for 64 bits precisa colocar as dlls do OpenSSL na pasta C:\Windows\SYSWOW64
GOSTEI 0
POSTAR