Discussion :

[oldchap]

Bonjour,

Je souhaiterai supprimer un mail dans Outlook 2010 avec le code ci-dessous:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
        Dim selObjet As Object = OutlookExplorer.Selection.Item(1)
            If (TypeOf selObjet Is Outlook.MailItem) Then
                Try
                    Dim TheMail As Outlook.MailItem = TryCast(selObjet, Outlook.MailItem)
                    Dim DeleteFolder As Outlook.Folder
                    DeleteFolder = Me.OutlookExplorer.Application.Session.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderDeletedItems)
                    TheMail.Move(DeleteFolder)
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
 
            End If

En mode debug mes objets sont corrects mais il y a une erreur qui est levée au moment du "Move".

Voici l'erreur:

Impossible de terminer l'opération car le fournisseur de service ne la prend pas en charge.

Je ne vois pas d'ou cela pourrait venir, petite précision Outlook est connecté à un compte GoogleApps... je ne pense pas que cela vienne de la.

Merci pour votre aide

OldChap

PS: Je ne sais pas si je suis dans le bon forum pour du VBNet car j'ai vu un sous-forum VBA ?

[carden752]

Bonjour,

Je ne sais pas si cela est lié mais en VBA, DeleteFolder doit être déclaré en MAPIFolder et non Folder, peut-être c'est la même chose en VB.net