Problemas Com O Nmsmtp

[Guest - Renato -]

Estou tentando enviar e-mail utilizando o componente NMSMTP, porém não envia, o computador fica tentando até dar timeout...

Estava testando utilizando o servidor do BOL, já tentei autenticar pelo NMPOP3 (também não conseguiu autenticar), presumo que o delphi não esteja reconhecendo minha conexão... se alguém puder postar um trecho de código de algum exemplo... segue o código (genérico) que estava utilizando:

procedure TForm1.Button1Click(Sender: TObject);

begin

{ Seu servidor SMTP }

NMSMTP1.Host := 'smtp.servidor.com.br';

{ Porta SMTP, **NÃO MUDE ISTO** }

NMSMTP1.Port := 25;

{ Nome de login do usuário }

NMSMTP1.UserID := 'MeuLogin';

{ Conecta ao servidor }

NMSMTP1.Connect;

{ Se ocorrer algum erro durante a conexão com o servidor, avise! }

if not NMSMTP1.Connected then

raise Exception.Create('Erro de conexão');

with NMSMTP1.PostMessage do begin

{ Seu e-mail }

FromAddress := 'meuemail@meuserver.com.br';

{ Seu nome }

FromName := 'Meu Nome';

{ E-mail do destinatário }

ToAddress.Clear;

ToAddress.Add('destinatario@servidor.com.br');

{ Assunto da mensagem }

Subject := 'Assunto da mensagem';

{ Corpo da mensagem }

Body.Clear;

Body.Add('Primeira linha da mensagem');

Body.Add('Segunda linha da mensagem');

Body.Add(''); { Linha em branco }

Body.Add('Última linha da mensagem');

{ Anexar arquivos(Se não quiser anexar arquivos, apague as 3 linhas seguintes) }

Attachments.Clear;

{ Endereço do anexo }

Attachments.Add('c:\diretorio\arquivo.ext');

end;

{ Manda o e-mail }

NMSMTP1.SendMail;

{ Disconecta do servidor }

NMSMTP1.Disconnect;

end;

[Arlon]

Eu também estou tendo algumas dificuldades em enviar e-mail com esse componente. Não sei se o problema é da conexão, do programa, ou de alguma outra coisa. Pra utilizar uma conta do UOL pra enviar o e-mail você precisa estar autenticado lá no UOL, e como você já está se conectando através do componente NMPOP3 e o BOL pertence ao UOL, presumo que realmente necessite dessa autenticação. Quanto ao erro que me retorna é o seguinte: 503 - RCPT first (#5.51), se eu não me engano é isso. Eu pesquisei e vi que esse erro é do SMTP do servidor de e-mail. Mas aí fica a pergunta: esses erros estão acontecendo devido à falhas no sistema que nós criamos, ou é algum problema na hora do envio através do SMTP do servidor de e-mail??

O código que eu estou usando é esse aqui:

procedure TFrmEnvioPedido.BtnEnviarClick(Sender: TObject);
begin
 nmsmtp1.Port := 25;
 nmsmtp1.Host := 'smtp.meuhost.com.br';
 nmsmtp1.UserId := 'meulogin';
 nmsmtp1.PostMessage.FromAddress := 'alguém@algumacoisa.com.br;
 nmsmtp1.PostMessage.ToAddress.Add(ComboBox1.Text);
 nmsmtp1.PostMessage.subject := edit6.Text;
 nmsmtp1.postmessage.fromname := 'meunome';
 if trim(edit8.Text) <> '' then
 begin
  nmsmtp1.postmessage.attachments.add(edit8.Text);
 end;
 nmsmtp1.PostMessage.Body.Assign(memo1.lines);
 nmsmtp1.Connect;
 nmsmtp1.SendMail;
 nmsmtp1.Disconnect;

Às vezes eu consigo enviar, outras vezes não.

[Guest Guest]

la em casa (conexão dial-up) deu certo essa função aqui que eu postei, mas aqui no serviço não, agora tenho quase certeza que o delphi não está conseguindo reconhecer a conexão de internet, pois da erro de Host Timeout na hora de tentar conectar... como eu poderia configurar?? aqui no serviço é conexao de adsl

[Corposemalma]

uhm... talvez exista alguma restricao no teu serviço quanto a conexao externa...

[Arlon]

Então tanto no caso dele quanto no meu, o problema não seria do programa e sim do provedor e/ou da conexão?