发件人和收件人是邮件和消息很常用的几个属性之一,关于发件人的设置和获取是很简单的,只需要处理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)