Outlook - Pass variable to be displayed in temporary Popup

تعرفه تبلیغات در سایت

آرشیو مطالب

امکانات وب

In Outlook I have setup the following code to temporarily display a message. However I cannot work out how to pass a variable (aMessageLabel) containing the text to be displayed.

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

نویسنده : استخدام کار بازدید : 111 تاريخ : چهارشنبه 3 خرداد 1396 ساعت: 22:05
برچسب‌ها :



نام کاربري :
رمز عبور :