Yo utilizo éste código y funciona sin problemas en 2007-2010-2013 en varias decenas de instalaciones...
Código Delphi
[-]
uses
OutlookXP,
var
ol : OutlookXP.TOutLookApplication;
mi : OutlookXP.TMailItem;
ns : OutlookXP.NameSpace;
fdInbox, fdOutbox : OutlookXP.MAPIFolder;
const
olByValue = 1;
.......
try
ol := OutlookXP.TOutLookApplication.Create(nil);
ns := ol.GetNamespace('MAPI');
fdInbox := ns.GetDefaultFolder(olFolderInbox);
fdOutbox := ns.GetDefaultFolder(olFolderSentMail);
mi := TmailItem.Create(nil);
mi.ConnectTo( ol.CreateItem( olMailItem) as MailItem);
mi.Subject := Datos.ZEMailDESCRIPCION.asstring;
if Datos.ZEMailPARA.asstring <> '' then
mi.Recipients.Add(Datos.ZEMailPARA.value);
if Datos.ZEMailPARA_CC.asstring <> '' then
mi.CC := Datos.ZEMailPARA_CC.asstring;
if Datos.ZEMailPARA_CCO.asstring <> '' then
mi.BCC := Datos.ZEMailPARA_CC.asstring;
.....
finally
mi.Free;
ns.Logoff;
end
De todas formas, creo a partir de la versión del 2010 había un cambio. Trata de utilizar solo la opcion de Create...