Discussion :

[Yesworld]

Bonjour à tous,

Je désire exécuter un script sut Outlook qui fait ce qui suit:

1. Lorsqu'un nouveau courriel entre dans mon "inbox"
et
2. qu'il provient d'une adresse de messagerie précise
et
3. qu'il contient un seul attachement
ACTION 1 --> Déplacer le courriel en question dans un dossier Transitoire
ACTION 2 --> Démarrer le script

Le script prend le fichier attaché et le déplace dans le dossier "Inbox" puis supprime le courriel original.

J'ai commencé à tester du code pour mon script mais cela ne fonctionne pas. J'apprécierai vraiment que quelqu'un m'aide à régler ce prob.

Merci à l'avance pour votre précieux temps!

Respectueusement
M

Ébauche du code actuel:

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub saveAttachtoDisk1(itm As Outlook.MailItem) 
Dim objAtt As Outlook.Attachment 
Dim saveFolder As String 
saveFolder = "C:\Transition_mail\" 
For Each objAtt In itm.Attachments 
objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName 
Set objAtt = Nothing 
Next 
End Sub

------------------
ou
------------------

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub saveAttachtoDisk2(itm As Outlook.MailItem) 
Set MonApply = Outlook.Application 
Set MonNSpace = MonApply.GetNamespace("MAPI") 
Set FldDossier = MonNSpace.GetDefaultFolder(olFolderInbox) 
Set MonMail = Outlook.Attachment 
Set MaInbox = MonNSpace.GetDefaultFolder(olFolderInbox) 
Set MonDestFolder = MaInbox.Folders("Transition") 
For Each MonMail In itm.Attachments 
MonMail.Move MonDestFolder 
Set MonMail = Nothing 
Next 
End Sub

[Oliv-]

Salut,
Merci de préciser si tu utilises des dossiers OUTLOOK ou WINDOWS ?
Si tu veux déplacer l'attachment directement dans INBOX c'est que cet attachment est lui même un Email quelle est son extention.msg ou autre ?
regarde ce post

[Yesworld]

Bonjour Oliv,

merci pour ton aide en passant,

Je viens de regarder le code sur ton liens et c'est pratiquement cela qu'il me faut mais à la place de sauvegarder l'attachement sur mon disque dur d'ordinateur, je veux déplacer cette pièce jointe dans un dossier interne d'Outlook. À tes questions, voici les réponses:

Q1. utilises tu des dossiers OUTLOOK ou WINDOWS ?
R1. j'utilises Outlook et je veux que tout soit géré à l'intérieur d'Outlook.

Q2. quelle est son extention.msg ou autre ?
R2. Oui, l'attachement en question a une extension .msg

De plus, je ne sais pas si cela change quelque chose, mais le code VBA roule à travers un script qui est appelé depuis l'outil "Règles et Alertes" d'Outlook?

Merci encore pour ton aide,

Respectueusement,

M