nmsmtp1.Host:=edit1.Text;
nmsmtp1.PostMessage.Body.Clear;
nmsmtp1.PostMessage.Body.AddStrings(memo1.Lines);
nmsmtp1.PostMessage.FromName:='edit3.text';
nmsmtp1.UserID:=edit3.Text;
nmsmtp1.PostMessage.Subject:=edit7.Text;
nmsmtp1.PostMessage.FromAddress:=edit5.Text;
nmsmtp1.PostMessage.ToAddress.Text:=edit6.text;
nmsmtp1.SubType:=mthtml;
StatusBar1.Panels[0].Text:='正在连接到服务器:'+edit1.Text+'...';
nmsmtp1.Connect;
StatusBar1.Panels[0].Text:='正在发送,请稍候...';
//nmsmtp1.Verify(edit3.Text);
nmsmtp1.SendMail;
小弟不知道以上代码错在哪里,总是提示我好像是什么“没有权限从XXXXXX邮箱发邮件”
是怎么回事,是不是没有指定密码,怎么指定,我打不到相应的属性!
请指教,谢谢!
nmsmtp1.PostMessage.Body.Clear;
nmsmtp1.PostMessage.Body.AddStrings(memo1.Lines);
nmsmtp1.PostMessage.FromName:='edit3.text';
nmsmtp1.UserID:=edit3.Text;
nmsmtp1.PostMessage.Subject:=edit7.Text;
nmsmtp1.PostMessage.FromAddress:=edit5.Text;
nmsmtp1.PostMessage.ToAddress.Text:=edit6.text;
nmsmtp1.SubType:=mthtml;
StatusBar1.Panels[0].Text:='正在连接到服务器:'+edit1.Text+'...';
nmsmtp1.Connect;
StatusBar1.Panels[0].Text:='正在发送,请稍候...';
//nmsmtp1.Verify(edit3.Text);
nmsmtp1.SendMail;
小弟不知道以上代码错在哪里,总是提示我好像是什么“没有权限从XXXXXX邮箱发邮件”
是怎么回事,是不是没有指定密码,怎么指定,我打不到相应的属性!
请指教,谢谢!
用Indy吧,有Demo的:)http://lysoft.7u7.net
smtp.Host:=xxxx
smtp.Port:=25;
smtp.UserID:=xxxx;
smtp.password:=xxxx;