[Toutes versions] Comment être sur que c'est bien un mail qui est sélectionné [Résolu]

[basto]

Bonjour

J'ai écrit la macro suivante :

Code :

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
 
Sub CleanPieceJointe()
    ' permet de supprimer les pièces jointes des mails sélectionnés.
 
    Dim LOutlookAppli As Outlook.Application
    Dim Lmail As MailItem
    Dim LSelectMails As Object
    Dim Li As Integer
 
    Set LOutlookAppli = Outlook.Application
    Set LSelectMails = LOutlookAppli.ActiveExplorer.Selection
 
    ' Pour tous les mails selecionnés
 
    For Each Lmail In LSelectMails
 
        'alimentation du tableau des attachments
        While (Lmail.Attachments.Count <> 0)
            Lmail.Attachments.Item(1).Delete
        Wend
 
        Lmail.Save
     Next Lmail
 
 
    Set LOutlookAppli = Nothing
    Set LSelectMails = Nothing
 
    MsgBox "Fin de la suppression des pièces jointes"
 
End Sub

Celà permet de supprimer les piéces jointes d'une liste de mails sélectionnés par l'utilisateur.

Comme je récupère la sélection par LOutlookAppli.ActiveExplorer.Selection
Comment puis je vérifier qu'il s'agit bien de mail et pas d'un objet du calendrier ou autre...

Car bien sur si c'est le cas, la macro plante ..

D'avance merci de votre aide.

Bonnes fêtes de fin d'année.

[jemore22]

Bonjour.

Il faut tester le "type" du message :

Code :

1
2
3
4
5
6
7
8
9
10
 
...
For Each Lmail In LSelectMails
  if Lmail.Class = olMail then
  ' olMeetingRequest pour savoir si c'est un rdv
  ...
  end if          
 
Next Lmail
...

[basto]

Merci pour cette réponse.

Ca fonctionne super !!!

Bonne et heureuse année !! !