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:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

procedure TForm1.Button1.Click(Sender: TObject);
var Att: TIDAttachment;
    Text: TIDText;
begin
  try
    idSMTP.Host   := 'smtp.bla.de';
    idSMTP.UserID := 'bla';
    idSMTP.Password := 'bla';
    idSMTP.Port   := 25;

    idMessage1.Recipients.EMailAddresses:= '123@456.de';
    IdMessage1.Subject:= 'test';

    Text:=TidText.Create(IdMessage1.MessageParts);
    Text.ContentType:= 'text/plain;';
    Text.Body.Text:= 'Dies ist eine HTML-Mail.';


    Text:=TidText.Create(IdMessage1.MessageParts);
    Text.ContentType:= 'text/html;';
    Text.Body:= '<IMG src="cid:c:\logo.gif">';

    if (pos('.jpg',Edit1.Text)=(length(edit1.Text)-3))
      or (pos('.gif',Edit1.Text)=(length(edit1.Text)-3))
      or (pos('.bmp',Edit1.Text)=(length(edit1.Text)-3)) then begin
        Att:=TIDAttachment.Create(IdMessage1.MessageParts,Edit1.Text);
        Att.ContentDisposition := 'inline';  //damit das bild direkt in der email verankert ist
        // Att.ContentDisposition := 'attachment'; //damit das bild im anhang ist
        Att.ExtraHeaders.Values['content-id']:= 'logo.gif'; //wichtig, sonnst wird das bild vom HTML-Code nicht erkannt
      end;

    idSMTP.Connect;
    try
      idSMTP.Send(IdMessage1);
      ShowMessage( 'Email gesandt');
    finally
      idSMTP.Disconnect;
    end;
  finally
    IdMessage1.Free;
  end;
end;