q code umschreiben

[Klaus01]

Dein FastNet Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  NMSMTP1.Host := 'smtp.web.de';
  NMSMTP1.UserID := 'UserID';
  NMSMTP1.PostMessage.ToAddress.Text := '[e-mail]';
  NMSMTP1.PostMessage.FromAddress := '[e-mail]';

  NMSMTP1.PostMessage.subject := ':'+edit1.text;
  NMSMTP1.PostMessage.Body.Add(':'+edit1.text);
  NMSMTP1.PostMessage.Body.Add(':'+edit2.text);
  NMSMTP1.Connect();
end;

procedure TForm1.FormActivate(Sender: TObject);
begin

NMPOP31.Host := 'pop3.web.de';
NMPOP31.UserID := 'xxxxx';
NMPOP31.Password :=  'xxxxxxxxxx';
NMPOP31.Connect();
end;

Dein Code mit Indy:

Delphi-Quellcode:

procedure TMailerForm.btnSendMailClick(Sender: TObject);
begin
  StatusMemo.Clear;

  //setup SMTP
  SMTP1.Host := 'smtp.web.de';
  SMTP1.Port := 25;

  //setup mail message
  MailMessage.From.Address := '[e-mail]'
  MailMessage.Recipients.EMailAddresses := 'xxxxx@web,de';

  MailMessage.Subject := edit1.text;;  // MailMessage kommt von TidMessage
  MailMessage.Body.Text := memo1.Text;  // für die Nachricht vielleicht besser ein Memo nehmen


  //send mail
  try
    try
      SMTP1.Connect(1000);
      SMTP1.Send(MailMessage);
    except on E:Exception do
      StatusMemo.Lines.Insert(0, 'ERROR: ' + E.Message);
    end;
  finally
    if SMTP1.Connected then 
      SMTP1.Disconnect;
  end;

end; (* btnSendMail Click *)

wenn Dein dicker Schädel abgeklungen ist und Du wieder durch normal breite Türen passt,
kannst Du dir das ja mal zu Gemühte führen.
Und es wäre auch gut, wenn Dir schon jemand links schickt diese auch anzuschauen und
versuchen zu verstehen. Bei diesem Link: http://delphi.about.com/od/interneti.../aa020304a.htm
ist sogar ein Beispielprojekt zum download dabei.

Grüße
Klaus

Grüße
Klaus