那一位有用delphi7.0开发发送邮件的程序啊！！！！ ( 积分: 100 )

我的邮件是SSWXFIQPL0207@163.COM，多各位大富翁了

>>那一位有用delphi不着7。0发送邮件的程序啊
抱歉，不明白你的意思！

sakemail

不是把!这个有自带现成的控件啊!几句就搞定了

用IDSMTP组件发送的啊！！不是打开其他软件发送的啊！！！

就是用自带的控件啊!with NMSMTP1 do
begin
if connected then disconnect;
host:=edit1.Text ;//smtp服务器地址
port:=strtoint(edit2.Text );//端口
userID:=edit3.Text ;//用户名
try
connect;
except
begin
showmessage('连接不到服务器!');
exit;
end;
end;

postmessage.FromAddress :=edit6.Text ;//地址
postmessage.FromName :=edit7.Text ;//名字
postmessage.Subject :=edit5.Text ;//主题
postmessage.ToAddress.Add(edit4.Text );//发送到地址
postmessage.Body.Assign(memo1.Lines);//内容
try
try
sendmail;
finally
disconnect;
end;
except
begin
showmessage('邮件发送失败!');
exit;
end;
end;
end;
end;

delphi6和delphi7自带的smtp不一样,注意

用IDSMTP控件的啊!!!lovezyp如果邮箱要验证，那你的就发不到了啊

idsmtp1.AuthenticationType:=atlogin;
idsmtp1.Username:='yourname';
idsmtp1.Password:='password';
with IdMessage1 do
begin
body.Assign(memo1.Lines);
IdMessage1.From.Text:=edit1.Text;
IdMessage1.Recipients.EMailAddresses:=edit2.Text;
IdMessage1.Subject:=edit3.Text;
idsmtp1.Connect();
end;
try
Send(IdMessage1);
finally
Disconnect;
end;
end;


各位帮我看下，那里出错了啊！！！！

你没有判断就直接atlogin
还有就是中间没有sleep一下 当然要出错的
白菜代码 估计是要做发垃圾邮件的东东 所以没有办法帮你写代码啦
自己白肚google搜索一下 大把发邮件的
sakemail 要改很多东西才能对付一些特殊的网站 倒不如自己用winsocks写