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

[atomixe]

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]

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.

 

[youky(BJ)]

Bonjour Tous,
En complément . . .

.AddItem "[A1]"
.List(0, 1) = "Paris" 'on commence à 0
.AddItem "[A2]"
.List(1, 1) = "Lyon" 'on incrémente donc 1

Bruno

 

[atomixe]

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

 

[youky(BJ)]

Voici un fichier c'est plus parlant
Bonne suite
Bruno

 

[youky(BJ)]

Une autre variante avec listbox et cases à cocher
Bruno

 

[atomixe]

ok je comprend mieux
je vais essayer de l'appliquer à mon projet !!

merci

 

[atomixe]

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)]

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

 

[atomixe]

En fait j'avais fait tout mon projet dans visual basic en cliquant sur Windows + f11
En fait il ne faut pas que je fasse comme ca ?
C'est ce que vous me dites ?
Voulez vous que j'exporte mon projet vb pour vous le communiquer ?

 

[atomixe]

Je vous dis ca mais je ne sais même pas si c'est possible