Tuve ese problema hace tiempo y si no recuerdo mal, la solución es crear el objeto MailItem desde la Bandeja de entrada de la cuenta predeterminada.
Te dejo un extracto quitando comprobaciones de errores u objetos nulos.
Código Delphi
[-]
var
OL: TOutlookApplication;
Mail: MailItem;
NS: NameSpace;
OB: MAPIFolder;
begin
...
OL := TOutlookApplication.Create(Application);
OL.ConnectKind := ckRunningOrNew;
OL.Connect;
NS := OL.GetNamespace('MAPI');
OB := NS.GetDefaultFolder(olFolderInbox);
Mail := (OB.Items.Add(olMailItem) as MailItem);
...