MailPopper - Nie wieder Outlook! ;)

[DanielF]

komisch. ich hab des prog auch n paar freunden zum testen gegeben (alle xp) und bei denen gehts prima. ich versteh des ned. wenn man die neuen kontodaten eingegeben hat wird ne testverbindung hergestellt. wenn da was ned funzt, müsst ers als fehlermeldung ausspucken...

Code:

procedure TForm4.Panel5Click(Sender: TObject);
var ListItem: TListItem;
 fehler:integer;
begin
fehler:=0;
if not (edit1.Text ='') and not (edit2.Text ='') and not (edit4.Text ='') then begin
while isdoing=1 do begin
 application.ProcessMessages;
 sleep(5);
end;
try
isdoing:=1;
form1.POP.Disconnect;
form1.POP.Host := edit1.Text;
form1.POP.username := edit2.Text;
form1.POP.password := maskedit1.Text;
form1.POP.Connect(2000);
form1.POP.Disconnect;
except
fehler := 1;
form1.POP.Disconnect;
MessageDlg('Es konnte mit diesen Daten keine Verbindung hergestellt werden!', mtError, [mbOk], 0);
end;

anders := 1;
if (eintrag<0) then begin
 ListItem:=form3.ListView1.Items.Add;
 ListItem.Caption := edit4.Text;
 ListItem.Subitems.Add('');
 ListItem.Subitems.Add(edit2.Text);
 ListItem.Subitems.Add(maskedit1.Text);
 ListItem.Subitems.Add(edit3.Text);
 if panel1.Caption='X' then
  ListItem.Subitems.Add('1')
 else
  ListItem.Subitems.Add('0');
 ListItem.Subitems.Add(edit1.Text);
 if form3.ListView1.Items.Count = 1 then
  form3.ListView1.Items.Item [standardsmtp].SubItems.strings[0] := 'standard';
end
else begin
try
 form3.ListView1.Items.Item[eintrag].Caption := edit4.Text;
 form3.ListView1.Items.Item [eintrag].SubItems.strings[1] := edit2.Text;
 form3.ListView1.Items.Item [eintrag].SubItems.strings[2] := maskedit1.Text;
 form3.ListView1.Items.Item [eintrag].SubItems.strings[3] := edit3.Text;
 if panel1.Caption='X' then
  form3.ListView1.Items.Item [eintrag].SubItems.strings[4] := '1'
 else
  form3.ListView1.Items.Item [eintrag].SubItems.strings[4] := '0';
 form3.ListView1.Items.Item [eintrag].SubItems.strings[5] := edit1.Text;
except
end;
end;
end
else
 MessageDlg('Zu wenig Informationen!', mtError, [mbOk], 0);
hide;
isdoing:=0;
end;