[jeremiselxi]

Buen día.

Esperando se encuentren bien, comienzo de inmediato mi caso.

En la empresa donde laboro, estoy desarrollando una aplicación donde ellos guarden un tipo de información en especifica.

Entonces ellos crearon un usuario en outlook que se llama "InformaciónDeAlerta" y la contraseña "12345678" con la finalidad de que ciertos información sea enviada vía correo mediante esta cuenta a los jefes.

Buscando en adapté un código para enviar correos, pero este lo hace a través de mi propio usuario y no se como hacer para que se conecte con el usuario mencionado anteriormente.

Código Delphi [-]

procedure TRecipients.Button1Click(Sender: TObject);
const
  olMailItem = 0;
var
  Outlook: OLEVariant;
  MailItem: Variant;
  MailInspector : Variant;

begin
  try
  //Outlook:=CreateOleObject('Outlook.Application') ;
   Outlook:=GetActiveOleObject('Outlook.Application') ;
  except
   Outlook:=CreateOleObject('Outlook.Application') ;
  end;
  try

    MailItem := Outlook.CreateItem(olMailItem) ;
    MailItem.Subject := Subject.Text;
    MailItem.Recipients.add(Edit_Recipients.Text);
    MailItem.Attachments.Add(ruta.Text);
    MailItem.Body := body.Text;
//    MailInspector := MailItem.GetInspector;
   // MailInspector.display(true); //true means modal
    MailItem.Send;
    ShowMessage('Enviado');
  finally
    Outlook := Unassigned;
  end;
end;

De antemano, muchas gracias quien me pueda dar una mano.

Saludos.