Outlook: Mailadresse der aktuell fokusierten Mail

[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.

[Bummi]

http://msdn.microsoft.com/en-us/libr...m_members.aspx

[erich.wanker]

Hab es jetzt geschafft ..

Vielen Dank an Alle!

Mit freundlichen Grüßen
Erich

Delphi-Quellcode:

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
    i,j                              : Integer;
    NmSpace                          : OleVariant;
    Nachricht,MyReply                : MailItem;
    ARecipient                       : Recipient;
    seMailAddress                    : String;
    MailRecipients, ReplyRecipients  : Recipients;

Begin

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


//ShowMessage('Anzahl markierte Mails: '+ inttostr(OutlookApplication1.ActiveExplorer().Selection.Count));

try
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.SenderName+#13+
          'Empfänger : '+Nachricht.To_);



    memo1.Lines.Clear;


    MyReply := Nachricht.Reply;
    MailRecipients := Nachricht.Recipients;
    ReplyRecipients := MyReply.Recipients;


    for j := 1 to MailRecipients.Count do
    Begin
    ARecipient := MailRecipients.Item(j);
    seMailAddress := ARecipient.Address;
    If Pos('@',seMailAddress) > 0 Then memo1.Lines.Append('* '+seMailAddress);
    End;


    for j := 1 to ReplyRecipients.Count do
    Begin
        ARecipient := ReplyRecipients.Item(1);
        seMailAddress := ARecipient.Address;
        If Pos('@',seMailAddress) > 0 Then
         begin
          memo1.Lines.Append('+ '+seMailAddress);
          label2.Caption:= seMailAddress;
         end;
    end;

end; //  if OutlookApplication1.ActiveExplorer().Selection.Count > 0

except
Label2.Caption:='Fucking Fehler';
end;

end;//   procedure

end.