outlook 附件另存为并重命名

Tim.Peng

工作中遇到一个情况，需要将outlook MastCard中邮件的附件另存为并按照一定条件命名。现在已经从邮件正文中把命名的关键字找出来，并赋给Attachment_Name, 但是在将附件另存并命名时遇到困难。
代码如下，运行到 ITM.Attachments(1).SaveAsFile path 时报错 提示无法保存附件，文件名或目录名无效。改成 ITM.Attachments(1).SaveAsFile path & ITM.Attachments(1).FileName 可以正常运行并保存附件，但是无法重命名。  希望能有朋友帮忙解决，多谢啦

1. Sub findOBinSpec()
   
2. 
   
3. Dim NS As Outlook.NameSpace
   
4. 
   
5. Dim NSR_Number, Region, SiteCode, Attachment_Name, path As String
   
6. 
   
7. Dim attc As Outlook.Attachment
   
8. 
   
9. Dim arr
   
10. 
    
11. Dim x, j As Integer
    
12. 
    
13. Dim FD As MAPIFolder
    
14. 
    
15. Dim ITM As Outlook.MailItem
    
16. 
    
17. Dim fs
    
18. 
    
19. Set fs = CreateObject("Scripting.FileSystemObject")
    
20. 
    
21. path = "C:\Users\pengz\Desktop"
    
22. 
    
23. target = "NSR Number:"
    
24. target2 = "Master Card"
    
25. 
    
26. Dim excel As Object
    
27. 
    
28. Set excel = CreateObject("Excel.Application")
    
29. 
    
30. excel.Visible = True
    
31. 
    
32. Set Workbook = excel.workbooks.Open("C:\Users\pengz\Desktop\xxx.xlsx")
    
33. 
    
34. Workbook.worksheets(1).Select
    
35. 
    
36. Set NS = Session.Application.GetNamespace("MAPI")
    
37. 
    
38. Set FD = NS.GetDefaultFolder(olFolderInbox)
    
39. 
    
40. For i = 1 To FD.Folders.Count
    
41. 
    
42.    If FD.Folders(i).Name = "MasterCard" Then
    
43.    
    
44.         For Each ITM In FD.Folders(i).Items
    
45.    
    
46.             Debug.Print ITM.Body
    
47.    
    
48.             arr = Split(ITM.Body, Chr(10))
    
49.    
    
50.             For j = 0 To UBound(arr)
    
51.    
    
52.                 If InStr(arr(j), "NSR Number") Then
    
53.    
    
54.                 NSR_Number = Split(arr(j), " ")(UBound(Split(arr(j), " ")))
    
55.         
    
56.              ElseIf InStr(arr(j), "Region") Then
    
57.                
    
58.                 Region = Split(arr(j), " ")(UBound(Split(arr(j), " ")))
    
59.             
    
60.             ElseIf InStr(arr(j), "SiteCode") Then
    
61.         
    
62.                 SiteCode = Split(arr(j), " ")(UBound(Split(arr(j), " ")))
    
63.                
    
64.             End If
    
65.             
    
66.             Next
    
67.         
    
68.             Attachment_Name = NSR_Number & " " & Region & " " & SiteCode
    
69.             
    
70.             If ITM.Attachments.Count > 0 Then
    
71. 
    
72.             Attachment_Name = Attachment_Name & "." & fs.GetExtensionName(ITM.Attachments(1))

复制代码

Tim.Peng

问题已经解决。。。

miaomiao1123

Tim.Peng 发表于 2018-8-14 09:37
问题已经解决。。。

兄弟，怎么解决的？