與可變文本

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 

如果我運行這段代碼我會得到爲主體「」 [ediDocManager CON TOR「+ Attachment.DisplayName.pdf」，但我想的PDF與一個被替換「]」

怎麼辦我得到這個工作？

Answer 1

在VBA中，使用連接字符串&的符號不是+。您還可以使用Replace功能的PDF的一部分。 試試這個：

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

希望這有助於！