用MAPIMessages的AttachmentCount统计附件个数

偶尔在网上看到的，先放在这里，有时间研究一下
本人已经了解决了这个问题。不敢独享将部分代码发上与大家共享  
                                  If   MAPIMessages1.AttachmentCount   >=   1   Then  
                                          For   ii   =   0   To   MAPIMessages1.AttachmentCount   -   1  
                                                  MAPIMessages1.AttachmentIndex   =   ii  
                                                  TMP   =   Split(MAPIMessages1.AttachmentName,   "/")  
                                                  TMP1   =   Split(TMP(UBound(TMP)),   ".")  
                                                  CommonDialog1.Filter   =   TMP1(UBound(TMP1))   &   "|*."   &   TMP1(UBound(TMP1))  
                                                  CommonDialog1.FileName   =   TMP(UBound(TMP))  
                                                  CommonDialog1.ShowSave  
                                                  FileCopy   MAPIMessages1.AttachmentName,   CommonDialog1.FileName  
                                          Next   ii  
                                  End   If