e-posta gönderme konusuna çalışırken aldığım hata mesajı bu. Ne anlama geliyor? Çıkamadım işin içinden ...
kodlar aşağıdaki gibi:
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Edit1.Text:=OpenDialog1.FileName;
TIdAttachment.Create(IdMessage1.MessageParts,Edit1.Text);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
IdSMTP1.Host:='mail.ttnet.com.tr';
IdSMTP1.AuthenticationType:=atNone;
IdSMTP1.UserId:=LabeledEdit1.Text;
IdSMTP1.Port:=25;
IdSMTP1.Connect;
IdMessage1.From.Name:=LabeledEdit1.Text;
IdMessage1.From.Address:='gonderen@xxx.com';
IdMessage1.Subject:=LabeledEdit4.Text;
IdMessage1.Body.Assign(Memo1.Lines);
IdMessage1.ReplyTo.EMailAddresses:='gonderen@xxx.com';
IdMessage1.Recipients.EMailAddresses:='alici@xxx.com';
IdMessage1.BccList.EMailAddresses:=ListBox1.Items.Text;
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
end;
