vc下基于SMTP协议的发送电子邮件代码

msg->GetRecipients(strEmail,strTemp,i);

strTo.Format(_T("RCPT TO:<%s>\r\n"),(LPCTSTR)strEmail);

m_wsSMTPServer.Send((LPCTSTR)strTo,strTo.GetLength());

get_response(GENERIC_SUCCESS);

}

//发送DATE命令

strTemp = _T("DATE\r\n ");

m_wsSMTPServer.Send((LPCTSTR)strTemp,strTemp.GetLength());

if(!get_response(DATE_SUCCESS))

{

//发送DATE命令失败

return FALSE;

}

//发送邮件头

m_wsSMTPServer.Send((LPCTSTR)msg->m_sHeader,msg->m_sHeader.GetLength());

//发送邮件正文

strTemp = cook_body(msg);

m_wsSMTPServer.Send((LPCTSTR)strTemp,strTemp.GetLength());

//给邮件正文加上结束标志

strTemp = _T("\r\n.\r\n");

m_wsSMTPServer.Send((LPCTSTR)strTemp,strTemp.GetLength());

if(!get_response(GENERIC_SUCCESS))

{

return FALSE;

}

return TRUE;

}