.. 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.
Erich Wanker - for life:=1971 to lebensende do begin ..
O
/H\
/ \