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:=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;
MailItem.Send;
ShowMessage('Enviado');
finally
Outlook := Unassigned;
end;
end;
De antemano, muchas gracias quien me pueda dar una mano.
Saludos.