Thread: Macro or Code to save email as RTF files

Hi jesika,
By this code you will be able to auto-save the emails directly to your hard disk.Try this.

Code:

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;