Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Outlook Discussion :

Sélection d'un dossier avant envoi mail


Sujet :

Outlook

  1. #1
    Membre actif
    Sélection d'un dossier avant envoi mail
    Bonjour à tous,

    J'utilise le code suivant pour classer les mails que j'envoie dans un dossier d'archivage à sélectionner:

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    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 = objNS.GetDefaultFolder(olFolderDeletedItems)
                End If
            Set Item.SaveSentMessageFolder = objFolder
    fin:
     
    End Sub


    J'aurais souhaité l'adapter afin que lorsque je clique sur "Annuler", le mail ne soit pas envoyé et que je puisse revenir le modifier.
    Actuellement, et conformément au code ci-dessus, le mail part et est classé dans les éléments supprimés.
    Je ne suis pas sûr que cela soit possible ?



    Merci pour votre aide !

  2. #2
    Expert éminent
    Salut

    fait comme cela

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    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
                    cancel = true
    else
        Set Item.SaveSentMessageFolder = objFolder
                End If
     
    fin:
     
    End Sub

  3. #3
    Membre actif
    C'est parfait, j'avais oublié l'intérêt de la variable Cancel… merci !