Send e-mail

http://www.delphifaq.com/faq/delphi/network/f236.shtml

Med indy:

procedure send_email(server, toadr, fromadr, subject, body : string);

var
  smtp : TIdSMTP;
  msg : TIdMessage;

begin
  msg := TIdMessage.Create;
  msg.Recipients.EMailAddresses := toadr;
  msg.From.Address := fromadr;
  msg.Subject := subject;
  msg.Body.Text := body;
  smtp := TIdSMTP.Create;
  smtp.Host := server;
  smtp.Port := 25;
  smtp.Connect;
  smtp.Send(msg);
  smtp.Destroy;
  msg.Destroy;
end;

Den virker ik :S

Bruger denne SMPT 'smtp.mail.dk'; er den rigtig ?

Min kode er:

procedure TForm1.Button1Click(Sender: TObject);
var
  smtp : TIdSMTP;
  msg : TIdMessage;

begin
  msg := TIdMessage.Create;
  msg.Recipients.EMailAddresses := Edit1.Text;
  msg.From.Address := Edit2.Text;
  msg.Subject := Edit3.Text ;
  msg.Body.Text := Edit4.Text ;
  smtp := TIdSMTP.Create;
  smtp.Host := 'smtp.mail.dk';
  smtp.Port := 25;
  smtp.Connect;
  smtp.Send(msg);
  smtp.Destroy;
  msg.Destroy;
  ShowMessage('E-mail sendt.')
end;

Hvis du har internet hos TDC, så bør det være rigtigt.

Hvilken fejl får du ?

Jamen får en fejl med der står ik noget :S

Jaa jeg har TDC :S, men vista.

I delphi står der:
Project Project1.exe raised exception class EIdSMTPRelyReeoe with message ".Process stopped. Use Step or Run to continue."

Og i windos stå der ikke ikke noget med der kommet en fejl dialog op :S

Prøv og catch exception og udskriv al tilgængelig info.

Det kunne være noget anti-relay i mail serveren som du slås med.

Hvordan gør jeg det o.O

Noget a la:

procedure send_email(server, toadr, fromadr, subject, body : string);

var
  smtp : TIdSMTP;
  msg : TIdMessage;

begin
  try
    msg := TIdMessage.Create;
    msg.Recipients.EMailAddresses := toadr;
    msg.From.Address := fromadr;
    msg.Subject := subject;
    msg.Body.Text := body;
    smtp := TIdSMTP.Create;
    smtp.Host := server;
    smtp.Port := 25;
    smtp.Connect;
    smtp.Send(msg);
    smtp.Destroy;
    msg.Destroy;
  except
    on E: EIdException do begin
      ShowMessage(E.Message);
    end;
  end;
end;

okay men hvad skal jeg bruge som server navn ? :)

Kan du komme med et server navn som virker og er gratis ? ;)

Du skal bruge din ISP's SMTP server.

Hvordan kan jeg finde den har TDC

Fandt vi ikke ud af at smtp.mail.dk var OK for TDC for en uge siden.