我用开发发送邮件系统,为什么内部邮件系统可以发,到了WEB上就不能发了,是不是要认证啊?代码如下!
try
    butnSendMail.Enabled := False;
    screen.Cursor :=crHourGlass;
    with mesgMessage do
    begin
      //Clear;
      From.Text := Trim(editFrom.Text);
      Priority := TIdMessagePriority(0);
      Recipients.Clear;
         if CSRadioButton.Checked then
      For I:=0 to TomailCheckListBox.Items.Count-1 do
      begin
       if TomailCheckListBox.Checked[I] then
        Recipients.Add.Text:=TomailCheckListBox.Items.Strings[I];//  Trim(editTo.Text);
      end;
      Subject := Trim(editSubject.Text);
      Body.Assign(memoMsg.Lines);
      MessageParts.Clear;
      For I:=0 to lvFiles.Items.Count-1 do
        TIdAttachment.Create(MessageParts,lvFiles.Items.Item[I].Caption);
    end;
    with smtpSendMail do
    begin
      Host := Trim(editSMTPServer.Text);
      // AuthType := atDefault;
      UserId := Trim(edt_user.Text);
      Password := Trim(edt_pass.Text);
     try
       begin
        Connect;
        Send(mesgMessage);
       end;
      finally Disconnect;     end;
  finally
   butnSendMail.Enabled:=True;
   screen.Cursor :=crDefault;
  end;
end;