Questions Objet Outlook

Word, PowerPoint, Outlook, Access et tous les autres logiciels de la suite Office (sauf Excel)
F
Filou93
Membre habitué
Membre habitué
Messages : 60
Inscrit le : 9 juin 2018
Version d'Excel : 2016 FR

Message par Filou93 » 21 janvier 2019, 22:26

Bonjour à tous,

J'ai trouvé un code VBA sur un forum qui marche nickel sur Outlook, il permet de mettre une codification selon plusieurs choix par exemple

[AR] + objet du mail => action requise
[LR] + objet du mail => lecture requise
[RR] + objet du mail => réponse requise

J'ai essayer de remplacer l'InputBox par un Userform en ajoutant une liste déroulante pour faciliter encore plus le mail, au lieu de rentrer un chiffre, j'ai pensé à cliquer c'est plus simple mais j'y arrive pas.

Voici le code :
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'---------------------------------------------------------------------------------------
' Procedure : Application_ItemSend
' Author    : OLiv-
' Purpose   :
'---------------------------------------------------------------------------------------
 
' on verifie que c'est un mail
    If Not Item.Class = olMail Then Exit Sub
 
    If InStr(1, Item.Subject, "[") = 0 Then
 
        Choix = InputBox("1-[AR] action requise" & vbCr & "2-[LR] lecture requise" & vbCr & "3-[RR]réponse requise" & vbCr & _
                         "4-[PVI] pour votre information" & vbCr & "5-[URGENT] urgent" & vbCr & "6-[IMPORTANT] important", "Voulez-vous ajouter un code ?")
        If Choix <> "" Then
 
            Item.Subject = Choose(Choix, "[AR]", "[LR]", "[RR]", "[PVI]", "[URGENT]", "[IMPORTANT]") & "-" & Item.Subject
        End If
 
    End If
End Sub
J'arrive a créer le userform, le soucis arrive quand je veux copier mon choix dans l'objet.

Merci d'avance pour votre aide.

Filou93
Avatar du membre
curulis57
Membre impliqué
Membre impliqué
Messages : 2'827
Appréciations reçues : 90
Inscrit le : 4 janvier 2016
Version d'Excel : 2013 FR

Message par curulis57 » 29 janvier 2019, 08:43

Salut Filou93,

si tu as un fichier, pourquoi ne pas nous le transmettre ?
:joindre:

8-)
A+
F
Filou93
Membre habitué
Membre habitué
Messages : 60
Inscrit le : 9 juin 2018
Version d'Excel : 2016 FR

Message par Filou93 » 29 janvier 2019, 09:01

Salut Curulis57,

J'ai régler mon soucis, en fait comme c'est un code sur Outlook je peux pas partager de fichier (Ou peut être que je sais pas si tu sais comment faire je suis preneur)

Merci pour ta réponse
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message