用户将前面的程序代码完善以后
便可以实现邮件的发送功能
功能的实现是在程序界面中发送邮件按钮的消息响应函数
void CMyDlg::OnSendmail()
{
char buf[4];
CString data="Data:Tue,04 Feb 2009 21:18:03+0800\r\n";
//构造发送字符串
CString sender=" MAIL FROM:";
CString recver=" RCPT TO:";
CString subject=" Subject:";
CString s,r,s1;
GetDlgItem(IDC_SENDER)->GetWindowText(s); //获取空间的内容
GetDlgItem(IDC_RECVER)->GetWindowText(r);
GetDlgItem(IDC_SUBJECT)->GetWindowText(s1);
GetDlgItem(IDC_MAILTEXT)->GetWindowText(mailtext);
sender+=s; //添加获取内容
recver+=r;
subject+=s1;
char sengmail[]={"HELO", //构造发送数组
sender.GetBuffer(1),
recver.GetBuffer(1),
"DATA\r\n",
subject.GetBuffer(1), //发送DATA命令
mailtext.GetBuffer(1),
"QUIT\r\n", //退出会话
"\0"} //结束符
send(s,sendmail,sizeof(sendmail),0); //向服务器发送邮件
recv(s,buf,4,0) ; //接收响应数据
if(buf!=NULL) //时候接收到数据
{
if((atoi)buf==250)
{
::SendMessage(statu,SB_SETTEXT,0,(long)"邮件发送成功!");
}
else
{
::SendMessage(statu,SB_SETTEXT,0,(long)"邮件发送失败!");
}
}
else
{
::SendMessage(statu,SB_SETTEXT,0,(long)"邮件正在发送!");
}
}
运行代码
如果邮件发送成功
则在状态栏上显示"邮件发送成功"