Muchas gracias por contestar amigos, este es el codigo que utilizo . . . de antemano les agradezco su tiempo y apoyo, estare al pendiente.
procedure TfrBandejaAutorizaPedidos.Button1Click(Sender: TObject);
var
MailMessage: TIdMessage;
SMTP: TIdSMTP;
begin
SMTP.Host := '192.168.0.150';
SMTP.Port := 25;
SMTP.Username := 'desarrollodti@liztex.com';
SMTP.Password := 'desarrolloit';
MailMessage.Recipients.add;
MailMessage.Recipients[0].Name:='Sistema de Produccion';
MailMessage.Recipients[0].Address:='dbautista@liztex.com';
MailMessage.From.Address :='dbautista@liztex.com';
MailMessage.From.Name :='Ordenes';
MailMessage.Recipients.EMailAddresses :='dbautista@liztex.com';
MailMessage.Subject :='Listado de Ordenes';
MailMessage.Body.Text :='Verificar Archivo Adjunto';
if FileExists('D:\Pruebas.txt') then
TIdAttachmentFile.Create(MailMessage.MessageParts, 'D:\Pruebas.txt');
try
try
SMTP.Connect;
SMTP.Send(MailMessage);
except on E:Exception do
ShowMessage(E.Message);
end;
finally
if SMTP.Connected then SMTP.Disconnect;
end;
end;
end;
|