有偿求助：如何在Outlook中新邮件自动使用附件名作为邮件主题

wx_39732

付费求助：如何在Outlook中新邮件自动使用附件名作为邮件主题

      
好像是要搞一个插件还是 vbs编程，弄好后，只要点击快捷键，就可以把附件的标题自动变成邮件主题

      
付费咨询，有偿求助，不白嫖大家的智慧，谢谢

看贴吧少，如果没有及时回复请加我v ：19124335879，谢谢

shadowise

1. Sub AttachSubjectToExistingEmail()
   
2.     On Error Resume Next ' 允许继续执行下面的代码，即使出现错误
   
3.    
   
4.     Dim currentItem As Outlook.MailItem
   
5.     Dim attachedFileName As String
   
6.    
   
7.     ' 获取当前选中的邮件项
   
8.     Set currentItem = Application.ActiveInspector.currentItem
   
9.    
   
10.     ' 检查当前项是否为邮件
    
11.     If Not currentItem Is Nothing And TypeOf currentItem Is Outlook.MailItem Then
    
12.         ' 获取附件的文件名
    
13.         If currentItem.Attachments.Count > 0 Then
    
14.             attachedFileName = currentItem.Attachments(1).FileName
    
15.         Else
    
16.             ' 如果没有附件，则使用默认主题
    
17.             attachedFileName = "No Attachment"
    
18.         End If
    
19.         
    
20.         ' 设置邮件的主题为附件的文件名
    
21.         currentItem.Subject = attachedFileName
    
22.         
    
23.         ' 将原邮件的内容作为新邮件的正文
    
24.         currentItem.Body = currentItem.Body
    
25.     Else
    
26.         MsgBox "请在邮件中运行此宏。"
    
27.     End If
    
28.    
    
29.     On Error GoTo 0 ' 恢复正常的错误处理
    
30. End Sub
    
31. 
    

复制代码

你好，可以试试。