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

  1. #1
    Nouveau membre du Club
    envoyer ses mails envoyés dans divers dossiers
    Bonjour à tous,
    J'ai regardé dans règles et je ne trouve pas de réponses à mon problème.
    Quand j'envoie des mails, ils se mettent dans mails envoyés (normal), mais avec une certaine durée avant suppression, j'aimerais donc, quand je les envoie, qu'ils se mettent dans divers dossiers concernés (pour toujours).
    Est-ce possible ? Ou faut-il faire une VBA avec un bouton pour indiquer l'envoyé à un dossier spécifique?
    Je ne sais pas si j'ai bien formulé J'ai pas trouvé sur internet
    Si quelqu'un sait faire, ce serait chouette

  2. #2
    Expert éminent
    Bonjour,
    il faut utiliser l'événement d'envoi du mail

    dans ThisOutlookSession

    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
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    'by oliv modifiée le 9/2/2007
     
        Dim objNS As NameSpace
        Dim objFolder As Folder
     
        ' on verifie que c'est un mail
        If Not Item.Class = olMail Then GoTo Fin
     
     
        '###########verification d'un mot pour éviter la question du classement ici PUBLIPOSTAGE #################################
        If UCase(Item.Subject) Like "*PUBLIPOSTAGE*" Then
            On Error Resume Next
     
            'On supprime le mot PUBLIPOSTAGE du sujet
            Item.Subject = Replace(Item.Subject, "PUBLIPOSTAGE", "")
     
            'On sauvegarde le mail
            Item.Save
            'on va directement à la fin pour éviter les questions sur l'envoi
            GoTo Fin
        End If
     
     
        '#######ENREGISTRER UNE COPIE ET OU #######
                Set objNS = Application.session
                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
                Set objFolder = Nothing
                Set objNS = Nothing
        '#######FIN #######
    Fin:
     
     
        Set Item = Nothing
     
    End Sub