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;

}