Question

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

   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

如果我运行这个代码，我将作为主题＆＃34;＆＃34; [ediDocManager CON TOR＆＃34; + Attachment.DisplayName.pdf＆＃34;但我希望将pdf替换为＆＃34;]＆＃34;

我该如何完成这项工作？

Answer 1

在VBA中，您使用&符号而不是+来连接字符串。您可以对PDF部分使用Replace功能。试试这个：

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

希望这有帮助！

用可变文本替换主题

1 个答案: