Versenden einer Mail über MAPI mit CC

[little_budda]

Hallo,

hier der noch der aufrufende Code

Delphi-Quellcode:

procedure Tfrm_sendError.btn_send_error_mailClick(Sender: TObject);
var
  sMailResultCode: String;
  sendFiles : TStrArray;
  iFileCounter, ix : integer;
  sMailHeadLine, sMailBody, sMailTo, sMailCc : string;
begin
//  target_adr := '';
  if (CoBoxSupporter.itemindex >= 0) then
    begin
      FileListBoxLogFiles.Directory := lb_variantenpfad.caption;
      iFileCounter := FileListBoxLogFiles.Items.Count;
      setLength(sendFiles, iFileCounter);

      for ix := 0 to iFileCounter - 1 do
        begin
          // Zuordnung der Dateien
          sendFiles[ix] := lb_variantenpfad.caption + '\' + FileListBoxLogFiles.Items[ix];
        end;

      sMailHeadLine := 'Meldung einer Fehlfunktion im Xilinx Tool';

      sMailBody := '';
      sMailBody := sMailBody + 'Hallo Support, ' + chr(10);
      sMailBody := sMailBody + 'ich möchte eine Fehlfunktion im Xilinx Tool melden.' + chr(10);
      sMailBody := sMailBody + ' ' + chr(10);
      sMailBody := sMailBody + 'Ich verwende : ' + frm_versionsuebersicht.StatusBar1.panels[2].text + chr(10);
      sMailBody := sMailBody + 'Mein Betriebsystem :  ' + GetWinVersion + chr(10);
      sMailBody := sMailBody + ' ' + chr(10);
      sMailBody := sMailBody + 'Der Fehler stellt sich dar wie folgt:' + chr(10);

      // Feedback des Anwenders einbauen
      for ix := 0 to MemoErrDescription.Lines.count - 1
        do sMailBody := sMailBody + MemoErrDescription.Lines[ix] + chr(10);

      sMailBody := sMailBody + ' ' + chr(10);
      sMailBody := sMailBody + 'Die aktuellen Log-Dateien finden sich im Anhang.' + chr(10);
      sMailBody := sMailBody + ' ' + chr(10);
      sMailBody := sMailBody + 'Ich bitte um Information wenn und in welcher Programmversion der Fehler behoben ist.' + chr(10);
      sMailBody := sMailBody + 'Danke.' + chr(10);
      sMailBody := sMailBody + ' ' + chr(10);

      sMailTo := '[e-mail]';
      sMailCc := '[e-mail]';

      sMailResultCode := SendFileMail(sendFiles, sMailHeadLine, sMailBody, sMailTo, sMailCc);

      if Length(sMailResultCode) > 0 then
        begin
          MessageDlg('Die Datei konnte nicht per E-Mail versendet werden!' + chr(10) + chr(10) +
                     'Meldung:' + chr(10) + sMailResultCode, mtError, [mbOK], 0);
        end
      else
        begin
          MessageDlg('Ihre Fehlermeldung wurde verschickt.', mtInformation, [mbOK], 0);
        end;
    end
  else MessageDlg('Sie müssen einen Supportpartner auswählen.', mtWarning, [mbOk], 0);
end;