Outlook - Transmettre la variable à afficher dans le menu contextuel temporaire

Dans Outlook, j'ai configuré le code suivant pour afficher temporairement un message.Outlook - Transmettre la variable à afficher dans le menu contextuel temporaire

Cependant, je ne peux pas savoir comment passer une variable (aMessageLabel) contenant le texte à afficher.

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

Source

2017-05-24 Johnnie fanto

Pouvez-vous décrire s'il vous plaît un peu plus exactement ce que vous voulez? Qu'est-ce qui ne fonctionne pas? –

(1) D'où voulez-vous transmettre le message? Qui ou quoi sait que Aucun e-mail ne doit être transmis? (2) Pourquoi n'utilisez-vous pas MsgBox de VBA pour afficher le message? Vous pouvez avoir une bonne raison, mais ce n'est pas évident à partir de votre question. –

2. Je vais configurer la macro pour qu'elle s'exécute toutes les dix minutes et je veux un pop-up pour dire à l'utilisateur que la macro est en cours d'exécution s'ils travaillent dans outlook à ce moment-là. –

cela fonctionne

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

Source

2017-06-30 01:15:46 jsotola

J'ai mis à jour ma macro et le popup apparaissent et disparaissent avec le texte correspondant, merci pour votre aide! –

Outlook - Transmettre la variable à afficher dans le menu contextuel temporaire

Répondre

Questions connexes