outlook2010如何添加附件后在正文中自动添加附件名称

篮板球

发邮件时这样设置：

gjwsolid

也有这个问题，有的时候 发觉有的邮件过来，自动可以 引用 附件的标题。 但是不知道怎么弄。

硅谷少年

可参照：
http://blog.163.com/xiaoyao_yyy/ ... 959520126103556340/
之前用outlook2007，outlook365 32位版本时我一直用可以的，昨天装了outlook2016 64位版本，VBA兼容性差了，莫名其妙报错，还没找到解决办法呢。。。

硅谷少年

1. '需要把宏安全性设置为低
   
2. Public WithEvents myOlInspectors As Inspectors
   
3. Public WithEvents myMailItem As Outlook.MailItem
   
4. 
   
5. Private Sub Application_ItemLoad(ByVal Item As Object)
   
6.     Dim GetCurrentItem As Object
   
7.     If TypeName(Item) = "MailItem" Then MoveItems
   
8. End Sub
   
9. 
   
10. Private Sub Application_Startup()
    
11.     Set myOlInspectors = Outlook.Application.Inspectors
    
12. End Sub
    
13. 
    
14. Private Sub myOlInspectors_NewInspector(ByVal Inspector As Inspector)
    
15.     s = Outlook.Application.Inspectors.Item(1).Caption
    
16.    If s Like "*邮件*" Or s Like "*Mail*" Then Set myMailItem = Inspector.CurrentItem Else End
    
17. End Sub
    
18. 
    
19. Private Sub myMailItem_AttachmentAdd(ByVal newAttachment As Attachment)
    
20. Dim str As String
    
21.     If newAttachment.Type = olByValue Then
    
22.         str = Mid(newAttachment.DisplayName, 1, InStrRev(newAttachment.DisplayName, ".") - 1)
    
23.         With myMailItem
    
24.               If .Subject = "" Then .Subject = .Subject & str
    
25.         End With
    
26.         Set myOlInspectors = Nothing
    
27.         Set myMailItem = Nothing
    
28.     End If
    
29. End Sub
    
30. 
    
31. 
    

复制代码

这段是把附件名自动作为邮件主题的，你要放正文里，略微修改下即可。

老道游天下

如微软官方的KB文档中说的那样，168开奖网只要你设置邮件格式成RTF就可以满足你。

x51163

有解决问题的朋友吗？