ARKADAŞLAR ÇALIŞTIĞIM ŞİRKETTE MÜŞTERİLERE KAMPANYALAR HAKKINDA BİLGİ VERMEK AMACIYLA HAZIRLAMIŞ OLDUĞIM PROGRAMDA TOPLU MAIL GÖNDERMEYE ÇALIŞIYORUM ANCAK GÖNDEREMİYORUM.10 MAILE KADAR SORUNSUZ GÖNDERİYOR ANCAK BU HİÇ BİR İŞİME YARAMIYOR:(
BİNLERCE FİRMADAN OLUŞAN PORTFÖYLER VAR ELİMDE ANCAK GÖNDEREMİYORUM.NEDEN KAYNAKLANDIĞINIDA BİLEMİYORUM.LÜTFEN BİR İNCELEYİN ŞİMDİDEN TEŞEKKÜRLER..
MAIL GÖNDER BUTONU:
Kod: Tümünü seç
procedure TForm1.SpeedButton5Click(Sender: TObject);
var c, g, x, a, i: integer;
Text: TIdText;
begin
b := 0;
g := 0;
if edit1.Text = '' then begin
showmessage('Portföy Görüntüleme Sayfasından Mail Gönderim Kriterini Belirleyiniz');
tabsheet2.Show;
label1.Font.Color := clRED;
label2.Font.Color := clRED;
end
else
begin
if OpenDialog2.FileName = '' then
begin
x := MessageDlg('Lütfen Dosya Seçiniz!!', mtConfirmation, mbOKcancel, 0);
if x = mrOk then begin
OpenDialog2.Execute;
listbox2.Items.Clear;
ListBox3.Items.Add(OpenDialog2.FileName);
data.Query.First;
for c := 0 to data.Query.RecordCount - 1 do begin
listbox2.Items.add(data.Query.FieldByName('email').AsString);
data.Query.Next;
end;
for a := 0 to listbox2.Items.Count - 1 do begin
with IdMessage1 do
begin
TIdMessage.Create(nil);
From.Name := 'aaa';
From.Address := 'info@aaa.com';
Recipients.Add;
Recipients[0].Address := listbox2.Items.Strings[a];
Subject := edit3.Text;
ContentType := 'multipart/mixed';
ReceiptRecipient.Text := 'info@aaa.com';
{TIdMessage.Create( nil );
Recipients.Add;
Recipients.EMailAddresses:=listbox2.Items.Strings[a];
ContentType := 'multipart/mixed';
ReceiptRecipient.Text := 'info@arenafuar.com'; }
TIDAttachment.create(IdMessage1.MessageParts, OpenDialog2.FileName); //dosya ekle
//TIDAttachment.create(IdMessage1.MessageParts,OpenDialog1.FileName); //dosya ekle
//for i := 0 to attach_sayisi do TIdAttachment.Create(IdMessage1.MessageParts,dosya_adi); attach
//From.text:='info@aaa.com';
//from.Name:='aaa';
//sleep(100);
//showmessage(listbox2.Items.Strings[a]);
b := b + 1; label12.Caption := inttostr(b);
ListBox4.Items.Add(listbox2.Items.Strings[a]); showmessage('ek2 yok');
memo1.Font := FontDialog1.Font;
memo1.Font.Color := FontDialog1.Font.Color;
memo1.Font.Size := FontDialog1.Font.Size;
Body.Assign(memo1.Lines);
end;
IdSMTP1.Host := 'mail.aaa.com';
IdSMTP1.Username := 'info@aaa.com';
IdSMTP1.Password := 'xxxxx';
try
try
Memo2.Lines.Add('Bağlantı Ayarlanıyor');
IdSMTP1.Connect;
except
Memo2.Lines.Add('HATA: Bağlantı Gercekleşmedi');
end;
try
IdSMTP1.Send(IdMessage1);
Memo2.Lines.Add('Mesajınız yollandı');
except
Memo2.Lines.Add('HATA: Mesajınız Yollanamadı.Tekrar deneyin');
g := g + 1; label14.Caption := inttostr(g);
end;
finally
IdSMTP1.Disconnect; //sleep[50] kullan
IdMessage1.Clear;
if x = mrcancel then showmessage('fgfd');
end; end; end; end
else begin
b := 0;
for a := 0 to listbox2.Items.Count - 1 do begin
with IdMessage1 do
begin
TIDAttachment.create(IdMessage1.MessageParts, OpenDialog2.FileName); //dosya ekle
(IdMessage1.MessageParts, OpenDialog1.FileName); //dosya ekle
From.text := 'info@aaa.com';
from.Name := 'aaa';
Recipients.EMailAddresses := listbox2.Items.Strings[a];
sleep(100);
b := b + 1; label12.Caption := inttostr(b);
Subject := edit3.Text;
Body.Assign(memo1.Lines);
end;
IdSMTP1.Host := 'mail.aaa.com';
IdSMTP1.Username := 'info@aaa.com';
IdSMTP1.Password := 'xxxxx';
try
try
Memo2.Lines.Add('Bağlantı Ayarlanıyor');
IdSMTP1.Connect;
except
Memo2.Lines.Add('HATA: Bağlantı Gercekleşmedi');
end;
try
IdSMTP1.Send(IdMessage1);
Memo2.Lines.Add('Mesajınız yollandı');
except
Memo2.Lines.Add('HATA: Mesajınız Yollanamadı.Tekrar deneyin');
g := g + 1; label14.Caption := inttostr(g);
end;
finally
IdSMTP1.Disconnect; //sleep[50] kullan
IdMessage1.Clear;
end; end; end;
listbox2.Items.Clear;
data.Query.First;
end;
end;
@mrmarman yazdı:Şimdilik sizin için code bloğuna ben aldım. Lütfen kodlarınızı okunur şekilde yazınız. Aceleniz olması, forum kurallarına aykırı hareket serbestisi sunmaz. Yazdıktan sonra da seçerek Code yazan butona basınız. Bu şekilde formatlı bir şekilde forumda görünecektir. @mrmarman