<span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; background-color: rgb(255, 255, 255);">首先要确认触发邮件脚本的规则,比如标题所含字符、固定发件人、附件名称等。</span>
具体规则创建就不再赘述。
规则中选择符合条件即“运行脚本”。
首先检查存储文件夹是否存在,如果不存在则提示建立。 然后调用“SaveFile”过程对符合条件的附件进行存储。
Public Sub SaveAttachmentFromMyMail(item As Outlook.MailItem)
Dim myFso As New FileSystemObject
Dim FileSavePath As String
Dim RetMessage As Integer
Dim objCate As Category
Dim strCategories As String
FileSavePath = "G:\资料"
If myFso.FolderExists(FileSavePath) = False Then
RetMessage = MsgBox("默认存储文件夹[" & FileSavePath & "]不存在,是否创建?", vbYesNo, "提示")
If RetMessage = 6 Then
myFso.CreateFolder FileSavePath
End If
End If
SaveFile item,