Vba 用可变文本替换主题_Vba_Outlook

Vba 用可变文本替换主题

vba outlook

Vba 用可变文本替换主题,vba,outlook,Vba,Outlook,所以我正在做一个项目，自动发送带有附件的电子邮件。该主题必须有一个特定的名称，但到目前为止，我无法让最后一部分工作 Private WithEvents Mail As Outlook.MailItem Private WithEvents Inspectors As Outlook.Inspectors Private Sub Application_Startup() Set Inspectors = Application.Inspectors End Sub Private

所以我正在做一个项目，自动发送带有附件的电子邮件。该主题必须有一个特定的名称，但到目前为止，我无法让最后一部分工作

   Private WithEvents Mail As Outlook.MailItem
Private WithEvents Inspectors As Outlook.Inspectors

Private Sub Application_Startup()
  Set Inspectors = Application.Inspectors
End Sub

Private Sub Inspectors_NewInspector(ByVal Inspector As Inspector)
  If TypeOf Inspector.CurrentItem Is Outlook.MailItem Then
    Set Mail = Inspector.CurrentItem
  End If
End Sub

Private Sub Mail_AttachmentAdd(ByVal Attachment As Attachment)
  Mail.subject = "[ediDocManager CON TOR " + Attachment.DisplayName

如果我运行此代码，我将获得主题“[eDicDocManager Contor”+Attachment.DisplayName.pdf”，但我希望将pdf替换为“]”

如何完成此操作？

在VBA中，使用

符号非

连接字符串。您可以对PDF部件使用

Replace

功能。试试这个：

Mail.subject = "[ediDocManager CON TOR " & Replace(Attachment.DisplayName, "pdf", "]")

希望这有帮助