用smtp这样发送邮件，为什么收到的发件人是许多人的邮件地？

Question

for ii := 0 to Memo1.Lines.Count - 1 do
  NMSMTP1.PostMessage.FromAddress :=memo1.Lines.Strings[ii];
    

Answer 1

可以的。。处理smtp的SendStart事件，
procedure TForm1.NMSMTP1SendStart(Sender:TObject);
begin
NMSMTP1.FinalHeader.clear;
end;可以将所有的信息清除：）要是你想清除一部分，就清除某个字段就可以了。自己找找吧。FinalHeander是Tstringlist，每个stirng[]保存一个信息：）你可以修改的哦给分哦

Answer 2

你在Memo中放的是什么?收件人的地址?
如果是的话,注意Memo中的收件人地址必须一人一行
NMSMTP1.PostMessage.ToAddress.Clear;
NMSMTP1.PostMessage.ToAddress.Assign(Memo.Lines);
    

Answer 3

我是想让发件人只有一个固定的一个,而不是其中一部分。MEMO是放收件名单，而且每一个地址一行。
将NMSMTP1.PostMessage.ToAddress.Clear之后不也一样。