Enviar Emails com anexos usando o componente LNET

[joaowiciuk]

Olá a todos, gostaria de saber como posso enviar um Email com anexos usando o componente LNET. Eu tentei o código abaixo mas não funcionou:

Code: [Select]

procedure TForm1.Button1Click(Sender: TObject);
var
  Stream: TMimeStream;
begin
  Stream := TMimeStream.Create;
  Stream.AddFileSection('C:\DOCUME~1\Usuario\Desktop\log.txt');
  Stream.Reset;
  if not SMTP.Connected then SMTP.Connect('smtp.live.com', 25);
  SMTP.StartTLS;
  if SMTP.HasFeature('AUTH LOGIN') then // use login if possible
    SMTP.AuthLogin('joaowiciuk@hotmail.com', '******')
  else if SMTP.HasFeature('AUTH PLAIN') then // fall back to plain if possible
    SMTP.AuthPlain('joaowiciuk@hotmail.com', '******');
  //SMTP.SendMail(EditFrom.Text, EditTo.Text, EditSubject.Text, FMimeStream); -> send the stream
  SMTP.SendMail('joaowiciuk@hotmail.com', 'joaowiciuk@hotmail.com', 'Teste', Stream); // send the stream
end;
Quando eu clico no botão nada acontece e o Email não chega à minha caixa de entrada nem até a pasta lixo. 

Obs.: Quando testei um exemplo que acompanha o pacote LNET o mesmo funcionou perfeitamente pois recebi o Email na minha pasta de lixo eletrônico do Hotmail.

[meulinux]

Só para que todo mundo saiba, o autor desse tópico fez a pergunta em inglês e já foi respondida.

[nightrider]

Alguém poderia fornecer o link da resposta em inglês?

[Mike.Cornflake]

(Google Translate) Bem, ele fez apenas 10 lugares, não demorou muito tempo para pesquisá-los ...

http://forum.lazarus.freepascal.org/index.php/topic,14958.msg79811.html#msg79811