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