发件人和收件人是邮件和消息很常用的几个属性之一,关于发件人的设置和获取是很简单的,只需要处理PR_SENDER_EMAIL_ADDRESS属性即可,下面主要讲述的收件人的设置和获取。
MAPI收件人结构如图(摘自MSDN):
每一个Entry代表了一个收件人信息组,每个信息组又可以有多项信息组成,举个例子,下面的代码代表了一个收件人的信息:
aEntries[0].rgPropVals[0].ulPropTag = PR_RECIPIENT_TYPE; //类型,MAPI_TO代表是设置到TO字段上的,相应的还有MAPI_CC和MAPI_BCC。
aEntries[0].rgPropVals[0].Value.ul = MAPI_TO;
aEntries[0].rgPropVals[1].ulPropTag = PR_ADDRTYPE; //设置地址类型,一般为SMTP
aEntries[0].rgPropVals[1].Value.LPSZ = _T("SMTP");
aEntries[0].rgPropVals[2].ulPropTag = PR_EMAIL_ADDRESS; //收件人地址
aEntries[0].rgPropVals[2].Value.LPSZ = _T("1234567");
设置收件人是通过IMessage:: ModifyRecipients来实现的,以下的代码举例说明了如何设置TO、CC和BCC属性:
INT nRecipientCount = 3; //表示有3个联系人信息
INT nListBufSize = CbNewADRLIST(nRecipientCount); //计算3个联系人需要的存储空间
LPADRLIST pAddressList = NULL;
MAPIAllocateBuffer(nListBufSize, (LPVOID FAR *)&pAddressList)); //分配空间
memset(pAddressList, 0, nBufSize);
pAddressList->cEntries = 3; //表明一共有3个联系人信息
//设置To
INT nCurIndex = 0;
MAPIAllocateBuffer(sizeof(SPropValue) * 3, (LPVOID FAR *)&pAddressList->aEntries[nCurIndex].rgPropVals)); //分配空间 memset(pAddressList->aEntries[nCurIndex].rgPropVals, 0, sizeof(SPropValue) * 3);
pAddressList->aEntries[nCurIndex].rgPropVals[0].ulPropTag = PR_RECIPIENT_TYPE;
pAddressList->aEntries[nCurIndex].rgPropVals[0].Value.ul = MAPI_TO; //表明是写到To
pAddressList->aEntries[nCurIndex].rgPropVals[1].ulPropTag = PR_ADDRTYPE;
pAddressList->aEntries[nCurIndex].rgPropVals[1].Value.LPSZ = _T("SMTP");
pAddressList->aEntries[nCurIndex].rgPropVals[2].ulPropTag = PR_EMAIL_ADDRESS;
pAddressList->aEntries[nCurIndex].rgPropVals[2].Value.LPSZ = _T("1234567");
pAddressList->aEntries[nCurIndex].cValues = 3; //表明改联系人有3个属性要设置
//同上,现在设置CC
nCurIndex = 1;
MAPIAllocateBuffer(sizeof(SPropValue) * 3, (LPVOID FAR *)&pAddressList->aEntries[nCurIndex].rgPropVals)); //分配空间 memset(pAddressList->aEntries[nCurIndex].rgPropVals, 0, sizeof(SPropValue) * 3);
pAddressList->aEntries[nCurIndex].rgPropVals[0].ulPropTag = PR_RECIPIENT_TYPE;
pAddressList->aEntries[nCurIndex].rgPropVals[0].Value.ul = MAPI_CC; //表明是写到CC
pAddressList->aEntries[nCurIndex].rgPropVals[1].ulPropTag = PR_ADDRTYPE;
pAddressList->aEntries[nCurIndex].rgPropVals[1].Value.LPSZ = _T("SMTP");
pAddressList->aEntries[nCurIndex].rgPropVals[2].ulPropTag = PR_EMAIL_ADDRESS;
pAddressList->aEntries[nCurIndex].rgPropVals[2].Value.LPSZ = _T("7654321");
pAddressList->aEntries[nCurIndex].cValues = 3; //表明改联系人有3个属性要设置
//同上,现在设置BCC
nCurIndex = 2;
MAPIAllocateBuffer(sizeof(SPropValue) * 3, (LPVOID FAR *)&pAddressList->aEntries[nCurIndex].rgPropVals)); //分配空间 memset(pAddressList->aEntries[nCurIndex].rgPropVals, 0, sizeof(SPropValue) * 3);
pAddressList->aEntries[nCurIndex].rgPropVals[0].ulPropTag = PR_RECIPIENT_TYPE;
pAddressList->aEntries[nCurIndex].rgPropVals[0].Value.ul = MAPI_BCC; //表明是写到CC
pAddressList->aEntries[nCurIndex].rgPropVals[1].ulPropTag = PR_ADDRTYPE;
pAddressList->aEntries[nCurIndex].rgPropVals[1].Value.LPSZ = _T("SMTP");
pAddressList->aEntries[nCurIndex].rgPropVals[2].ulPropTag = PR_EMAIL_ADDRESS;
pAddressList->aEntries[nCurIndex].rgPropVals[2].Value.LPSZ = _T("88888888");
pAddressList->aEntries[nCurIndex].cValues = 3; //表明改联系人有3个属性要设置
//调用ModifyRecipients添加联系人,完了记的释放申请的内存,pMsg为你想操作的Message的对象实例,关于如何获取可以参考以前的文章。 pMsg->ModifyRecipients(MODRECIP_ADD, pAddressList)
for(INT i = 0; i < nRecipientCount; i++)
MAPIFreeBuffer(pAddressList->aEntries[i].rgPropVals);
MAPIFreeBuffer(pAddressList);
(六)如何获取收件人信息
接下来开始讲讲如何获取联系人信息,它与设置信息比较相近,以下举例说明:
IMAPITable* pTable = NULL;
//通过GetRecipientTable获取联系人信息列表
pMsg->GetRecipientTable( NULL, &pTable );
LPADRLIST pRecipentRows = NULL;
//获取每个联系人信息,这里的做法可以看出和枚举Folder等都相似
while(!FAILED(hr = pTable->QueryRows(1, 0, (LPSRowSet*)&pRecipentRows)))
{
if( pRecipentRows->cEntries == 0 )
break;
for(int n = 0; n < pRecipentRows->cEntries; n++ )
{
//每个Entry代表一个联系人信息,每个联系人信息又有多个属性组成
for(int i = 0; i < pRecipentRows->aEntries[n].cValues ; i++)
{
//判断如果是PR_EMAIL_ADDRESS属性,那么就找到了联系人地址
if( PR_EMAIL_ADDRESS == pRecipentRows->aEntries[n].rgPropVals[i].ulPropTag )
{
//联系人地址
CString strContact = pRecipentRows->aEntries[n].rgPropVals[i].Value.lpszW;
//后续操作
}
}
}
//完了记得要释放pRecipentRows和它里面的内容,释放方法见上一篇关于设置联系人信息的介绍。
……
}
上面的代码片段只简单演示了获取联系人信息的基本操作步骤,通过这个例子也可以熟悉IMAPITable的用法,MAPI里面还是有很多地方会用到这个接口,用处还是比较大的。
(七)设置Message附件
本篇主要介绍如何设置Message的附件内容,下一篇会介绍如何获取附件。长话短说,下面的例子将完成如下的事情:
1) 准备工作,在Temp目录下先放上几张图片,在这个例子里面,我在Temp目录放两张JPG图片,1.jpg,2.jpg,我将把这两张图片放到一个Message里面,生成两个附件。
2) 在Outlook草稿箱里面创建出一条新的Message。
3) 为Message添加附件。
如何在Outlook草稿箱里面创建一条新的Message,我想通过前面的文章已经解释清楚了,这里就不罗嗦了,以下假设我们已经获取了IMessage*对象指针。首先提出一个帮助函数:MAPIHelp_AddAttachment,该函数作用是为指定的Message添加指定文件作为附件,定义如下:
BOOL MAPIHelp_AddAttachment( IMessage* pMsg, LPCTSTR szFilePath, LPCTSTR szFileName );
pMsg : Message目标对象指针
szFilePath : 需要作为附件添加的文件全路径
szFileName : 需要作为附件添加的文件名称,作为附件的名称
以下是函数具体实现:
BOOL MAPIHelp_AddAttachment( IMessage* pMsg, LPCTSTR szFilePath, LPCTSTR szFileName )
{
if( NULL == pMsg || NULL == szFilePath )
return FALSE;
BOOL bRet = FALSE;
ULONG ulAttachNum = 0;
LPATTACH pAttach = NULL;
IStream* pStream = NULL;
HANDLE hFile = NULL;
SPropValue rgpropsTo[1] = {0};
DWORD dwChunkSize = 4096;
DWORD dwSizeRead = 0;
//预备BUFFER,用来读写文件内容
LPBYTE pData = new BYTE[dwChunkSize];
if( NULL == pData )
return FALSE;
//创建附件,返回IAttach对象,每个IAttach对象对应于一个附件, ulAttachNum是这个对象的标识,我们可以通过IMessage:: OpenAttach时传入这个ID来读取这个附件,具体的方法会在下篇时介绍。
if( FAILED(pMsg->CreateAttach( NULL, NULL, &ulAttachNum, &pAttach )) )
goto Exit;
//设置附件名称
rgpropsTo[0].ulPropTag = PR_ATTACH_FILENAME;
rgpropsTo[0].Value.lpszW = (LPTSTR)szFileName;
if( FAILED(pAttach->SetProps(1, rgpropsTo, NULL)) )
goto Exit;
//通过OpenProperty获取IStream对象,有了IStream对象,我们就可以读写数据。对于IAttach:: OpenProperty,CE上只支持PR_ATTACH_DATA_BIN属性。
if( FAILED(pAttach->OpenProperty( PR_ATTACH_DATA_BIN, NULL, NULL, MAPI_MODIFY, (LPUNKNOWN *)&pStream )) )
goto Exit;
//下面部分是文件读写部分,从原始文件里读出数据,再写到附件里面去
hFile = ::CreateFile( szFilePath, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL );
if( INVALID_HANDLE_VALUE == hFile )
goto Exit;
while( ReadFile( hFile, pData, dwChunkSize, &dwSizeRead, NULL ) )
{
if( 0 >= dwSizeRead )
break;
pStream->Write( pData, dwSizeRead, &dwSizeRead );
}
bRet = TRUE;
Exit:
//完毕以后记的释放获取的对象。
RELEASE_OBJ(pStream);
RELEASE_OBJ(pAttach);
DELETE_OBJ(pData);
if( INVALID_HANDLE_VALUE != hFile )
::CloseHandle( hFile );
return bRet;
}
有了上面的帮助函数,当我们想为一条Message添加附件时,可以按照如下调用:
MAPIHelp_AddAttachment( pMsg, _T("//Temp//1.jpg"), _T("1.jpg") );
MAPIHelp_AddAttachment( pMsg, _T("//Temp//2.jpg"), _T("2.jpg") );
(八)读取Message附件
在上一篇里面讲述了如何为一条MESSAGE设置附件,下面将继续关于附件的话题,利用上一个例子,我们接下来来看看如何获取一条MESSAGE的附件信息。下面将通过两个帮助函数来完成:
BOOL MAPIHelp_SaveAttachFile( LPATTACH pAttach, LPCTSTR szFile )
作用:读取单个附件文件内容,并保存到指定位置
pAttach: 附件对象
szFile: 保存文件名
BOOL MAPIHelp_GetAttachment( IMessage* pMsg, LPCTSTR szFilePath )
作用:获取一条Message的全部附件,并保存到指定目录下
pMsg: 目标消息对象
szFilePath: 目标目录
下面来看看具体实现:
BOOL MAPIHelp_SaveAttachFile( LPATTACH pAttach, LPCTSTR szFile )
{
if( NULL == pAttach || NULL == szFile )
return FALSE;
HANDLE hFile = INVALID_HANDLE_VALUE;
IStream* pstmAttachment = NULL;
char * pBuffer = NULL;
int i = 0;
DWORD dwWrite = 0;
BOOL bRet = FALSE;
ULONG ulRead = 0;
//打开附件,获取IStream对象,用于获取文件内容,根据MSDN的解释,这里只支持PR_ATTACH_DATA_BIN属性。
if(FAILED(pAttach->OpenProperty (PR_ATTACH_DATA_BIN, NULL, STGM_READ, MAPI_MODIFY,
reinterpret_cast <IUnknown **> (&pstmAttachment))))
{
goto EXIT;
}
//创建目标文件
hFile = ::CreateFile(szFile, GENERIC_WRITE, 0, NULL, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
if(INVALID_HANDLE_VALUE == hFile)
{
goto EXIT;
}
//缓冲区,用于文件拷贝
pBuffer = new char[4096];
if(NULL == pBuffer)
{
goto EXIT;
}
//附件内容拷贝
while(SUCCEEDED(pstmAttachment->Read(pBuffer, 4096, &ulRead)))
{
if(ulRead <= 0)
break;
::WriteFile(hFile, pBuffer, ulRead, &dwWrite, NULL);
}
bRet = TRUE;
EXIT:
if(INVALID_HANDLE_VALUE != hFile)
{
::CloseHandle(hFile);
}
if(NULL != pBuffer)
{
delete []pBuffer;
}
if(NULL != pstmAttachment)
{
pstmAttachment->Release();
}
return bRet;
}
BOOL MAPIHelp_GetAttachment( IMessage* pMsg, LPCTSTR szFilePath )
{
if( NULL == pMsg || NULL == szFilePath )
return FALSE;
LPMAPITABLE pAttachTbl = NULL;
SRowSet* psrs = NULL;
LPATTACH pAttach = NULL;
LONG lAttachNum = 0;
BOOL bRet = FALSE;
//获取附件列表
if(FAILED(pMsg->GetAttachmentTable(0, &pAttachTbl)))
{
goto EXIT;
}
//接下来的查询过程是不是很眼熟?
while(SUCCEEDED(pAttachTbl->QueryRows (1, 0, &psrs)))
{
//即使查询返回成功,可能记录数也为0,需要排除这种CASE
if (NULL == psrs || psrs->cRows != 1)
{
break;
}
TCHAR szFile[MAX_PATH];
//遍历所有属性,找出附件ID和名称
for(int i = 0; i < (int)(psrs->aRow[0].cValues); ++i)
{
if(PR_ATTACH_NUM == psrs->aRow[0].lpProps[i].ulPropTag)
{
//找到附件ID,并打开附件对象
if(FAILED(pMsg->OpenAttach(psrs->aRow[0].lpProps[i].Value.l,
NULL,
MAPI_BEST_ACCESS,
&pAttach)))
{
goto EXIT;
}
lAttachNum = psrs->aRow[0].lpProps[i].Value.l;
}
else if(PR_ATTACH_FILENAME == psrs->aRow[0].lpProps[i].ulPropTag)
{
//获取附件名称,生成保存路径
_stprintf( szFile, _T("%s%s"), szFilePath, psrs->aRow[0].lpProps[i].Value.lpszW );
}
}
if(pAttach)
{
//保存文件
MAPIHelp_SaveAttachFile( pAttach, szFile );
pAttach->Release();
pAttach = NULL;
}
FreeProws(psrs);
psrs = NULL;
}
bRet = TRUE;
EXIT:
if(NULL != psrs)
{
FreeProws(psrs);
}
if(NULL != pAttach)
{
pAttach->Release();
}
if(NULL != pAttachTbl)
{
pAttachTbl->Release();
}
return bRet;
}
外面调用时候很简单,只需要获取IMessage对象,再调用MAPIHelp_GetAttachment即可。
(九)Custom Form介绍
一直很想写些关于Custom Form和Transport方面的东西,但是一方面这几个部分东西比较多,一篇两篇也讲不完,另外一方面感觉用的人不多,写了也是白写,所以一直没动手。最近有不少网友通过MAIL或者在CSDN论坛上都提到了Custom Form的用法(主要是想实现自己的类如MMS之类的客户端),在这里我简单介绍一下Custom Form的使用方法,希望对有需要的朋友能有所帮助。
实际上在微软的2005 SDK SAMPLE已经有了一个比较详细的例子,叫做Customform,大家可以在SDK安装目录/wce500/Windows Mobile 5.0 Pocket PC SDK/Samples/CPP/Win32下面找到这个例子,所以详细代码我就略过了,我们从系统对一个Custom Form的调用逻辑讲起。
1. 用户点击New或者某条已经存在的Message再编辑,tmail查阅对应的Message Type,比如是IPM.SMSText(SMS)还是IPM.Note(Outlook Email)或者还是其它,然后查询注册表Message Type注册的位置(HKEY_CURRENT_USER/Software/Microsoft/Inbox/MsgTypes/IPM)找到正确的Form Dll.
2. 每个Form DLL必须实现FormFactoryEx输出函数,tmail调用FormFactoryEx获取IFormProviderEx对象。
3. 根据不同的需求,调用IFormProviderEx不同的函数,比如如果是新建或者再编辑一条Message,将会调用IFormProviderEx:: CreateComposeForm,如果是播放,则调用IFormProviderEx:: CreateReadForm,如果是获取Message Icon,则调用IFormProviderEx:: GetMsgStatusIconIndex(可以参考《Pocket PC & Smartphone 短信图标轻松换》一文)。
要实现自己的编辑客户端,如果才能让用户方便的创建你定义的Message呢?微软的Sample里面没有涉及到这一点,它所走的流程是:
1. 通过IMailRuleClient截获EMS消息,把它的Message Type改成IPM.SMStext.SDKEMS。
2. 编辑或者播放时,因为类型是IPM.SMStext.SDKEMS,所以会调用自己一注册的EMS Custom Form。
它略过了创建IPM.SMStext.SDKEMS类型Message的细节,那么要如何创建这种类型的消息呢?一种比较方便的方法就是在SMS基础上添加EMS的支持,如下图:
这样,一旦用户点了EMS,那么创建的就是自定义的EMS消息,想要实现它其实很简单,在Customform例子的基础上,我们新建Message Type,比如叫IPM.EMS,替换掉Customform里面所有的IPM.SMStext.SDKEMS,接下来我们只需要对注册表做少许的修改:
以下是IPM.EMS类型的注册:
[HKEY_CURRENT_USER/Software/Microsoft/Inbox/MsgTypes/IPM/EMS]
"GlyphInfo"=hex:/
20,00,00,00,64,00,00,00,64,00,00,00,00,00,00,00,01,00,00,00,03,00,00,00,02,/
00,00,00,00,00,00,00
"DLL"="EMSViewerForm.dll"
"Name"="EMS"
在[HKEY_LOCAL_MACHINE/Software/Microsoft/Inbox/Svc/SMS/MsgClasses]下面添加键值:
"IPM.EMS"=dword:00000001
OK,我们单独的EMS 编辑器就成功了。
(十) MAPI的一些问题
1. tmail的后台启动模式:
前几天有网友问,他想通过SubmitMessage发送message,但是如果tmail没有起来,message只会被放到outbox里面等待发送,但是又不想在自己程序里面点发送就启动tmail界面,也有其他网友也问过类似的问题,希望调用MAPI一些功能,又不想开启tmail UI,我记的以前找到过tmail的后台启动模式,今天翻了出来,希望对大家有所帮助:
::CreateProcess(_T("tmail.exe"), _T("-RunInBKG"),NULL, NULL, FALSE, 0, NULL, NULL, NULL, NULL);
2.tmail的一些命令行参数介绍:
-service: 调用类型,比如MMS,SMS等
-attach: 添加附件
-subject: 添加subject
-to: 添加目标地址
举个例子:
const szCMD[] = _T(" -service /"MMS/" -to /"test@sina.com;13800571505/"");
CreateProcess(_T(//Windows//tmail.exe), szCMD, NULL, NULL, NULL, 0, NULL, NULL, NULL, NULL)