Problemas com o NMSMTP

[Slaveofpower 0]

topico novo:

 

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

 

---------------------------------------------------------------------------------------------

topico antigo:

 

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;

 

 

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[LucIOKERN 0]

Cara usa indy, vai te facilita a vida

[WiCkEd 0]

Não... acontece que, dependendo do seu provedor, discado ou adsl, assim q você conecta, fica autenticado no servidor POP. Quando você usando outra conta, conexão, você não é autenticado automaticamente, aí você tem q usar um Componente POP, pra se autenticar antes de enviar pelo SMTP.Entendeu?

[destrogiro 0]

Bom dia,

 

Estou usando o algorítmo para envio de email no delphi 5. Entretanto quando o sistema passa pela linha:

 

{ Seu servidor SMTP }

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

 

retorna o seguinte erro: "No user transaction is currently in use."

 

É preciso iniciar um transação antes de tentar enviar o email?

 

Grato,

 

Destrogiro.