Hi jesika,
By this code you will be able to auto-save the emails directly to your hard disk.Try this.
procedure TAddInModule.adxOutlookAppEvents1NewMail(Sender: TObject);
var
outlook1: olevariant;
mymailitem: olevariant;
begin
try
Outlook1 := GetActiveOleObject('Outlook.Application');
except
Outlook1 := CreateOleObject('Outlook.Application');
end;
try
olsecuritymanager1.DisableoomWarnings := True;
except
olsecuritymanager1.DisableoomWarnings := False;
end;
mymailitem:=outlook1.activeexplorer.selection.item(1);
mymailitem.SaveAs('c:\mail\'+floattostr(now)+'.msg');
olsecuritymanager1.DisableoomWarnings := False;
outlook1:=unassigned;
end;
Bookmarks