Outlook Envoyer puis classer un e-mail

[fifou]

Bonjour à tous,

Je commence tout juste à travailler avec Outlook 2013 et j'aurai besoin de votre aide,
J'utilise la macro ci-dessous qui :
Me génère un pop-up pour ranger mon e-mail dans mon dossier lorsque j'appuie sur "envoyer", jusque là tout va bien.

Le problème : Lorsque le pop-up s'ouvre, je souhaiterais que lorsque j'appuie sur "annuler" ou la croix rouge, l'e-mail ne s'envoie pas et me remet sur corps de l'e-mail.

Merci à vous si vous avez une idée.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Not Item.Class = olMail Then GoTo fin

    Dim objNS As NameSpace
    Dim objFolder As MAPIFolder

            Set objNS = Application.GetNamespace("MAPI")

            Set objFolder = objNS.PickFolder

          
            If TypeName(objFolder) = "Nothing" Then

                Set objNS = Application.GetNamespace("MAPI")

                Set objFolder = Item.SaveSentMessageFolder

            End If

        Set Item.SaveSentMessageFolder = objFolder

fin:

End Sub