Mail mit Tabelle aus einem StringGrid

[Ykcim]

Hallo Zusammen,

ich habe ein in meinem Programm die Anforderung, dass ich den Inhalt eines StringGrids als Excelanhang in einer e-Mail verschicke. Die Mail soll aber nicht automatisch verschickt werden, sonder sich im Editor öffnen.
Das habe ich mit dieser Zeile realisiert...

ExcelApp.Dialogs[xlDialogSendMail].Show Jetzt möchte der User aber noch die Datei vor dem Versand sehen / öffnen. Gibt es einen Parameter, dass die Datei automatisch geöffnet wird - ich kann sie nämlich aus der erstellten e-Mail heraus vor dem Versand nicht öffnen...

Über Anregungen oder vielleicht sogar Lösungen würde ich mich sehr freuen!

Vielen Dank

Ykcim

[Ykcim]

Hallo nocheinmal,

das ist kein PUSH, sondern eine echte Frage...

Ich habe jetzt stundenlang alles ausprobiert und bin keinen Millimeter weitergekommen. Daher möchte ich nun einen anderen Weg gehen...

Ich möchte das StringGrid nicht mehr über eine Exceldatei an den Empfänger verschicken, sondern möchte das StringGrid in die eigentliche Mail kopieren.

Leider habe ich keine Ahnung, wie ich das anstellen muss und bitte Euch um Hilfe.

Vielen Dank
Ykcim

[Ykcim]

Hallo Zusammen,

das ist mir noch nie passiert, dass ich garkeine Antwort bekommen habe... Entweder ist die Frage zu blöd, oder das ist wirklich ein schwieriges Thema.

Da ich aber schnellsten eine Lösung brauchte, bin ich jetzt wie folgt vorgegangen:

1. StringGrid nach Excel in eine Vorlage exportiert und angezeigt.

Delphi-Quellcode:

//Inhalt eines TStringGrid nach Excel exportieren und anzeigen
function ExportStringGridToExcel(StringGrid : TStringGrid; Pfad:string; Space:integer) : Boolean;

begin 
  Result := False;
  //Verbindung zu Excel herstellen
  ExcelApp := CreateOleObject('Excel.Application');
  try
    if not VarIsNull(ExcelApp) then
    begin
      //Neues Workbook öffnen
      Workbook :=ExcelApp.Workbooks.open(pfad);
      if not VarIsNull(Workbook) then
      begin
        //Maximalen Bereich bestimmen
        MaxCol := Min(StringGrid.ColCount, ExcelApp.Columns.Count);
        MaxRow := Min(StringGrid.RowCount, ExcelApp.Rows.Count);
        if (MaxRow > 0) and (MaxCol > 0) then
        begin
          //Worksheet auswählen
          Worksheet := Workbook.ActiveSheet;
          //Bereich auswählen
          Range := Worksheet.Range[RefToCell(1, 1, Space), RefToCell(MaxCol, MaxRow, Space)];
          if not VarIsNull(Range) then 
          begin 
            //Daten aus Grid holen 
            Data := VarArrayCreate([1, MaxRow, 1, MaxCol], varVariant);
            for Row := 0 to Pred(MaxRow) do 
            begin 
              for Col := 0 to Pred(MaxCol) do 
              begin
                Value := StringToVariant(StringGrid.Cells[Col, Row]); 
                Data[Succ(Row), Succ(Col)] := Value 
              end; 
            end; 
            //Daten dem Excelsheet übergeben 
            Range.Value := Data;
            //Excel anzeigen
            Workbook.Activate;
            ExcelApp.Visible := True;
            Result := True;
          end;
        end;
      end; 
    end;
  finally
    Value    := UnAssigned;
    Data     := UnAssigned;
    Range    := UnAssigned;
    Workbook := UnAssigned;
    ExcelApp := UnAssigned;
  end; 
end;

Funktion ist nicht von mir...

2. In der Vorlage einen VBA-Button erstellt, mit dem eine neue Mail mit der Datei im Anhang geöffnet wird.

Delphi-Quellcode:

ActiveSheet.Shapes("CommandButton1").Select
Selection.Delete
Application.Dialogs(xlDialogSendMail).Show Sheets("Tabelle1").Range("B8").Value, "Terminanfrage"

Das ist nicht so, wie ich es eigentlich haben wollte, aber die Kunden sind zufrieden...

In diesem Sinne

Ykcim

[DeddyH]

Auch wenn Du nun eine Lösung hast: wenn Du als HTML-Mail verschicken kannst/darfst, dann wäre es auch noch eine Option gewesen, das StringGrid in eine HTML-Tabelle zu exportieren und diese dann in den Mail-Body zu packen.

[Ykcim]

Hallo DeddyH,

Das hatte ich versucht, aber nicht geschafft...
Wenn Du der Vollständigkeit halber noch für die Nachwelt ein Beispiel hättest, wäre das toll.

Eine Mail im Maileditor öffnen und Empfänger, Betreff und eine HTML-Tabelle im Body...

Vielen Dank

Ykcim

[DeddyH]

Das Beispiel steht doch bereits in Deinem anderen Thread. Anders würde ich es eigentlich auch nicht machen.

[edit] Achso, im EMail-Client, das könnte evtl. über ShellExecute funktionieren. [/edit]