新一篇: 字符，字节和编码－备忘 | 旧一篇: DEELX 正则引擎编程帮助

偶尔在网上看到的，先放在这里，有时间研究一下
本人已经了解决了这个问题。不敢独享将部分代码发上与大家共享  
                                  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    

发表于 @ 2008年03月10日 21:21:00|评论(loading...)|编辑

新一篇: 字符，字节和编码－备忘 | 旧一篇: DEELX 正则引擎编程帮助