eMail versenden-Connect OK.Danach wird nichts mehr gesendet

[Jens Hartmann]

Hallo,

schau mal ob das was für Dich ist...

Delphi-Quellcode:

procedure TForm1.SendMail;
var
  FileName : String;
  FileData : TIdAttachmentFile;
begin
  FileName := //OpenDialog.Execute oder so;
  try
    with mesgMessage do begin
      Clear;
      From.Text := // von welchem account aus
      Recipients.Add.Text := // an welche addi
      Subject :=  // betreff
      Body.Assign('');// die nachricht aus dem
      if FileExists(FileName) then
      begin
        FileData := TIdAttachmentFile.Create(MessageParts, FileName);
      end                                         
    end;
    with smtpSendMail do begin
      Username := 'Benutzer';
      Password := 'Passwort';
      Host := 'mailto.t-online.de'//smtp-server hier
      Connect;
      try
        Send(mesgMessage);
      finally Disconnect;
      end;
    end;
    FileData.Free;
    finally
    end;
end;

Gruß Jens