Teman bantu aku.. Saya bikin program auto send email, misalkan email yang akan dikirim 130 tapi kenapa ketika 90 programnya langsung error? Komponen yang saya pake TidSMTP dan TidMessage.. Please help me :idea:

kemungkinan ada keterbatasan BW..........check ur BW

BW teh apa mas_kofa? Cara mengaatassinya gimana?

bandwidth

Wah ada masalah baru nih.. Kenapa di programnya terkirim tapi di alamat tujuan emailnya tidak ada/nyampe? Apa ada yang salah di portnya atau di hostnya? hatur nuhun..

cek konfigurasi alamat email,dlsb...mungkin ada yang masih salah...ato klo gak tempel aja kodingnya dsni biar dibantu ma temen2 yang laennya.

ter

Masalahnya, kenapa diprogramnya / di databasenya statusnya terkirim tapi di tujuannya tidak ada.. Misal : - xxx@ccc.com - (terkirim) - yyy@ddd.com - (terkirim tapi emailnya ga ada) Pokoknya tiap ngirim ke ddd.com ga kekirim kadang suka muncul error chkuser.. Nih kodingnya ta tempelin... procedure TForm1.btnprosesClick(Sender: TObject); begin SMTP.Host := XEHOST.Text; SMTP.Port := 25; MAILMESSAGE.From.Address := xefrom.Text; MAILMESSAGE.CCList.EMailAddresses := 'sss@yyyy.com'; listbox1.Items.Add('-> Cek proses') END

try try SMTP.Connect(1000); SMTP.Send(MailMessage); except on E:Exception do listbox1.Items.Add('Error : '+E.message); end; finally if smtp.Connected then smtp.Disconnect; end; if dm.tbltoko_po.Locate('tanggal;kode_toko',vararrayof(),) then begin dm.tbltoko_po.Edit; dm.tbltoko_poSTATUS.Value := 'Sudah'; dm.tbltoko_po.Post; end; application.ProcessMessages; listbox1.Items.Add('-> Toko'+' '+'-'+' '+dm.qtoko.fieldbyname('kode_toko').AsString); listbox1.Items.Add('-> Attachment'+' '+'-'+' '+attachment); listbox1.Items.Add('-> Status'+' '+'-'+' '+'Terkirim'); listbox1.Items.Add(''); end; end; Next; end; end; application.ProcessMessages; listbox1.Items.Add(''); listbox1.Items.Add('-> Pengiriman data selesai'); tmrsend_po.Enabled := false; end; END;

duh kenapa sebagian koding ku ga bisa di posting yah selalu ngelink kehalaman Internal Server Error..