Discussion :

[0leev]

#update : je viens de constater que je devais placer ce message dans le sous-forum VBA...merci de vos bons soins

Bonjour,

A l'aide de l'initiation au VBA Outlook de dolphy35 et pour mes "vieux collaborateurs" du cabinet dans lequel je travaille, j'ai pu créer un bout de code demandant confirmation avant l'envoi d'un mail dans une MsgBox.
Jusqu'ici tout va bien...
Je cherche désormais à permettre à l'utilisateur d'activer ou désactiver cette fonction à l'aide d'un bouton dans le bandeau Office, disponible dans un nouveau groupe du bandeau avec un message indiquant l'état actif ou inactif de l'outil.
Créer le groupe, le bouton rien de compliqué...cependant je ne matérialise pas comment intégrer le code dans une macro derrière le bouton...

Voici le code dans le module ThisOutlookSession :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim MonMail As MailItem
Dim strMsg, strMsg2 As String
Set MonMail = Item
strMsg = "Envoyer ce message à " + MonMail.To + " avec comme objet :"
strMsg2 = """" + MonMail.Subject + " ?" + """"
    If MsgBox(strMsg & vbCr & strMsg2, vbQuestion + vbYesNo, "Confirmation d'envoi") = vbNo Then
        Cancel = True
    End If
End Sub

Je crois comprendre qu'il faille mettre Function à la place pour appeler ce code dans une procédure Sub.
Cette procédure sera alors stockée dans une macro, affectée à un bouton Activer dans le bandeau Office.

Mais heu... comment je fais ça ?
Existe-t-il un fonction intégrée dans VBA ou dois-je passer par une condition ?
Merci d'avance pour les pistes qui me seront données et bonne nuit !

En tant que novice, je tiens sincèrement à féliciter et à remercier developpez.net et toute son équipe pour la quantité d'informations disponibles !

Cdt, Oleev

[0leev]

#update : je viens de constater que je devais placer ce message dans le sous-forum VBA...merci de vos bons soins

Bonjour,

A l'aide de l'initiation au VBA Outlook de dolphy35 et pour mes "vieux collaborateurs" du cabinet dans lequel je travaille, j'ai pu créer un bout de code demandant confirmation avant l'envoi d'un mail dans une MsgBox.
Jusqu'ici tout va bien...
Je cherche désormais à permettre à l'utilisateur d'activer ou désactiver cette fonction à l'aide d'un bouton dans le bandeau Office, disponible dans un nouveau groupe du bandeau avec un message indiquant l'état actif ou inactif de l'outil.
Créer le groupe, le bouton rien de compliqué...cependant je ne matérialise pas comment intégrer le code dans une macro derrière le bouton...

Voici le code dans le module ThisOutlookSession :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim MonMail As MailItem
Dim strMsg, strMsg2 As String
Set MonMail = Item
strMsg = "Envoyer ce message à " + MonMail.To + " avec comme objet :"
strMsg2 = """" + MonMail.Subject + " ?" + """"
    If MsgBox(strMsg & vbCr & strMsg2, vbQuestion + vbYesNo, "Confirmation d'envoi") = vbNo Then
        Cancel = True
    End If
End Sub

Je crois comprendre qu'il faille mettre Function à la place pour appeler ce code dans une procédure Sub.
Cette procédure sera alors stockée dans une macro, affectée à un bouton Activer dans le bandeau Office.

Mais heu... comment je fais ça ?
Existe-t-il un fonction intégrée dans VBA ou dois-je passer par une condition ?
Merci d'avance pour les pistes qui me seront données et bonne nuit !

En tant que novice, je tiens sincèrement à féliciter et à remercier developpez.net et toute son équipe pour la quantité d'informations disponibles !

Cdt, Oleev

Personne pour m'apporter un conseil... :/