E-Mail Versand mit Indy 10 geht nur in der IDE

[Alex_kfm]

Zitat von mkinzler:

Zitat:

Ich hab leider keinen Remote Debugger

Ist bei Delphi dabei.

Hab ich wohl nicht installiert, bisher braucht ich das gute Stück auch nicht.

Vielleicht mache ich ja auch was falsch, hier mal meine "vereinfachte" Senderoutine:

Delphi-Quellcode:

procedure SendMail;
var
  email: TidMessage;
  smtp: TidSmtp;
  strMessage: String;
begin
  email := TidMessage.Create(nil);
  smtp := TidSMTP.Create(nil);

  smtp.Username := 'derusername';
  smtp.Password := 'daspasswort';
  smtp.Host := 'smtp.irgendwas.de';
  email.ContentType := 'text/plain';
  email.From.Text := '[e-mail]';
  email.Recipients.EMailAddresses := '[e-mail]';
  email.Subject := 'Der Betreff';
  strMessage := 'Die erste Zeile Text' + #10#13;
  strMessage := strMessage + 'Die zweite Zeile';
  email.Body.Text := strMessage;
  try
    try
      if not smtp.Connected then smtp.Connect;
      if smtp.Connected then smtp.Send(eMail);
    except
      on e: Exception do
      begin 
        MessageBox(handle, PChar(e.Message),
          PChar('Übertragungsfehler'), MB_OK + MB_ICONHAND);
        Exit;
      end;   
    end;
  finally
    if smtp.Connected then smtp.Disconnect;
    email.Free;
    smtp.Free;
  end;
end;

Vielleicht ist der Fehler ja auch hier, nur in der IDE geht es halt und das verstehe ich nicht.

Gruß,
Der Alex