我用开发发送邮件系统,为什么内部邮件系统可以发,到了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;
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;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货