Como no puedo seguir en la otra conversación porque está cerrada continuo aqui.
Con este código y tras añadir idemessage y idsmtp tengo varios problemas:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
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;
port := 25;
Aquí me da el siguiente error al compilar: Imcompatible types string and procedure, untyped pointer or untyped parameter.
luego en:
Host := //Aqui colocas la direccion del servidor de correo saliente;
El servidor de correo saliente es el hotmail (lo mando desde una cuenta hotmail) pero no se que direccion poner...
www.hotmail.com no creo que sea verdad? No tengo ni idea, gracias.