asi pude enviar correo con mi cuenta de speedy! tube que agregar esto smtp.AuthenticationType:=Atlogin; sino me daba un error de autentificacion despues lo otro andaba x ahi en los foros;
Código:
uses
Idmessage, IdSMTP;
procedure TForm1.Button1Click(Sender: TObject);
var
smtp: TIdSMTP;
mail: TIdMessage;
begin
smtp := TIdSMTP.Create(Self);
smtp.AuthenticationType:=Atlogin;
mail := TIdMessage.Create(Self);
with smtp do
begin
Port := 25;
Host := 'mail.speedy.com.ar';
Username := 'xxxxxxxx@speedy.com.ar';
Password := '123456';
end;
with mail do
begin
Recipients.Add;
Recipients[0].Name := 'martincho';
Recipients[0].Address := 'xxxxxxxxxx@speedy.com.ar';
From.Name := 'Ubicacion de mi sistena';
From.Address := 'xxxxxxxx@speedy.com.ar';
Subject := 'Ubicacion Sigea';
Body.Text := 'cuerpo del mensaje';
end;
// TIdAttachment.Create(mail.MessageParts, 'C:\adjunto.txt');
smtp.Connect(30000);
try
try
smtp.Send(mail);
except
on E: Exception do
ShowMessage(E.Message);
end;
finally
if smtp.Connected then
smtp.Disconnect;
end;
mail.Free;
smtp.Free;
end;