Discussion :

[chipster62]

bonjour

je suis novice dans les macros d'Outlook.

Je recherche une macro qui afficherais un fenetre (MsgBox) lorsque je clique sur une action rapide nommée "TEST"

La Msgbox proposerait simplement un bouton "oui" et un bouton "non"

Pour "oui" il execute l'action rapide
Pour "non" il retourne sur le message (rien ne se passe)

Merci bien de votre aide

[Oliv-]

Bonjour,
Je ne crois pas que ce soit possible. Il faut tout faire en macro.

[chipster62]

bonjour

j'ai trouvé ce code (2ème partie après ELSE) sur internet :

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
Sub test()
 
'Message avec question
If MsgBox("Une réponse doit être apporté au message ?", vbYesNo, "test") = vbYes Then
MsgBox "Merci d'apporter une réponse.", vbOKOnly, "test"
Else
 
'Déplacer mail
Dim myOlApp As Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.MAPIFolder
Dim myFolderArchive As Outlook.MAPIFolder
Dim myItem As Outlook.MailItem
 
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myFolderArchive = myFolder.Parent.Folders("0_MAILS ARCHIVÉS")
myFolder.Items(1).Move myFolderArchive
End If
 
End Sub

Le problème c'est que cela déplace le 1er message du dossier "boite de réception" même si je ne suis pas sur le 1er message.

Je voudrais pouvoir déplacer le message sélectionné (ou ouvert) et non le 1er message


Merci de votre aide

[Oliv-]

Pour travailler avec le mail qui est actuellement ouvert.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim myItem As Outlook.MailItem
set myItem  = activeinspector.currentitem

pour travailler avec le mail sélectionné dans un explorer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim myItem As Outlook.MailItem
set myItem  = activeExplorer.selection(1)

On peut tester la fenêtre active et laisser le programme déterminer quoi prendre

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
Dim obj As Object
    Dim myItem As Outlook.MailItem
 
    Set obj = Application.ActiveWindow
    If TypeOf obj Is Outlook.Inspector Then
        Set obj = obj.CurrentItem
    Else
        Set obj = obj.Selection(1)
    End If
 
    If obj.Class = olMail Then
 
    set myItem   = obj
 
   end if

c'est préférable de tester si l'élément est bien un mail ce que fait " If obj.Class = olMail Then"


Pour une Reponse "inline" c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set myItem   = Application.ActiveExplorer.ActiveInlineResponse

[chipster62]

merci bien, j'ai réussi à faire ce que je voulais.