Ver Mensaje Individual
  #9  
Antiguo 28-07-2007
abraham abraham is offline
No confirmado
 
Registrado: jul 2007
Posts: 27
Reputación: 0
abraham Va por buen camino
cual sera el problema?

With IdMessage Do
Begin
Body.Clear;
Body.Add(Edit1.Text);
From.Text := 'ingeniero_abraham@hotmail.com';
Recipients.EMailAddresses := 'ingeniero_abraham@hotmail.com';
Subject := 'Monitoreo';
Priority := TidMessagePriority(mpHighest);
End;
With IdSMTP1 do
Begin
Username :='Jaime'; //nombre_usuario_cta_correo_saliente;
Password := '12345'// clase_cuenta;
Host := 'servidor smtp';
Port := 25;
try
Connect;
Try
Send(IdMessage);
Finally
Disconnect;
End;
ShowMessage('Se envio correo en forma correcta');
Except
On E: EIdProtocolReplyError Do
ShowMessage('E-Mail no se ha podido enviar');
On E: EFOpenError Do
Begin
ShowMessage('E-Mail no se ha podido enviar' + #13 +
'Fichero Adjunto desconocido o erróneo.');
end;
On E: EIdSocketError Do
Begin
ShowMessage('E-Mail no se ha podido enviar'+ #13 +
'Host desconocido o incorrecto.');
end
Else
ShowMessage('Fallo en el envio de email');
End;
If Connected Then Disconnect;
End;