如何将附件主文件名字自动添加到邮件主题

tonybjs

请教一下，如何将邮件中，所添加的附件的文件名字，自动添加到邮件主题中。
目前所用系统为WIN7， Office outlook 2007.
谢谢

kangatang

选中附件（one or more），鼠标右键 - sendto - mail recipient

就这样

tonybjs

楼上说的是用附件发送吗？这个对新邮件可以。回复别人邮件加附件呢，谢谢

dsd999

这个得用VBA实现。

硅谷少年

http://blog.163.com/xiaoyao_yyy/ ... 959520126103556340/
上面链接里的方法可参考。

1. Dim myOlApp As New Outlook.Application
   
2. Private WithEvents myOlInspectors As Outlook.inspectors
   
3. Private WithEvents myMailItem As Outlook.mailItem
   
4. Dim str As String
   
5. 
   
6. 
   
7. Private Sub Application_Startup()
   
8.     Set myOlInspectors = myOlApp.inspectors
   
9. End Sub
   
10. 
    
11. 
    
12. Private Sub myOlInspectors_NewInspector(ByVal Inspector As Inspector)
    
13.        Set myMailItem = Inspector.CurrentItem
    
14.        With myMailItem
    
15.               .Subject = ""
    
16.        End With
    
17. End Sub
    
18. 
    
19. 
    
20. Private Sub myMailItem_AttachmentAdd(ByVal newAttachment As Attachment)
    
21.     If newAttachment.Type = olByValue Then
    
22.         str = Mid(newAttachment.DisplayName, 1, InStrRev(newAttachment.DisplayName, ".") - 1)
    
23.         With myMailItem
    
24.               .Subject = .Subject & " " & str
    
25.        End With
    
26.     End If
    
27. End Sub

复制代码

主题的显示可以自己修改，要使用该代码，方法如下：
  outlook的宏安全性必须设置为低！
    1.按照菜单（工具－宏－Visual Basic 编辑器）
    2.在出现的编辑器，从左边选择：ThisOutlookSession，右边默认应该是空白。
    3.将上面的代码复制到右边：

信天翁107

硅谷少年 发表于 2017-11-14 14:40
http://blog.163.com/xiaoyao_yyy/blog/static/14212959520126103556340/
上面链接里的方法可参考。

您好，这个宏不完整，没有宏名称啊。

此外，这段代码是粘贴到 Outlook 里吗？

闻启学

信天翁107 发表于 2018-12-9 19:17
您好，这个宏不完整，没有宏名称啊。

此外，这段代码是粘贴到 Outlook 里吗？

楼上 的代码是类代码


outlook 代码  一般放入 outlook里面

wx_39732

楼主能将添加的附件的文件名字自动添加到邮件主题中了吗，能否教教我，有偿付费