Outlook - 一時変数に表示する変数を渡す

Question

Outlookでは、メッセージを一時的に表示するために次のコードを設定しました。

しかし、表示するテキストを含む変数（aMessageLabel）を渡す方法を考えることができません。

Sub Test() 

    Dim aShell 

    Set aShell = CreateObject("WScript.Shell") 

    aMessageLabel = Chr(34) & "No Emails to be Forwarded!" & Chr(34) 

    aShell.Run "mshta.exe vbscript:close(CreateObject(""WScript.shell"").Popup(aMessageLabel,5,""Message""))" 

End Sub 

Answer 1

これは

Sub Test() 

    ' this is the resulting windows command (you can run at command prompt) 
    ' mshta.exe vbscript:close(CreateObject("WScript.shell").Popup("No Emails to be Forwarded!",5,"Message")) 
    ' the "5" is number of seconds that the popup message will live 

    Dim aShell 
    Set aShell = CreateObject("WScript.Shell") 

    aMessageLabel = "No Emails to be Forwarded!" 

    Dim cmd As String 

    ' multiline 
    cmd = "mshta.exe vbscript:close(CreateObject(""WScript.shell"").Popup(""" 
    cmd = cmd & aMessageLabel 
    cmd = cmd & """,5,""Message""))" 
    Debug.Print cmd 
    aShell.Run cmd 

    ' one line 
    aShell.Run "mshta.exe vbscript:close(CreateObject(""WScript.shell"").Popup(""" & aMessageLabel & """,5,""Message""))" 

End Sub