Outlook steuern mit Delphi

[det33]

Zitat von wurzelsepp1:

Zitat von Sinspin:

Ein schönes Beispiel findest du hier: how to send email in delphi

Danke, das Beispiel zeigt, wie man eine Mail verschickt, imho aber nicht, wie man die installierten Postfächer aus Outlook liest und wie man die dann explizit ansteuert (also dort hineinschreibt oder auch liest).

Falls dir da noch ein Beispiel / Produkt einfällt, immer her damit.

VG

Als Einstieg in Ole/ActiveX habe ich ein paar Codezeilen aus einem Projekt von mir beigefügt. Die procedure erstellt eine Übersicht über die Ordner von Outlook in einem TTreeview entsprechend dem OlItemType. Den Code habe ich mir auch aus verschiedenen Quellen im Netz zusammengestellt. Dort findest Du auch Beispiele zum Lesen und Schreiben von Mails.

Code:

uses Outlook2010, Vcl.ComCtrls;

type
  POutlookOrdnerEntryID = ^TOutlookOrdnerEntryID;
  TOutlookOrdnerEntryID = String;

procedure FormX.LeseOutlookOrdner(VonFolderID:  OlItemType);
var OutlookApplication:     TOutlookApplication;
    FNameSpace:             NameSpace;

  procedure LoadFolder(ParentNode: TTreeNode; Folder: Folders);
  var
    i:    Integer;
    Node: TTreeNode;
    PID:  POutlookOrdnerEntryID;
  begin
    for i:= 1 to Folder.Count do begin
      Node:= nil;
      if Folder.Item(i).Folders.Count > 0
        then begin
          if Folder.Item(i).DefaultItemType = VonFolderID then begin
            New(PID);
            PID^:= Folder.Item(i).EntryID;
          end
          else PID:= nil;
          Node:= OutlookOrdnerTree.Items.AddNode(nil, ParentNode, Folder.Item(i).Name, PID, naAddChild);
        end
        else if Folder.Item(i).DefaultItemType = VonFolderID
          then begin
            New(PID);
            PID^:= Folder.Item(i).EntryID;
            OutlookOrdnerTree.Items.AddNode(nil, ParentNode, Folder.Item(i).Name, PID, naAddChild);
          end;
      if Assigned(Node) then LoadFolder(Node, Folder.Item(i).Folders);
    end;
  end;

begin
  OutlookApplication:= nil;
  try
    try
      OutlookApplication:= TOutlookApplication.Create(self);
      OutlookOrdnerTree.Items.Clear;
      FNameSpace:= OutlookApplication.GetNameSpace('MAPI');
      FNameSpace.Logon('', '', false, false);
      LoadFolder(nil, FNameSpace.Folders);
    except
      on E: System.SysUtils.Exception do
        begin
          raise System.SysUtils.Exception.Create(Format(OutlookFehler1, [E.Message]));
        end;
    end;
  finally
    if Assigned(OutlookApplication) then OutlookApplication.Free;
  end;
end;