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

[APO]

Buenos días,
Desde mi aplicación envío emails utilizando el programa de correos de Outlook. El problema, es que si el usuario tiene varias cuentas de email, no soy capaz de enviarlo desde la cuenta de correo que tenga predeterminada el usuario en ese momento. Y aunque modifique la cuenta de correo predeterminada, el programa siempre envía los emails desde la misma cuenta.

¿Sabéis cómo puedo enviar los emails desde la cuenta de correo predeterminada que tenga el Outlook?
¿O alguna manera de saber qué cuenta predeterminada tiene especificada el Outlook, no sé si se guarda en el registro o en algún otro sitio? Porque si la supiera podría asignárselo de esta manera:

Código Delphi [-]
MailItem.SendUsingAccount:=Outlook.Session.Accounts.Item("CuentaOutlookPredetminada");

Muchas gracias.

[Casimiro Notevi]

Prueba algo así:

Código Delphi [-]
uses
  ComObj, ActiveX, Variants;

procedure GetDefaultAccount;
var
  OutlookApp: OleVariant;
  Accounts: OleVariant;
  Account: OleVariant;
  i: Integer;
begin
  try
    OutlookApp := CreateOleObject('Outlook.Application');
    Accounts := OutlookApp.Session.Accounts;

    for i := 1 to Accounts.Count do
    begin
      Account := Accounts.Item(i);
      if Account.DisplayName = OutlookApp.Session.DefaultStore.DisplayName then
      begin
        ShowMessage('La cuenta predeterminada es: ' + Account.DisplayName);
        Break;
      end;
    end;
  except
    on E:Exception do
      ShowMessage(E.Message);
  end;
end;

[APO]

Gracias por responder. Lo he probado, pero me lo sigue mandando desde la misma cuenta de siempre, ignorando la cuenta predeterminada de Outlook

[Casimiro Notevi]

Empezado por APO

Gracias por responder. Lo he probado, pero me lo sigue mandando desde la misma cuenta de siempre, ignorando la cuenta predeterminada de Outlook

¿Pero esa función te devuelve la predeterminada?

[APO]

Empezado por Casimiro Notevi

¿Pero esa función te devuelve la predeterminada?

Me devuelve una cuenta, pero no es la predeterminada de Outlook.

[Casimiro Notevi]

Empezado por APO

Me devuelve una cuenta, pero no es la predeterminada de Outlook.

Pregunta tonta: ¿seguro?