Code: Alles auswählen
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
oApp: Variant;
oAccount: Variant;
oArchive: Variant;
oMailItem: Variant;
oAttachment: Variant;
oMessageItems: Variant;
begin
try
oApp := CreateOleObject('DVOBJAPILIB.DvISEAPI');
oAccount := oApp.Logon(Unassigned, Unassigned, Unassigned, Unassigned, Unassigned, 'AUTH');
oArchive := oAccount.GetSpecialArchive(101);
oMessageItems := oArchive.MailItems;
Memo1.Lines.Clear;
for i:=0 to oMessageItems.Count-1 do begin
oMailItem:=oMessageItems.Item(i);
Memo1.Lines.Add(oMailItem.Subject);
Memo1.Lines.Add(oMailItem._id);
Memo1.Lines.Add(oMailItem.Type); hier ist das Problem Type ist so nicht aufrufbar
Memo1.Lines.Add(oMailItem.BodyText.PlainText);
end;
finally
oAccount.Logoff;
end;
end;