sendfileto.h

来自「管理项目进度工具的原代码」· C头文件 代码 · 共 61 行

#ifndef __SENDFILETO_H__
#define __SENDFILETO_H__

#include <mapi.h>

#ifndef ULONG_PTR
#define ULONG_PTR ULONG 
#endif

class CSendFileTo
{
public:
	bool SendMail(HWND hWndParent, CString const &strSubject=_T(""), CString const &strBody=_T(""), CString const &strAttachmentFileName=_T(""))
	{
		if (!hWndParent || !::IsWindow(hWndParent))
			return false;

		HINSTANCE hMAPI = ::LoadLibraryA(_T("MAPI32.DLL"));
		if (!hMAPI)
			return false;

		typedef ULONG (PASCAL *PFNSENDMAIL)(ULONG, ULONG_PTR, MapiMessage*, FLAGS, ULONG);
		PFNSENDMAIL fnSendMail = (PFNSENDMAIL)GetProcAddress(hMAPI, _T("MAPISendMail"));

		if (!fnSendMail)
			return false;

		TCHAR szFileName[_MAX_PATH];
		TCHAR szPath[_MAX_PATH];
		TCHAR szSubject[_MAX_PATH];
		TCHAR szBody[1024];

		::lstrcpy(szFileName, strAttachmentFileName);
		::lstrcpy(szPath, strAttachmentFileName);
		::lstrcpy(szSubject, strSubject);
		::lstrcpy(szBody, strBody);

		MapiFileDesc fileDesc;
		::ZeroMemory(&fileDesc, sizeof(fileDesc));
		fileDesc.nPosition = (ULONG)-1;
		fileDesc.lpszPathName = szPath;
		fileDesc.lpszFileName = szFileName;

		MapiMessage message;
		::ZeroMemory(&message, sizeof(message));

		message.lpszSubject = szSubject;
		message.lpszNoteText = szBody;
		message.nFileCount = strAttachmentFileName.IsEmpty() ? 0 : 1;
		message.lpFiles = strAttachmentFileName.IsEmpty() ? NULL : &fileDesc;

		int nError = fnSendMail(0, (ULONG_PTR)hWndParent, &message, MAPI_LOGON_UI|MAPI_DIALOG, 0);

		if (nError != SUCCESS_SUCCESS && nError != MAPI_USER_ABORT && nError != MAPI_E_LOGIN_FAILURE)
			return false;

		return true;
	}
};

#endif