pilotage outlook express par VBA excel

[epaminondas]

Bonjour,🙂
A partir d'une source développée par Heureuxoli/développez.com, je voudrais arriver à lire les mails de OUTLOOK EXPRESS et les transférer. Mais quand je lance le programme ci-dessous il me déclare "Type défini par l'utilisateur indéfini".😕

Option Explicit

Private Sub CommandButton1_Click()
Dim myFld As Folder
Dim myDestFolder As Folder
Dim myNS As NameSpace
Dim myItem As MailItem
Dim oApp As Outlook.Application

Set oApp = Outlook.Application
Set myNS = oApp.GetNamespace("MAPI")
Set myFld = myNS.GetDefaultFolder(olFolderInbox)
Set myDestFolder = myFld.Folders("Temp")

For Each myItem In myFld.Items
If myItem.Attachments.Count = 1 Then


If myItem.Attachments.Item(1).Filename = "essai.doc" Then
myItem.Attachments.Item(1).SaveAsFile "C:\Temp\" & myItem.SenderName & ".docm"
myItem.Move myDestFolder

End If
End If
Next myItem
end sub

Quelqu'un peut-il m'aider ?
Merci

 

[GIBI]

Re : pilotage outlook express par VBA excel

Bonjour,

Il faut ajouter la bibliothèque outlook :

dans l'interfacee VBa Menu Outils/références ajouter la bibliothèque Microsoft outlook...

CEla devarit mieux fonctionner

GIBI