Aşağıdaki kod ile delphi7 ve indy10 ile mail gönderiyordum pc ye format atılmış artık aşağıdaki gibi hata mesajı alıyorum sebebi ne olabilir ?
Teşekkürler.
Hata mesajı,
Kod: Tümünü seç
---------------------------
Debugger Exception Notification
---------------------------
Project Project2.exe raised exception class EIdSMTPReplyError with message ''. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
Gönderim kodu
Kod: Tümünü seç
procedure TForm23.Timer1Timer(Sender: TObject);
var
html: TStrings;
email: TIdMessage;
filename: string;
begin
Qr_mail.Close;
Qr_mail.Open;
if Qr_mail.fields[0].Asstring = ''
then begin
Form23.Close;
end
else
begin
Qr_soz_mail.Close;
Qr_soz_mail.Parameters.ParamByName('BAS').Value:=DateTimePicker1.Date - 30;
Qr_soz_mail.Parameters.ParamByName('BITIS').Value:=DateTimePicker1.Date + 45;
Qr_soz_mail.Parameters.ParamByName('MAILID').Value:=Qr_mail.FieldByName('ID').AsString;
Qr_soz_mail.Open;
if Qr_soz_mail.RecordCount > 0
then begin
frxHTMLExport1.FileName:=ExtractFilePath(Application.ExeName)+'\Raporlar\mail\Bilgi.html';
frxReport1.PrepareReport(true);
frxHTMLExport1.ShowDialog:=False;
frxReport1.Export(frxHTMLExport1);
IdMessage1.Recipients.EMailAddresses:='xxxx@beyaz.com';
IdMessage1.From.Address:='xxxxx22@beyaz.com';//Gönderen
IdMessage1.From.Name:='insan kaynaklari'; //Gönderen
IdMessage1.Subject :='Sözlesmesi Biten & Bitecek Personel';
with TIdText.Create(IdMessage1.MessageParts, nil) do begin
Body.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Raporlar\mail\Bilgi.html');
ContentType :='text/html; charset=UTF-8';
end;
IdSMTP1.Host:='mail.beyaz.com';
IdMessage1.ContentType := 'multipart/related; type="text/html"';
idmessage1.ContentType:='text/html; charset=UTF-8';
idmessage1.ContentTransferEncoding:='8bit';
IdSMTP1.Connect;
IdSMTP1.Send(IdMessage1); //yolla
IdSMTP1.Disconnect;