Enviar email desde la cuenta de correo electrónico predeterminada de OUTLOOK

[Garada]

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);

//    showmessage(NS.CurrentUser.Name); //mail principal

  Mail := (OB.Items.Add(olMailItem) as MailItem);
...