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

[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?

[APO]

Empezado por Casimiro Notevi

Pregunta tonta: ¿seguro?

Sí sí. Tengo 2 cuentas configuradas en Outlook, y aunque cambie la predeterminada a una u otra, siempre me devuelve la misma. Intentaré aislar tu trozo de código, a ver si hay algo que hago, que haga que no cargue bien la predeterminada… no se

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

[Casimiro Notevi]

¿Lo has conseguido?