Registriert seit: 16. Mai 2005
Ort: Luzern
154 Beiträge
Delphi 10 Seattle Enterprise
|
Re: Email Adresse des Senders über MAPI holen
18. Jan 2006, 10:22
So, hier die versprochene Version:
Zuerst die MAPI Headers herunterladen.
Dann, anstelle der MapiServices gibts jetzt die leicht modifizierte MapiWrapper.pas dazu.
Und zum Schluss eine Testunit für das ganze:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Math;
type
TForm1 = class(TForm)
bGetMails: TButton;
mMails: TMemo;
procedure bGetMailsClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses
MapiWrap;
procedure TForm1.bGetMailsClick(Sender: TObject);
var
InBox: TInbox;
MailItem: TMapiMailItem;
begin
InBox := TInBox.Create(' Doe, John');
try
MailItem := InBox.GetFirst;
while Assigned(MailItem) do begin
mMails.Lines.Add(Format(' From: %s <%s>'#13#10' Subject: %s'#13#10' %s'#13#10,
[MailItem.Sender,
MailItem.SenderEmail,
MailItem.Subject,
Copy(MailItem.Body, 1, Min(50, Pos(#13, MailItem.Body)))]));
MailItem.Free;
MailItem := InBox.GetNext;
end;
finally
InBox.Free;
end;
end;
end.
|
|
Zitat
|