Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Outlook déplacer un message dans un dossier avec VBA

déplacer un message dans un dossier avec VBA

3 réponses
Avatar
Michel Voirain
Bonjour à toutes et à tous et bonne année !,

A l'arrivée d'un message, je souhaite le déplacer dans le dossier
'Autres_messages' que j'ai créé. En reprenant du code de l'aide, j'ai fait
ceci :

Dim myOlApp As Outlook.Application
Dim myInspector As Outlook.Inspector
Dim myNameSpace As Outlook.NameSpace
Dim myItem As Outlook.MailItem
Dim myAttachments As Outlook.Attachments
Dim myDestFolder As Outlook.MAPIFolder
Dim myInbox As Outlook.MAPIFolder

Set myOlApp = CreateObject("Outlook.Application")
Set myInspector = myOlApp.ActiveInspector
Set myDestFolder = myInbox.Folders("Autres_messages")
arrivé à cette ligne il me balance un message d'erreur 'Variable objet non
définie ou erreur avec With '. Je comprend pas !

Merci devotre aide et bon appétit!

Michel
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Oliv'
*Michel Voirain que je salut a écrit *:
Bonjour à toutes et à tous et bonne année !,

A l'arrivée d'un message, je souhaite le déplacer dans le dossier
'Autres_messages' que j'ai créé. En reprenant du code de l'aide, j'ai
fait ceci :

Dim myOlApp As Outlook.Application
Dim myInspector As Outlook.Inspector
Dim myNameSpace As Outlook.NameSpace
Dim myItem As Outlook.MailItem
Dim myAttachments As Outlook.Attachments
Dim myDestFolder As Outlook.MAPIFolder
Dim myInbox As Outlook.MAPIFolder

Set myOlApp = CreateObject("Outlook.Application")
Set myInspector = myOlApp.ActiveInspector
Set myDestFolder = myInbox.Folders("Autres_messages")
arrivé à cette ligne il me balance un message d'erreur 'Variable
objet non définie ou erreur avec With '. Je comprend pas !

Merci devotre aide et bon appétit!

Michel


bin oui il manque un set myInbox.....avant


--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Avatar
Michel Voirain
Oliv merci de t'intéresser à mon problème, ce n'est pas la première fois que
tu m'aides!
Le problème c'est que je ne sais pas quoi mettre après Set myInBox
Je ne connais pas assez VBA Outlook !

Merci,

Michel


"Oliv'" a écrit dans le message
de news:

*Michel Voirain que je salut a écrit *:
Bonjour à toutes et à tous et bonne année !,

A l'arrivée d'un message, je souhaite le déplacer dans le dossier
'Autres_messages' que j'ai créé. En reprenant du code de l'aide, j'ai
fait ceci :

Dim myOlApp As Outlook.Application
Dim myInspector As Outlook.Inspector
Dim myNameSpace As Outlook.NameSpace
Dim myItem As Outlook.MailItem
Dim myAttachments As Outlook.Attachments
Dim myDestFolder As Outlook.MAPIFolder
Dim myInbox As Outlook.MAPIFolder

Set myOlApp = CreateObject("Outlook.Application")
Set myInspector = myOlApp.ActiveInspector
Set myDestFolder = myInbox.Folders("Autres_messages")
arrivé à cette ligne il me balance un message d'erreur 'Variable
objet non définie ou erreur avec With '. Je comprend pas !

Merci devotre aide et bon appétit!

Michel


bin oui il manque un set myInbox.....avant


--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~





Avatar
Michel Voirain
Bon j'ai trouvé une solution en allant sur le site de 3stone.be !
Mais VBA Outlook manque d'un didactiel, d'un vrai, avec de la PEDAGOGIE!!!!
Merci Ollivier

Michel


"Oliv'" a écrit dans le message
de news:

*Michel Voirain que je salut a écrit *:
Bonjour à toutes et à tous et bonne année !,

A l'arrivée d'un message, je souhaite le déplacer dans le dossier
'Autres_messages' que j'ai créé. En reprenant du code de l'aide, j'ai
fait ceci :

Dim myOlApp As Outlook.Application
Dim myInspector As Outlook.Inspector
Dim myNameSpace As Outlook.NameSpace
Dim myItem As Outlook.MailItem
Dim myAttachments As Outlook.Attachments
Dim myDestFolder As Outlook.MAPIFolder
Dim myInbox As Outlook.MAPIFolder

Set myOlApp = CreateObject("Outlook.Application")
Set myInspector = myOlApp.ActiveInspector
Set myDestFolder = myInbox.Folders("Autres_messages")
arrivé à cette ligne il me balance un message d'erreur 'Variable
objet non définie ou erreur avec With '. Je comprend pas !

Merci devotre aide et bon appétit!

Michel


bin oui il manque un set myInbox.....avant


--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~