发送邮件 MAPISendMail()
发送邮件功能就是对MAPISendMail()的封装。下面解释这个API函数的参数定义。
ULONG FAR PASCAL MAPISendMail(LHANDLE lhSession, ULONG ulUIParam, lpMapiMessage lpMessage, FLAGS flFlags, ULONG ulReserved);
ulUIParam 可以为 0，如果设置了 MAPI_DIALOG 标志，则最好传给它父窗口句柄。
lhSession和ulReserved这两个参数，简单地设置为0就可以了。 flFlags有三个有效位，分别是 MAPI_DIALOG，MAPI_LOGON_UI，MAPI_NEW_SESSION。如果希望程序弹出一个标准的邮件撰写对话框，请设置 MAPI_DIALOG，建议不要设置 MAPI_LOGON_UI 和 MAPI_NEW_SESSION。 重点是 lpMessage 这个参数，它指向一个MapiMessage类型的结构，详细地定义了一个邮件的全部信息。3、结构 MapiMessage
使用时首先定义一个MapiMessage类型的变量，将其清零。现在我们只要简单地设定lpszSubject（标题）、lpszNoteText（正文）、lpOriginator（发件人）、nRecipCount（收件人计数，包含TO、CC、GCC），lpRecips（一个包含全部收件人的数组），nFileCount（附件计数）、lpFiles（包含每个附件信息的数组）。
nRecipCount 和 nFileCount 的值一定要与实际的收件人和附件数目相符。4、结构 MapiRecipDesc
必须设置 ulRecipClass、lpszName、lpszAddress
5、结构 MapiFileDesc
必须设置的有 lpszPathName、nPosiotion 两个参数
这里有个地方需要特别注意。我在实际编码过程中，有几次 Outlook 不能正确弹出窗口（自动发送也不行），但是同样的过程，将邮件客户设为 OutlookExpress 就没有问题。十分头痛。经过反复检查，发现 nPosiotion 这个参数十分重要。它指示附件在邮件中的位置。 对于一些邮件客户端，比如OutlookExpress，也许忽略了这个参数，由客户端自动安排。所以没有问题。对于另一些客户端，比如Outlook，总是按照这个值的指示来安排的。如果附件数多于一个，这个值如果相同，那么就会造成错误。但是自行计算挺麻烦而且没什么意义。解决的方法是，将其设为 -1，指示客户软件自行安排。:)-----------------------------------------------------------------------------------------------------------------------------------
在填写MapiRecipDesc时，若当前默认邮箱客户端是Foxmail时，lpszName可以不用设置；若当前默认邮箱客户端时Outlook时，如果lpszName不设置内容，最后调用SendMail时会失败；
例如:example@163.com
设置lpszname=“example”;
lpszAddress =“example@163.com”;
ulRecipClass = MAPI_TO;
最后调出来的outlook收件人地址显示正常，但点击发送回退信，在已发送里面查看收件人两头会无故多出单引号，导致收件人地址错误。
最后换成 lpszname=“example@163.com”;
ulRecipClass = MAPI_TO;
就发送成功了。。。。。很奇怪，但此刻再把默认邮箱客户端改为Foxmail，再进行调用就无法成功；
因此要想同时兼容outlook和Foxmail时，程序内部要进行判断。
在注册表中有对应邮箱的键值:HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\Associations\UrlAssociations\mailto\UserChoice
默认邮箱客户端是Outlook
默认邮箱客户端是Foxmail
最后加上如果从注册表读取Progid键的具体值
wstring wstrValue; HKEY hKey; LONG lResult; LPCTSTR lpDefault = L"Software\\Microsoft\\Windows\\Shell\\Associations\\UrlAssociations\\mailto\\UserChoice\\"; DWORD dataType = REG_SZ; TCHAR keyValue[500]; DWORD dataSize = 500;//定义数据长度 long lRet = ::RegOpenKeyEx(HKEY_CURRENT_USER, lpDefault, 0, KEY_ALL_ACCESS, &hKey); if(lRet == ERROR_SUCCESS) { lResult = ::RegQueryValueEx(hKey, _T("Progid"), NULL, &dataType, (LPBYTE)keyValue, &dataSize ); } ::RegCloseKey(hKey);