alıcı, gönderici ve konu ayarından sonra
memo yu ekliyorum.Sonra connect ve send yanlız programım gereği, mail gönderme işlemi 2 saniyede bir oluyor.
yani bir numara sistemi var kullanıcı numara listesinden tıklayıp gönder diyor.(mailbomber sanılmasın)
Kod: Tümünü seç
MailMessage.Body.Add(mailmemo.Lines.Text);
try
try
SMTP.Host := myhost;
SMTP.Port:=25;
SMTP.Connect(1000);
SMTP.Authenticate;
SMTP.Send(MailMessage);
finally
if SMTP.Connected
then SMTP.Disconnect;
// SMTP.Destroy;
end;
except on E:Exception do
showmessage('DİKKAT!: Bir hata oluştu, Mail gönderilmemiş olabilir. ');
end;
Destroy edip denedim.Hata almıyorum .Fakat mailler birleşip gidiyor.
Free ettim bu sefer de html formatı bozuluyor. Anlayamadım.
İyi çalışmalar.