VC：实现邮件的收发功能
1、下载JMail4.3安装
2、添加对话框应用程序：
一、发信模块：
2、点击写信按钮：
void CJMailDlg::OnSend()
{
// TODO: Add your control notification handler code here
GetDlgItem(IDOK)->EnableWindow(TRUE);
GetDlgItem(IDC_NAME)->EnableWindow(TRUE);
GetDlgItem(IDC_SENDAD)->EnableWindow(TRUE);
GetDlgItem(IDC_PASSWORD)->EnableWindow(TRUE);
GetDlgItem(IDC_SMTP)->EnableWindow(TRUE);
GetDlgItem(IDC_POP)->EnableWindow(FALSE);
GetDlgItem(IDC_REVAD)->EnableWindow(TRUE);
GetDlgItem(IDC_SUBJECT)->EnableWindow(TRUE);
GetDlgItem(IDC_BODY)->EnableWindow(TRUE);
GetDlgItem(IDC_ADD)->EnableWindow(TRUE);
GetDlgItem(IDC_LIST)->EnableWindow(FALSE);
//清空所有控件内容
m_list.DeleteAllItems();//清空附件列表
m_body ="";
m_name ="";
m_password ="";
m_pop3 ="";
m_revad ="";
m_sendad ="";
m_smtp = "";
m_subject ="";
UpdateData(false);
flag=true;//记录是发信状态
}
3、添加附件：
void CJMailDlg::OnAdd()
{
// TODO: Add your control notification handler code here
GetDlgItem(IDC_LIST)->EnableWindow(TRUE);
CFileDialog dlg(true,NULL,NULL,OFN_ALLOWMULTISELECT);
if(dlg.DoModal() == IDOK)
{
POSITION pos = dlg.GetStartPosition();
while(pos != NULL)
{
long i=m_list.GetItemCount();
m_list.InsertItem(m_list.GetItemCount()+1,dlg.GetNextPathName(pos));//AddString(dlg.GetNextPathName(pos));
CString str;
str=m_list.GetItemText(i,0);
}
}
}
4、删除附件：
void CJMailDlg::OnDblclkList(NMHDR* pNMHDR, LRESULT* pResult)
{
// TODO: Add your control notification handler code here
if(flag==true)
if(IDOK==MessageBox("确定删除此项吗？","删除提示",MB_OKCANCEL|MB_ICONQUESTION))
{
int nItem=m_list.GetNextItem (-1,LVNI_SELECTED);
m_list.DeleteItem(nItem);
UpdateData(FALSE);
}
*pResult = 0;
}
5、确定发信操作：
void CJMailDlg::OnOK()
{
// TODO: Add extra validation here
if(flag==true)
{
//参数的获取与判断
UpdateData(true);
m_sendad.TrimRight();//去掉后面多于空格
m_password.TrimRight();
m_smtp.TrimRight();
m_revad.TrimRight();
m_subject.TrimRight();
m_body.TrimRight();
m_name.TrimRight();
//判断参数是否合法
if(m_revad.GetLength()<3)
{
AfxMessageBox("请填写正确的收件人邮箱");
return;
}
if(m_sendad.GetLength()<3)
{
AfxMessageBox("请填写正确的发信人邮箱");
return;
}
if(m_body=="")
{
AfxMessageBox("请填写正文");
return;
}
if(m_subject=="")
{
if(IDCANCEL==MessageBox("确定不填写标题吗？","提示",MB_OKCANCEL|MB_ICONQUESTION))
return;
}
if(m_name=="")
{
if(IDCANCEL==MessageBox("确定不填写昵称吗？","提示",MB_OKCANCEL|MB_ICONQUESTION))
return;
}
//进行发信
try
{
CoInitialize(NULL); // COM的初始化
jmail::IMessagePtr pMessage("JMail.Message");
pMessage->From = (LPCTSTR)m_sendad;// 发件人邮箱
pMessage->FromName =_bstr_t(m_name);// 发件人姓名
pMessage->AddRecipient((LPCTSTR)m_revad, "", "");// 添加收件人
pMessage->Priority = 3;// 优先级设置,1-5逐次降低, 3为中级
pMessage->Charset = "GB2312";// 编码方式设置, 默认是iso-8859-1
pMessage->Subject = (LPCTSTR)m_subject;// 主题
pMessage->Body = (LPCTSTR)m_body;// 正文
pMessage->MailServerUserName=(LPCTSTR)m_sendad;// 开始发送
pMessage->MailServerPassWord=(LPCTSTR)m_password;
if(m_list.GetItemCount()!=0)
for(int i=0;i<=m_list.GetItemCount()-1;i++)
{
CString str;
str=m_list.GetItemText(i,0);
pMessage->AddAttachment(_bstr_t(str), VARIANT_FALSE, "application/octet-stream");
char *p=_bstr_t(str);
}
pMessage->Send((LPCTSTR)m_smtp, VARIANT_FALSE);
pMessage.Release();
AfxMessageBox("发送成功!");
CoUninitialize();
}
catch (_com_error e)
{
CString strErr;
strErr.Format("程序运行错误\r\n错误描述：%s",(LPCTSTR)e.Description());
AfxMessageBox(strErr);
}
}
//进行收信工作
else
{
//参数的获取与判断
UpdateData(true);
m_password.TrimRight();
m_sendad.TrimRight();
m_pop3.TrimRight();
//判断参数是否合法
if(m_sendad.GetLength()<3)
{
AfxMessageBox("请填写正确的收件人邮箱");
return;
}
if(m_password=="")
{
AfxMessageBox("请填写密码");
return;
}
if(m_pop3=="")
{
AfxMessageBox("请填写POP服务器");
return;
}
//开始信件获取
CRec dlg;
dlg.DoModal();
}
//CDialog::OnOK();
}
二、收信模块：
1、点击收信按钮：
void CJMailDlg::OnRev()
{
// TODO: Add your control notification handler code here
GetDlgItem(IDOK)->EnableWindow(TRUE);
GetDlgItem(IDC_NAME)->EnableWindow(FALSE);
GetDlgItem(IDC_SENDAD)->EnableWindow(TRUE);
GetDlgItem(IDC_PASSWORD)->EnableWindow(TRUE);
GetDlgItem(IDC_SMTP)->EnableWindow(FALSE);
GetDlgItem(IDC_POP)->EnableWindow(TRUE);
GetDlgItem(IDC_REVAD)->EnableWindow(FALSE);
GetDlgItem(IDC_SUBJECT)->EnableWindow(FALSE);
GetDlgItem(IDC_BODY)->EnableWindow(FALSE);
GetDlgItem(IDC_ADD)->EnableWindow(FALSE);
GetDlgItem(IDC_LIST)->EnableWindow(FALSE);
//清空所有控件内容
m_list.DeleteAllItems();//清空附件列表
m_body ="";
m_name ="";
m_password ="";
m_pop3 ="";
m_revad ="";
m_sendad ="";
m_smtp = "";
m_subject ="";
UpdateData(false);
flag=false;//记录是收信状态
}
2、添加新的对话框，及变量CString m_body、CListCtrl m_llis、CListCtrl m_llist,和类CRecDlg;
CString m_pop;
CString m_add;
CString m_password;
jmail::IMessagesPtr pMessages;
jmail::IMessagePtr pMessage;
jmail::IAttachmentsPtr pAttachments;
jmail::IAttachmentPtr pAttachment;
CStringArray m_bodyArray;
初始化：
BOOL CRec::OnInitDialog()
{
CDialog::OnInitDialog();
// TODO: Add extra initialization here
m_letter.InsertColumn(0, "发件人");
m_letter.InsertColumn(1, "主题");
m_letter.InsertColumn(2, "日期");
//获取列表的宽度
RECT rect;
m_letter.GetWindowRect(&rect);
int wid=rect.right-rect.left;
//为你的每列分宽度
m_letter.SetColumnWidth(0,wid/3);
m_letter.SetColumnWidth(1,wid/3);
m_letter.SetColumnWidth(2,wid/3);
m_att.InsertColumn(0, "附件名");
m_att.InsertColumn(1, "大小");
//获取列表的宽度
m_att.GetWindowRect(&rect);
wid=rect.right-rect.left;
//为你的每列分宽度
m_att.SetColumnWidth(0,wid/2);
m_att.SetColumnWidth(1,wid/2);
return TRUE; // return TRUE unless you set the focus to a control
// EXCEPTION: OCX Property Pages should return FALSE
}
3、单击OK按钮，提交信息：
void CJMailDlg::OnOK()
{
// TODO: Add extra validation here
if(flag==true)
{
//参数的获取与判断
UpdateData(true);
m_sendad.TrimRight();//去掉后面多于空格
m_password.TrimRight();
m_smtp.TrimRight();
m_revad.TrimRight();
m_subject.TrimRight();
m_body.TrimRight();
m_name.TrimRight();
//判断参数是否合法
if(m_revad.GetLength()<3)
{
AfxMessageBox("请填写正确的收件人邮箱");
return;
}
if(m_sendad.GetLength()<3)
{
AfxMessageBox("请填写正确的发信人邮箱");
return;
}
if(m_body=="")
{
AfxMessageBox("请填写正文");
return;
}
if(m_subject=="")
{
if(IDCANCEL==MessageBox("确定不填写标题吗？","提示",MB_OKCANCEL|MB_ICONQUESTION))
return;
}
if(m_name=="")
{
if(IDCANCEL==MessageBox("确定不填写昵称吗？","提示",MB_OKCANCEL|MB_ICONQUESTION))
return;
}
//进行发信
try
{
CoInitialize(NULL); // COM的初始化
jmail::IMessagePtr pMessage("JMail.Message");
pMessage->From = (LPCTSTR)m_sendad;// 发件人邮箱
pMessage->FromName =_bstr_t(m_name);// 发件人姓名
pMessage->AddRecipient((LPCTSTR)m_revad, "", "");// 添加收件人
pMessage->Priority = 3;// 优先级设置,1-5逐次降低, 3为中级
pMessage->Charset = "GB2312";// 编码方式设置, 默认是iso-8859-1
pMessage->Subject = (LPCTSTR)m_subject;// 主题
pMessage->Body = (LPCTSTR)m_body;// 正文
pMessage->MailServerUserName=(LPCTSTR)m_sendad;// 开始发送
pMessage->MailServerPassWord=(LPCTSTR)m_password;
if(m_list.GetItemCount()!=0)
for(int i=0;i<=m_list.GetItemCount()-1;i++)
{
CString str;
str=m_list.GetItemText(i,0);
pMessage->AddAttachment(_bstr_t(str), VARIANT_FALSE, "application/octet-stream");
char *p=_bstr_t(str);
}
pMessage->Send((LPCTSTR)m_smtp, VARIANT_FALSE);
pMessage.Release();
AfxMessageBox("发送成功!");
CoUninitialize();
}
catch (_com_error e)
{
CString strErr;
strErr.Format("程序运行错误\r\n错误描述：%s",(LPCTSTR)e.Description());
AfxMessageBox(strErr);
}
}
//进行收信工作
else
{
//参数的获取与判断
UpdateData(true);
m_password.TrimRight();
m_sendad.TrimRight();
m_pop3.TrimRight();
//判断参数是否合法
if(m_sendad.GetLength()<3)
{
AfxMessageBox("请填写正确的收件人邮箱");
return;
}
if(m_password=="")
{
AfxMessageBox("请填写密码");
return;
}
if(m_pop3=="")
{
AfxMessageBox("请填写POP服务器");
return;
}
//开始信件获取
CRec dlg;
dlg.DoModal();
}
//CDialog::OnOK();
}
5、开始接收邮件：
void CRec::OnStart()
{
// TODO: Add your control notification handler code here
CJMailApp*pApp=(CJMailApp*)AfxGetApp();
CJMailDlg*pDlg=(CJMailDlg*)pApp->m_pMainWnd;
m_add=pDlg->m_sendad;
m_password=pDlg->m_password;
m_pop=pDlg->m_pop3;
try
{
CoInitialize(NULL);
jmail::IPOP3Ptr pPOP3("JMail.POP3");
// 超时 60S
//Connect=true;
pPOP3->Timeout =60;
// 连接邮件服务器
pPOP3->Connect((LPCTSTR)m_add,(LPCTSTR)m_password,(LPCTSTR)m_pop,110);
pMessages = pPOP3->Messages;
long lCount = pMessages->Count - 1;
if(lCount == 0)
AfxMessageBox("信箱为空");
else
{
for(long i= 1; i <= lCount; i++)
{
pMessage=pMessages->Item[i];
//pMessage->Encoding= "quoted-printable ";
pMessage->ContentType= "text/html ";
pMessage->ContentTransferEncoding="Quoted-Printable ";
pMessage->Encoding="uuencode";
pMessage->Charset="gb2312";
/* pMessage->Charset = "GB2312"; //邮件的文字编码为国标
pMessage->ContentTransferEncoding = "base64";
pMessage->Encoding = "uuencode";//"base64";
pMessage->ISOEncodeHeaders = false;
pMessage->ContentType = "text/html";*/
_bstr_t bstrFrom = pMessage->From;
_bstr_t bstrSubject = pMessage->Subject;
_bstr_t bstrBody = pMessage->Body;
COleDateTime oleDate = pMessage->Date;
int nListItem = m_letter.InsertItem(i, (const char*)bstrFrom);
m_letter.SetItem(nListItem, 1, LVIF_TEXT, (const char*)bstrSubject, 0, 0, 0, NULL);
m_letter.SetItem(nListItem, 2, LVIF_TEXT, (const char*)oleDate.Format("%Y-%m-%d"), 0, 0, 0, NULL);
m_bodyArray.Add((const char*)bstrBody);
pMessage.Release();
}
}
}
catch(_com_error e)
{
CString strErr;
strErr.Format("程序运行错误\r\n错误描述：%s",(LPCTSTR)e.Description());
AfxMessageBox(strErr);
}
}
6、添加控件：IDC_LETTER的LVN_ITEMCHANGED事件的消息映射，实现打开邮件的功能：
void CRec::OnItemchangedLetter(NMHDR* pNMHDR, LRESULT* pResult)
{
NM_LISTVIEW* pNMListView = (NM_LISTVIEW*)pNMHDR;
// TODO: Add your control notification handler code here
POSITION pos = m_letter.GetFirstSelectedItemPosition();
if(pos)
{
m_att.DeleteAllItems( );
int nItem = m_letter.GetNextSelectedItem(pos);
m_body = m_bodyArray.GetAt(nItem);
jmail::IPOP3Ptr pPOP3("JMail.POP3");
pMessage=pMessages->Item[nItem+1];
for(int i=0;i<=pMessage->Attachments->Count-1;i++)
{
pAttachment=pMessage->Attachments->Item[i];
_bstr_t bstrname=pAttachment->Name;
_bstr_t bstrsize=pAttachment->Size;
int nListItem = m_att.InsertItem(m_att.GetItemCount()+1,(const char*)bstrname);
m_att.SetItem(nListItem, 1, LVIF_TEXT, (const char*)bstrsize, 0, 0, 0, NULL);
}
UpdateData(FALSE);
pMessage.Release();
}
*pResult = 0;
}
7、IDC_ATT的NM_DBLCLK事件的消息映射，实现下载附件的功能：
void CRec::OnDblclkAtt(NMHDR* pNMHDR, LRESULT* pResult)
{
// TODO: Add your control notification handler code here
int i=m_letter.GetNextItem (-1, LVNI_SELECTED);
int nItem =m_att.GetNextItem (-1, LVNI_SELECTED);
jmail::IPOP3Ptr pPOP3("JMail.POP3");
CString str;
str=m_att.GetItemText(nItem,0);
CFileDialog dlg(false,NULL,str,OFN_ALLOWMULTISELECT);
if(dlg.DoModal()==IDOK)
{
POSITION pos=dlg.GetStartPosition();
while(pos!=NULL)
{
pMessage=pMessages->Item[i+1];
pAttachment=pMessage->Attachments->Item[nItem];
pAttachment->SaveToFile(_bstr_t(dlg.GetNextPathName(pos)));
MessageBox("下载完成！",NULL,MB_OK);
pMessage.Release();
}
}
*pResult = 0;
}
