Microsoft 365 Macro excel pour liste déroulante dans sujet outlook

atomixe

XLDnaute Nouveau
Bonjour,

Je sui nouveau sur le forum alors bonjour à tous.
J'utilise office 365 et je cherche à faire une macro visual basics dans Outlook pour pouvoir avoir une liste déroulante pour le sujet du mail.
Pour cette première partie j'ai réussi pas de soucis.

Ce que j'aimerais savoir, c'est si il est possible que le menu déroulant m'affiche du texte qui ne sera pas transféré dans le sujet.

Je m'explique, j'ai entrée dans ma macro tous les sujets dont j'ai besoin :
.AddItem "[BB92]"
.AddItem "[BG92]"
.AddItem "[BC77]"
.AddItem "[CA94]"
.AddItem "[CCVE]"
.AddItem "[DGAB]"

seulement ces codes ne sont pas trop parlant pour tout le monde et je voudrais mettre ce à quoi ils correspondent
mais sans que cela s'affiche dans le sujet quand je le sélectionne :
Affichage du menu déroulant : [BB92] - Boulogne Billancourt
Affichage du sujet : [BB92]

Merci à vous et bonne journée
 

Eric KERGRESSE

XLDnaute Occasionnel
Bonjour,

Il vous faut adapter les propriétés de la Combobox et charger les deux colonnes.

Par exemple:

BoundColumn reste à 1, elle correspond à la valeur que vous restituerez (BB92)
ColumnCount = 2 (vos deux colonnes)
ColumnWidths 0;100 avec 0 on rend invisible la première colonne.

Capture.JPG
 

atomixe

XLDnaute Nouveau
Bonjour,

Merci pour vos réponses.
Je suis vraiment désolé mais je ne comprends pas bien le principe.
Il faut que j'active une deuxième colonne si j'ai bien compris, mais je ne prend pas les valeurs dans un tableau, je les ai mise dans le code directement.

Peut être que je n'ai pas compris la réponse

Et Youky je ne comprends pas non plus ce que tu veux dire...

Désole et je suis preneur si vous pouvez m'expliquer !!

Merci
 

atomixe

XLDnaute Nouveau
J'ai bien compris le principe mais ma macro dans Outlook ne fonctionne plus...
Je ne sais vraiment pas pourquoi...
J'avais bien le menu déroulant qui apparaissait toute à l'heure mais maintenant impossible de faire apparaitre quoi que ce soit....

J'ai créer un formulaire utilisateur dans lequel j'ai mis mon menu déroulant et mon bouton
J'ai mis mon code dans le formulaire utilisateur :
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "1"
.AddItem "2"
.AddItem "3"
.AddItem "4"
End With
End Sub

Private Sub CommandButton1_Click()
GCbbIndex = ComboBox1.ListIndex
GSelSubject = ComboBox1.Value
Unload Me
End Sub

J'ai rajouté le code quand la rubrique cette session outlook
Public WithEvents GExplorer As Explorer
Private Sub Application_Startup()
Set GExplorer = Application.ActiveExplorer
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
Set GInlineMail = Item
End Sub

et j'ai rajouté un module avec le code suivant :
Public GCbbIndex As Long
Public GSelSubject As String
Public GInlineMail As MailItem
Public Sub ChangeSubject()
Dim xItem As MailItem
Dim xMail As Outlook.MailItem
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set xMail = GInlineMail
Debug.Print "Explorer"
Case "Inspector"
Set xMail = Application.ActiveInspector.CurrentItem
Debug.Print "Inspector"
End Select
UserForm1.Show
If (GCbbIndex <> -1) And (GSelSubject <> "no change") Then
xMail.Subject = GSelSubject
End If
End Sub


Et quand je créer mon bouton dans Outlook avec mon projet vba, il ne se passe plus rien....

J'ai redémarré mon pc au cas ou....

Help !!! Merci
 

youky(BJ)

XLDnaute Barbatruc
Bien que la variable soit Public GSelSubject As String
celle_çi doit être perdu si on passe dans Outlook..
Les autres Public aussi d'ailleurs . . . .
Je pense qu'il faut tout gérer depuis Excel mais sans fichier et le peu d'explication c'est jouer aux devinettes.
Bruno
 

Discussions similaires

Réponses
8
Affichages
500
Réponses
1
Affichages
296
Compte Supprimé 979
C

Statistiques des forums

Discussions
314 422
Messages
2 109 447
Membres
110 482
dernier inscrit
ilyxxxh