Enviar correo mediante Outlook con otro usuario

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



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.

[Ñuño Martínez]

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.

[jeremiselxi]

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.^\||/