SendMail mit Anhang

[Sir Rufo]

Delphi-Quellcode:

function SendEmail( Recipient : string; CCList : string; sSubject : string; Body : TStringList; Pfad : string )
  : boolean;
var
  nAlarmnr :   integer;
  Attachment : TIdAttachment;
  // Das fehlte hier noch !!!
  idSMTP : TIdSMTP;
  idMessage : TIdMessage;
begin

  Result := False;

  idSMTP := TidSMTP.Create;
  try

    idMessage := TidMessage.Create;
    try

      idSMTP.Host     := 'XXX.XXX.XXX.XXX';
      idSMTP.Username := 'XXXXXX';
      idSMTP.Password := 'XXXX';
      idSMTP.Port     := XX;

      idMessage.From.text   := '[e-mail]';
      idMessage.Sender.text := idMessage.From.text;

      idMessage.Recipients.EMailAddresses := Recipient;
      idMessage.CCList.EMailAddresses     := CCList;
      idMessage.Subject                   := sSubject;
      idMessage.ContentType               := 'multipart/*';

      with TidText.Create( idMessage.MessageParts, Body ) do
        begin
          ContentType := 'text/html';
        end;

      with TIdAttachmentFile.Create( idMessage.MessageParts, Pfad ) do
        begin
          idMessage.MessageParts.Add( );
        end;

      try
        idSMTP.Connect;
        try
          idSMTP.Send( idMessage );
          Result := True;
        finally
          idSMTP.Disconnect;
        end;
      except
        // Das macht man ja eigentlich nicht, keine Exception-Behandlung
      end;

    finally
      idMessage.Free;
    end;

  finally
    idSMTP.Free;
  end;

end;