VC++、MFC使用Jmail组件自动发送邮件带附件（源代码）

// EmailSendDlg.cpp : 实现文件 // #include "stdafx.h" #include "EmailSend.h" #include "EmailSendDlg.h" #include "ParamSetDlg.h" #include "AddEmailAddrDlg.h" #include <Shlwapi.h> #pragma comment(lib, "Shlwapi.lib") #ifdef _DEBUG #define new DEBUG_NEW #endif #import "jmail.dll" using namespace jmail; // 用于应用程序“关于”菜单项的 CAboutDlg 对话框 class CAboutDlg : public CDialog { public: CAboutDlg(); // 对话框数据 enum { IDD = IDD_ABOUTBOX }; protected: virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV 支持 // 实现 protected: DECLARE_MESSAGE_MAP() }; CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD) { } void CAboutDlg::DoDataExchange(CDataExchange* pDX) { CDialog::DoDataExchange(pDX); } BEGIN_MESSAGE_MAP(CAboutDlg, CDialog) END_MESSAGE_MAP() // CEmailSendDlg 对话框 CEmailSendDlg::CEmailSendDlg(CWnd* pParent /*=NULL*/) : CDialog(CEmailSendDlg::IDD, pParent) { m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME); } void CEmailSendDlg::DoDataExchange(CDataExchange* pDX) { CDialog::DoDataExchange(pDX); DDX_Control(pDX, IDC_LIST, m_list); } BEGIN_MESSAGE_MAP(CEmailSendDlg, CDialog) ON_WM_SYSCOMMAND() ON_WM_PAINT() ON_WM_QUERYDRAGICON() //}}AFX_MSG_MAP ON_BN_CLICKED(IDC_BTN_ADD, &CEmailSendDlg::OnBnClickedBtnAdd) ON_BN_CLICKED(IDC_BTN_SETING, &CEmailSendDlg::OnBnClickedBtnSeting) ON_BN_CLICKED(IDC_BTN_SEND, &CEmailSendDlg::OnBnClickedBtnSend) ON_BN_CLICKED(IDC_BTN_CLOSE, &CEmailSendDlg::OnBnClickedBtnClose) ON_NOTIFY(NM_CUSTOMDRAW, IDC_LIST, &CEmailSendDlg::OnNMCustomdrawList) ON_WM_CLOSE() END_MESSAGE_MAP() // CEmailSendDlg 消息处理程序 //RegistryDll用来注册DLL，参数是DLL的全路径，返回值代表注册成功或者失败（TRUE为成功）。 BOOL CEmailSendDlg::RegistryDll(CString szDllPath) { if(!(PathFileExists(szDllPath) && (!PathIsDirectory(szDllPath)))) { //Error return FALSE; } BOOL bRet = FALSE; LRESULT (CALLBACK* lpDllEntryPoint)(); HINSTANCE hLib = LoadLibrary(szDllPath); if (hLib == NULL) { return FALSE; } (FARPROC&)lpDllEntryPoint = GetProcAddress(hLib, "DllRegisterServer"); if(lpDllEntryPoint != NULL) { HRESULT hr = (*lpDllEntryPoint)(); bRet = SUCCEEDED(hr); } FreeLibrary(hLib); return bRet; } //UnRegistryDll用来反注册DLL，参数是DLL的全路径，返回值代表注册成功或者失败（TRUE为成功）。 BOOL CEmailSendDlg::UnRegistryDll(CString szDllPath) { if (!(PathFileExists(szDllPath) && (!PathIsDirectory(szDllPath)))) { //Error return FALSE; } BOOL bRet = FALSE; LRESULT (CALLBACK* lpDllEntryPoint)(); HINSTANCE hLib = LoadLibrary(szDllPath); if (hLib == NULL) { return FALSE; } (FARPROC&)lpDllEntryPoint = GetProcAddress(hLib, "DllUnregisterServer"); if (lpDllEntryPoint != NULL) { HRESULT hr = (*lpDllEntryPoint)(); bRet = SUCCEEDED(hr); } FreeLibrary(hLib); return bRet; } BOOL CEmailSendDlg::OnInitDialog() { CDialog::OnInitDialog(); // 将“关于...”菜单项添加到系统菜单中。 // IDM_ABOUTBOX 必须在系统命令范围内。 ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX); ASSERT(IDM_ABOUTBOX < 0xF000); CMenu* pSysMenu = GetSystemMenu(FALSE); if (pSysMenu != NULL) { CString strAboutMenu; strAboutMenu.LoadString(IDS_ABOUTBOX); if (!strAboutMenu.IsEmpty()) { pSysMenu->AppendMenu(MF_SEPARATOR); pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu); } } // 设置此对话框的图标。当应用程序主窗口不是对话框时，框架将自动 // 执行此操作 SetIcon(m_hIcon, TRUE); // 设置大图标 SetIcon(m_hIcon, FALSE); // 设置小图标 // TODO: 在此添加额外的初始化代码 m_list.SetExtendedStyle(LVS_EX_FULLROWSELECT | LVS_EX_GRIDLINES); m_list.SetBkColor(RGB(247,247,255)); m_list.SetTextColor(RGB(0,0,255)); m_list.InsertColumn(0, _T("收件人"), LVCFMT_LEFT, 160); m_list.InsertColumn(1, _T("附件地址"), LVCFMT_CENTER, 240); m_list.InsertColumn(2, _T("发送状态"), LVCFMT_CENTER, 300); RegistryDll(_T("jmail.dll")); return TRUE; // 除非将焦点设置到控件，否则返回 TRUE } void CEmailSendDlg::OnSysCommand(UINT nID, LPARAM lParam) { if ((nID & 0xFFF0) == IDM_ABOUTBOX) { CAboutDlg dlgAbout; dlgAbout.DoModal(); } else { CDialog::OnSysCommand(nID, lParam); } } // 如果向对话框添加最小化按钮，则需要下面的代码 // 来绘制该图标。对于使用文档/视图模型的 MFC 应用程序， // 这将由框架自动完成。 void CEmailSendDlg::OnPaint() { if (IsIconic()) { CPaintDC dc(this); // 用于绘制的设备上下文 SendMessage(WM_ICONERASEBKGND, reinterpret_cast<WPARAM>(dc.GetSafeHdc()), 0); // 使图标在工作区矩形中居中 int cxIcon = GetSystemMetrics(SM_CXICON); int cyIcon = GetSystemMetrics(SM_CYICON); CRect rect; GetClientRect(&rect); int x = (rect.Width() - cxIcon + 1) / 2; int y = (rect.Height() - cyIcon + 1) / 2; // 绘制图标 dc.DrawIcon(x, y, m_hIcon); } else { CDialog::OnPaint(); } } //当用户拖动最小化窗口时系统调用此函数取得光标 //显示。 HCURSOR CEmailSendDlg::OnQueryDragIcon() { return static_cast<HCURSOR>(m_hIcon); } //添加收件人 void CEmailSendDlg::OnBnClickedBtnAdd() { // TODO: 在此添加控件通知处理程序代码 int nCountRow = m_list.GetItemCount(); if(IDOK == m_addEmailInfoDlg.DoModal()) { } } //发件人设置 void CEmailSendDlg::OnBnClickedBtnSeting() { // TODO: 在此添加控件通知处理程序代码 if(m_paramSetDlg.DoModal() == IDOK) { } } void CEmailSendDlg::GetSendToEmailInform(CString &strEmailAddr, int nCurIdx) { //@的位置 int nEmailExtNamePos = m_addEmailInfoDlg.m_strSendToAddr.Find('@'); if (nEmailExtNamePos <= 0) { return; } //前缀固定不变的位置 int nPrefixLen = nEmailExtNamePos-m_addEmailInfoDlg.m_nExtendLen; CString strNumber = _T(""); strNumber.Format(_T("%020d"), _ttoi(m_addEmailInfoDlg.m_strSendToAddr.Mid(nPrefixLen, m_addEmailInfoDlg.m_nExtendLen)) + m_addEmailInfoDlg.m_nStepLen*nCurIdx); int nLen = m_addEmailInfoDlg.m_strSendToAddr.Left(nEmailExtNamePos).GetLength(); nLen = (m_addEmailInfoDlg.m_nExtendLen > nLen ? nLen : m_addEmailInfoDlg.m_nExtendLen); strEmailAddr.Format(_T("%s%s%s"), m_addEmailInfoDlg.m_strSendToAddr.Left(nPrefixLen), strNumber.Right(nLen), m_addEmailInfoDlg.m_strSendToAddr.Mid(nEmailExtNamePos)); } //发送 void CEmailSendDlg::OnBnClickedBtnSend() { // TODO: 在此添加控件通知处理程序代码 m_paramSetDlg.ReadIniFileData(); m_addEmailInfoDlg.ReadIniFileData(); CString strEmailAddr; GetDlgItem(IDC_BTN_SEND)->EnableWindow(FALSE); m_list.SetFocus(); for(int i=0; i<m_addEmailInfoDlg.m_nAddCount; i++) { try { jmail::IMessagePtr pMessage("JMail.Message"); //发件人邮箱 == pMessage->PutFrom(); pMessage->From = m_paramSetDlg.m_strSendUserName.AllocSysString(); //发件人姓名 pMessage->FromName = m_paramSetDlg.m_strSendName.AllocSysString(); // 添加收件人 GetSendToEmailInform(strEmailAddr, i); pMessage->AddRecipient(strEmailAddr.AllocSysString(), "", ""); //优先级设置,1-5逐次降低, 3为中级 pMessage->Priority = 3; //编码方式设置, 默认是iso-8859-1 //pMessage->Charset = "GB2312"; pMessage->Charset = "UTF-8"; //发件人邮件邮箱 pMessage->PutMailServerUserName(m_paramSetDlg.m_strSendUserName.AllocSysString()); //发件人邮件密码 pMessage->PutMailServerPassWord(m_paramSetDlg.m_strSendUserPasw.AllocSysString()); // 主题 pMessage->Subject = m_addEmailInfoDlg.m_strSubject.AllocSysString(); //正文 pMessage->Body = m_addEmailInfoDlg.m_strContent.AllocSysString(); if (m_addEmailInfoDlg.m_strExFilePath.GetLength() > 0) { pMessage->AddAttachment(m_addEmailInfoDlg.m_strExFilePath.AllocSysString(), true, ""); } else { pMessage->ContentType = "text/html"; } // �