Vamos a ver si no pones de tu parte no creo que logres nada, estas dando la impresion de prepotencia, pero para que no se diga aqui va mi granito de arena
Código Delphi
[-]procedure TfrCorreo.Enviar;
var
mail : TIDMessage;
smtp : TIdSMTP;
begin
smtp := TIdSMTP.Create(self);
smtp.Name := 'Smtp';
with smtp do begin
AuthenticationType := atLogin;
Host := port := 25;
Username := Password := end;
mail := TIdMessage.Create(Self);
with mail do begin
From.Address := Recipients.EMailAddresses := Subject := body.Text := end;
if FileExists( TIdAttachment.create(mail.MessageParts,
try
smtp.Connect(10000);
try
smtp.Send(mail);
except
on E: Exception do
ShowMessage('Fallo al enviar: ' + E.Message);
end;
ShowMessage('Mensaje enviado satisfactoriamente');
finally
if SMTP.Connected then SMTP.Disconnect;
smtp.free;
mail.free;
end;
end;
Este codigo esta 100% funcional, lee las pistas que te deje entre las lineas para que lo puedas adaptar