Enviar correo mediante Outlook con otro usuario
 

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.

Ese código lo envía con tu usuario porque estás usando la aplicación Outlook instalada en tu computadora mediante OLE. Si lo usa tu cliente, usará la aplicación Outlook instalada en su computadora. Que use tu usuario u otro dependerá de la configuración del Outlook que esté instalado.

Como consejo, no uses OLE, no sólo porque está obsoleto sino porque dependerá siempre de si Outlook está o no instalado en la computadora. Es mejor usar alguna biblioteca como Indy o Synapse, que es capaz de conectar directamente con el servidor de correo y hacer el trabajo sin necesidad de instalar Outlook.

excelente hermano muchas gracias.^\||/