Outlook: Mailadresse der aktuell fokusierten Mail

[bernerbaer]

Warum nicht umgekehrt?
Schreib ein kleines VBA Makro in Outlook und sende bei jeder Änderung der Auswahl eine Message an dein Programm.

Ein erster Ansatz könnte z.B. dieses Script sein: VBA Script

[s.h.a.r.k]

Hm... Über entsprechende Outlook-Schnittstellen müsste es dann aber imho auch gehen! Ich weiß zwar nicht wie genau und ob, aber kombinier doch ein einfach mal den Code von hier und VBA-Code, den bernerbaer verlinkt hat:

Zitat von bernerbaer:

Ein erster Ansatz könnte z.B. dieses Script sein: VBA Script

Ein wenig Ingenieursgeist, dann wird das schon klappen

[erich.wanker]

Hab jetzt einen Ansatz zur Lösung....

ABER: Wie kann ich herausfinden, welches item von "currentFolder.items[..]" selected ist?

Unten dargestellter Code funktioniert bis auf die Phantasieangabe "if currentFolder.items[...].selected"

Vielen Dank für Hinweise
LiGrü

Erich

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons,ComObj, ActiveX, OleServer, OutlookXP, StdCtrls, ComCtrls ;

type
  TForm1 = class(TForm)
    SpeedButton2: TSpeedButton;
    Label1: TLabel;
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}






procedure TForm1.SpeedButton2Click(Sender: TObject);
var
    i                                : Integer;
    NewMail                          : boolean;
    Outlook, NmSpace, currentFolder  : OleVariant;

Begin

  Outlook := CreateOleObject('Outlook.Application');          //OK

  NmSpace := Outlook.GetNamespace('MAPI');                    //OK

  NmSpace.Logon(EmptyParam, EmptyParam, False, True);         //OK

  currentFolder := NmSpace.GetDefaultFolder(olFolderInbox);   // ?warum gibts nicht: currentFolder := NmSpace.GetDefaultFolder(olCurrentFolder);   ->  MSDN-Doku hilft mir nicht weiter: Application.ActiveExplorer.CurrentFolder

  NewMail := (currentFolder.UnreadItemCount > 0);             //OK
    if NewMail then
      ShowMessage('Ungelesene Nachrichten im Posteingangsordner: '+ inttostr(currentFolder.UnreadItemCount));


  for i:=1 to currentFolder.items.Count  do
  begin

   if  currentFolder.items[i].selected  then     // Ist reine Phantasie !!!!!!!!!  WIE KANN ICH SOWAS REALISIEREN
     begin
          ShowMessage('Subjekt : '+currentFolder.items[i].Subject+#13+
          'Sendername : '+currentFolder.items[i].SenderName+#13+
          'von : '+currentFolder.items[i].SenderEmailAddress+#13+
          'an : '+currentFolder.items[i].To);
     end;
  end;



end;

end.

[bernerbaer]

vielleicht hilft ja microsoft weiter

[edit]der erste Link den ich dir genannt habe zeigt ebenfalls wie man auf die selektierten items zugreift[/edit]

[erich.wanker]

@bernerbaer: ..leider nicht.

Die VBA´ler machen es via "Set Selection = currentExplorer.Selection", aber via Delphi schaff ich´s nicht...

Hat jemand ne idee ?

Thanx
Erich

[bernerbaer]

Na dann hilft vielleicht das weiter

[erich.wanker]

.. irgendwie komischer - das Outlook-Dingens ....

Via OutlookApplication1 greif ich nun auf einzelne Outlook-Nachrichten zu.
Ich kann alle möglichen Infos auslesen - NUR NICHT DIE EMALADRESSE DES SENDERS ?


Nachricht.SenderName -> Sendername
Nachricht.Subject -> Subjektname
Nachricht.To_ -> Empfänder eMailadressse

Wo bitte finde ich die "Nachricht.SenderEmailAddress"

Danke
Erich

Delphi-Quellcode:

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
    i                                : Integer;
    NmSpace                          : OleVariant;
    Nachricht                        : MailItem;

Begin
OutlookApplication1.Connect;
NmSpace       := OutlookApplication1.GetNamespace('MAPI');
NmSpace.Logon ('', '', False, False);


if OutlookApplication1.ActiveExplorer().Selection.Count > 0 then
    begin
          Nachricht:= OutlookApplication1.ActiveExplorer.Selection.Item(1) as _MailItem;
          label1.Caption:=(
          'Sender : '+Nachricht.SenderName+#13+
          'Subjekt : '+Nachricht.Subject+#13+
          'Mailadresse : '+Nachricht {?????????} +#13+                          // <<<<<<<------------- !!!!
          'Empfänger : '+Nachricht.To_);
    end;

end;

end.