503 issue RCP TO: Command before data command.
Toplu e-mail gönderiyorum. Kişilerin sicil numaralarına ait text dosyalar var.Bunları attach ederek gönderiyorum. Örneğin 300 kişiye birden e-mail gönderdiğimde acaba tıkanma mı yaşanıyor. Bir öneriniz olursa sevinirim.
Kullandığım procedure aşağıdadır:
Kod: Tümünü seç
procedure TForm1.BitBtn7Click(Sender: TObject);
var
Files : integer;
Search : TSearchRec;
path : string;
msicilno : string;
memail : string;
begin
// baglanti kurma
NMSMTP1.Host := Edit1.Text; // server ip adresi
NMSMTP1.Port := 25;
NMSMTP1.UserID := 'maas';
If Not NMSMTP1.Connected Then NMSMTP1.Connect;
NMSMTP1.PostMessage.FromAddress := 'maas@yahoo.com';
NMSMTP1.PostMessage.FromName := 'Maaş Servisi';
NMSMTP1.PostMessage.Subject := Edit1.Text;
// NMSMTP1.PostMessage.Body.Assign(Memo1.Lines);
path:='c:\ucretfis\';
Form5.Memo1.Lines.Clear;
ADOTable1.First;
While Not ADOTable1.Eof Do
Begin
msicilno:=path+trim(ADOTable1sicilno.AsString)+'*.txt';
memail:=trim(ADOTable1email.AsString);
ListBox2.Items.Clear;
Files := FindFirst(msicilno,faAnyFile,Search);
If Files=0 Then
Begin
While Files=0 Do
Begin
If Search.Attr<>faDirectory Then
Begin
ListBox2.Items.Add(Path+Search.Name);
End;
Files:=FindNext(Search);
End;
FindClose(Search);
NMSMTP1.PostMessage.ToAddress.Add(memail);
NMSMTP1.PostMessage.Attachments.AddStrings(ListBox2.Items);
NMSMTP1.SendMail;
End;
ADOTable1.Next;
End;
ShowMessage('Mail gönderildi.');
If Form5.Memo1.Lines.Count>0 Then
Begin
Form5.ShowModal;
End;
end;