1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

IDSMTP1.Connect;
  IDMessage1.Body.Assign (Memo1.Lines);
  IDMessage1.From.Text := 'verkehrsinfo.kvr@muenchen.de';
  IDMessage1.ReplyTo.EMailAddresses := 'verkehrsinfo.kvr@muenchen.de';
  IDMessage1.Recipients.EMailAddresses := Email_Adressaten;
  IDMessage1.Subject := 'Verkehrsmeldungen';
  IDMessage1.ReceiptRecipient.Text := 'verkehrsinfo.kvr@muenchen.de';


//Anhang
if ( (fileexists('C:\_vzm\bstm.htm')) OR (fileexists('C:\_vzm\vm.htm') ) ) = false then
begin
  showmessage('Die entsprechenden Verkehrsdateien konnten nicht gefunden werden!'+chr(13)+'Sollte dieser Fehler erneut auftreten, so wenden Sie sich bitte an Ihren Systembetreuer.');
  exit;
end;
  //anhang nur einmal anhängen
  if Anhang = false then
  begin
    TIDAttachment.Create(IDMessage1.MessageParts, 'C:\_vzm\eVM.htm');
 //   TIDAttachment.Create(IDMessage1.MessageParts, 'C:\_vzm\eBST.htm');
    Anhang := true;
  end;

try
  IDSMTP1.Send(IDMEssage1);
finally
  IDSMTP1.Disconnect;
end;