Discussion :

[rudddy]

Bonjour

j'ai un script VBA qui est censé m'enregistrer les PJ des mails dans un dossier Windows, puis pour d'autres types de mails m'enregistrer le email au format .msg.

Le premier fonctionne nickel et le deuxième me donne l'erreur suivante :

Impossible d'écrire dans le fichier C:\Users ... \monPath Cliquez avec le bouton droit sur le dossier contenant le fichier dans lequel vous voulez écrire, puis cliquez sur Propriétés dans le menu contextuel pour vérifier vos autorisations sur le dossier.

Le script bloque à la ligne suivante :

Code :

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

olMail.SaveAs "C:\Users\Yves\Desktop\SCAN\" & rp_clientID, OlSaveAsType.olHTML

(testé avec différents types de messages)

olMail est bien défini et existe bien puisque je boucle dessus et j'arrive à afficher tous les sujets avec :

Code :

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

Debug.Print olMail.Subject

Bizarre car ça semble être un problème de droits (dossier en lecture seul) alors que lors du premier script, j'arrive à enregistrer les PJ !

Pour info, mes dossiers sont créés via la commande :

Code :

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

MkDir "C:\Users\Yves\Desktop\SCAN\" & rp_clientID

une idée ?

[rudddy]

FYI j'ai essayé de forcé et d'enlever le "lecture seule" avec

Code :

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

SetAttr "C:\Users\Yves\Desktop\SCAN\" & rp_clientID, vbNormal

mais l'erreur persiste ...

[mariobedard]

Bonjour , désolé de ne pouvoir vous aider sur ce cas. Par contre vous pourriez me donner un solide coup de main. je connais peu Outlook et j'essaie exactement de faire le même chose que vous, c'est a dire récupérer le message et le transférer dans mon cas vers access. Toutefois je n'arrive pas a trouver la méthode/script qui me donnerais le message en cours et où le placer dans outlook. Est ce que vous accepteriez de me partager votre script et m'indiquer à quel endroit je dois le mettre ?

[rudddy]

en fait j'ai trouvé la solution à mon souci : j'avais oublié l'extension !

Code :

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

 olMail.SaveAs "C:\Users\YvesDenan\Desktop\SCAN\" & dossier & "\" & olMail.EntryID & ".msg", OlSaveAsType.olMSG

ça marche nickel.

Pour récupérer le message en cours, utilisez :

Code :

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

1
2
3
4
5
6
7
8
9
'Déclarations
    Dim olApp As Outlook.Application
    Dim olMail As Outlook.MailItem
    Dim mapDossier As Outlook.MAPIFolder
    Set olApp = CreateObject("Outlook.Application")
    Set mapDossier = olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
 For Each olMail In mapDossier.Items 'Boucle parcourant les Emails de la boîte de réception
....
Next

Inspirez vous de http://dolphy35.developpez.com/article/outlook/vba/ c'est très bien fait