www.pudn.com > send_email2.rar > SendEMailDlg.cpp
// SendEMailDlg.cpp : implementation file
//
#include "stdafx.h"
#include "SendEMail.h"
#include "SendEMailDlg.h"
#include "mapi.h" //Added by Geng
#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif
/////////////////////////////////////////////////////////////////////////////
// CAboutDlg dialog used for App About
class CAboutDlg : public CDialog
{
public:
CAboutDlg();
// Dialog Data
//{{AFX_DATA(CAboutDlg)
enum { IDD = IDD_ABOUTBOX };
//}}AFX_DATA
// ClassWizard generated virtual function overrides
//{{AFX_VIRTUAL(CAboutDlg)
protected:
virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support
//}}AFX_VIRTUAL
// Implementation
protected:
//{{AFX_MSG(CAboutDlg)
//}}AFX_MSG
DECLARE_MESSAGE_MAP()
};
CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
{
//{{AFX_DATA_INIT(CAboutDlg)
//}}AFX_DATA_INIT
}
void CAboutDlg::DoDataExchange(CDataExchange* pDX)
{
CDialog::DoDataExchange(pDX);
//{{AFX_DATA_MAP(CAboutDlg)
//}}AFX_DATA_MAP
}
BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
//{{AFX_MSG_MAP(CAboutDlg)
// No message handlers
//}}AFX_MSG_MAP
END_MESSAGE_MAP()
/////////////////////////////////////////////////////////////////////////////
// CSendEMailDlg dialog
CSendEMailDlg::CSendEMailDlg(CWnd* pParent /*=NULL*/)
: CDialog(CSendEMailDlg::IDD, pParent)
{
//{{AFX_DATA_INIT(CSendEMailDlg)
m_szEmail = _T("");
m_szEmailMAPI = _T("");
m_szSubject = _T("输入你的主题");
m_szText = _T("");
//}}AFX_DATA_INIT
// Note that LoadIcon does not require a subsequent DestroyIcon in Win32
m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
m_szDefaultEMail = "webmaster@163.com";
m_szEmail = m_szDefaultEMail;
m_szEmailMAPI = m_szDefaultEMail;
}
void CSendEMailDlg::DoDataExchange(CDataExchange* pDX)
{
CDialog::DoDataExchange(pDX);
//{{AFX_DATA_MAP(CSendEMailDlg)
DDX_Control(pDX, IDC_ATTACH, m_list);
DDX_Text(pDX, IDC_EMAIL, m_szEmail);
DDX_Text(pDX, IDC_EMAIL2, m_szEmailMAPI);
DDX_Text(pDX, IDC_SUBJECT, m_szSubject);
DDX_Text(pDX, IDC_TEXT, m_szText);
//}}AFX_DATA_MAP
}
BEGIN_MESSAGE_MAP(CSendEMailDlg, CDialog)
//{{AFX_MSG_MAP(CSendEMailDlg)
ON_WM_SYSCOMMAND()
ON_WM_PAINT()
ON_WM_QUERYDRAGICON()
ON_BN_CLICKED(IDC_SHELLEXECUTE, OnShellExecute)
ON_BN_CLICKED(IDC_ADD_ATTACH, OnAddAttachment)
ON_BN_CLICKED(IDC_SEND_MAPI, OnSendMapi)
ON_BN_CLICKED(IDC_ABOUT, OnAbout)
//}}AFX_MSG_MAP
END_MESSAGE_MAP()
/////////////////////////////////////////////////////////////////////////////
// CSendEMailDlg message handlers
BOOL CSendEMailDlg::OnInitDialog()
{
CDialog::OnInitDialog();
// Add "About..." menu item to system menu.
// IDM_ABOUTBOX must be in the system command range.
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);
}
}
// Set the icon for this dialog. The framework does this automatically
// when the application's main window is not a dialog
SetIcon(m_hIcon, TRUE); // Set big icon
SetIcon(m_hIcon, FALSE); // Set small icon
//获取当前路径
CString szPath("");
GetModuleFileName(NULL,szPath.GetBuffer(MAX_PATH),MAX_PATH);
szPath.ReleaseBuffer();
szPath = szPath.Left(szPath.ReverseFind('\\') + 1);
//从readme文件中读取邮件的正文内容
CString szFileName = szPath + "\\Readme.txt";
CFileFind find;
bool bRet = find.FindFile(szFileName);
find.Close();
if(!bRet)
{
HRSRC hSrc = FindResource(NULL,MAKEINTRESOURCE(IDR_README),_T("OWNER_DATA"));
if(hSrc != NULL)
{
HGLOBAL hGlobal = LoadResource(NULL,hSrc);
if(hGlobal != NULL)
{
LPVOID lp = LockResource(hGlobal);
DWORD dwSize = SizeofResource(NULL,hSrc);
CFile file;
if(file.Open(szFileName,CFile::modeCreate|CFile::modeWrite))
{
file.Write(lp,dwSize);
file.Close();
}
FreeResource(hGlobal);
}
}
}
CFile file;
if(file.Open(szFileName,CFile::modeRead))
{
DWORD dwLen = file.GetLength();
file.Read(m_szText.GetBuffer(dwLen),dwLen);
file.Close();
m_szText.ReleaseBuffer();
UpdateData(false);
}
m_list.AddString(szFileName);
return TRUE; // return TRUE unless you set the focus to a control
}
void CSendEMailDlg::OnSysCommand(UINT nID, LPARAM lParam)
{
if ((nID & 0xFFF0) == IDM_ABOUTBOX)
{
CAboutDlg dlgAbout;
dlgAbout.DoModal();
}
else
{
CDialog::OnSysCommand(nID, lParam);
}
}
void CSendEMailDlg::OnPaint()
{
if (IsIconic())
{
CPaintDC dc(this); // device context for painting
SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);
// Center icon in client rectangle
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;
// Draw the icon
dc.DrawIcon(x, y, m_hIcon);
}
else
{
CDialog::OnPaint();
}
}
// The system calls this to obtain the cursor to display while the user drags
// the minimized window.
HCURSOR CSendEMailDlg::OnQueryDragIcon()
{
return (HCURSOR) m_hIcon;
}
void CSendEMailDlg::OnShellExecute()
{
UpdateData(true);
if(m_szEmail.IsEmpty()) m_szEmail = m_szDefaultEMail;
m_szEmail = "mailto:" + m_szEmail;
ShellExecute(NULL,NULL,m_szEmail,NULL,NULL,SW_SHOW);
}
/*********************************************************************
* 函数名称:CSendEMailDlg::OnAddAttachment
* 说明: 添加附件到列表框中
* 作者: Geng
* 时间 : 2003-04-22 20:25:13
*********************************************************************/
void CSendEMailDlg::OnAddAttachment()
{
CFileDialog dlg(true,NULL,NULL,OFN_ALLOWMULTISELECT);
if(dlg.DoModal() == IDOK)
{
POSITION pos = dlg.GetStartPosition();
while(pos != NULL)
{
m_list.AddString(dlg.GetNextPathName(pos));
}
}
}
/*********************************************************************
* 函数名称:CSendEMailDlg::OnSendMapi
* 说明: 调用MAPI函数发送邮件。摘自 VC98\MFC\SRC\DOCMAPI.CPP
* 作者: Geng
* 时间 : 2003-04-22 20:08:30
*********************************************************************/
void CSendEMailDlg::OnSendMapi()
{
UpdateData(true);
//加载MAPI32.DLL动态库
HMODULE hMod = LoadLibrary("MAPI32.DLL");
if (hMod == NULL) //加载动态库失败
{
AfxMessageBox(AFX_IDP_FAILED_MAPI_LOAD);
return;
}
//获取发送邮件的函数地址
ULONG (PASCAL *lpfnSendMail)(ULONG, ULONG, MapiMessage*, FLAGS, ULONG);
(FARPROC&)lpfnSendMail = GetProcAddress(hMod, "MAPISendMail");
if (lpfnSendMail == NULL)
{
AfxMessageBox(AFX_IDP_INVALID_MAPI_DLL);
return;
}
int nFileCount = m_list.GetCount(); //有多少个附件需要发送
//分配内存保存附件信息 不能使用静态数组，因为不知道要发送附件的个数
MapiFileDesc* pFileDesc = (MapiFileDesc*)malloc(sizeof(MapiFileDesc) * nFileCount);
memset(pFileDesc,0,sizeof(MapiFileDesc) * nFileCount);
//分配内存保存附件文件路径
TCHAR* pTchPath = (TCHAR*)malloc(MAX_PATH * nFileCount);
CString szText;
for(int i = 0;i < nFileCount;i++)
{
TCHAR* p = pTchPath + MAX_PATH * i;
m_list.GetText(i,szText);
strcpy(p,szText);
(pFileDesc + i)->nPosition = (ULONG)-1;
(pFileDesc + i)->lpszPathName = p;
(pFileDesc + i)->lpszFileName = p;
}
//收件人结构信息
MapiRecipDesc recip;
memset(&recip,0,sizeof(MapiRecipDesc));
recip.lpszAddress = m_szEmailMAPI.GetBuffer(0);
recip.ulRecipClass = MAPI_TO;
//邮件结构信息
MapiMessage message;
memset(&message, 0, sizeof(message));
message.nFileCount = nFileCount; //文件个数
message.lpFiles = pFileDesc; //文件信息
message.nRecipCount = 1; //收件人个数
message.lpRecips = &recip; //收件人
message.lpszSubject = m_szSubject.GetBuffer(0); //主题
message.lpszNoteText= m_szText.GetBuffer(0); //正文内容
//保存本程序窗口指针，因为发完邮件后要返回本程序的窗口
CWnd* pParentWnd = CWnd::GetSafeOwner(NULL, NULL);
//发送邮件
int nError = lpfnSendMail(0, 0,
&message, MAPI_LOGON_UI|MAPI_DIALOG, 0);
if (nError != SUCCESS_SUCCESS && nError != MAPI_USER_ABORT
&& nError != MAPI_E_LOGIN_FAILURE)
{
AfxMessageBox(AFX_IDP_FAILED_MAPI_SEND);
}
//返回程序
pParentWnd->SetActiveWindow();
//不要忘了释放分配的内存
free(pFileDesc);
free(pTchPath);
FreeLibrary(hMod);
}
void CSendEMailDlg::OnAbout()
{
CAboutDlg dlg;
dlg.DoModal();
}