Samedi 06 Juin 2020  
Navigation
FAQ Outlook
» Foire Aux Questions «
Recherche
Téléchargements
Forums Outlook
Plan du site
Liens
Login

Les inscriptions sont fermées

Pseudo

Mot de passe

Se souvenir de moi



Mot de passe oublié ? Mot de passe oublié ?
Connexions
Bienvenue à [FAMACLUB]
le 1,414ème membre
Visiteurs en ligne : 1
Membres en ligne : 0

 JièL 6 semaines
 manucau 8 semaines
 Manu-pb 9 semaines
 Oliv 14 semaines
 pirobert 55 semaines
 jcgdisle 80 semaines
 EMERGENCY 101 semaines
 beaulieu 112 semaines
 callaghi 116 semaines
 Charlie76 122 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:89
En ligne :1
Max. en ligne:312
Max. / jour:66 529
Total hier:5 158
Total ce mois:19 378
Total visites:23 667 841
Moyenne/jour:5 605

Dernières 24h

























Publicité ; elle permet de financer le site
Navigation parmi les catégories/articles
« Catégorie     Q15000 Macros - VBA (41)  Catégorie »
[<<]  « Article  Article »  [>>]
R15210 [VBA] Déplacer le contenu d'un dossier vers un pst.
Permet de déplacer tous les mails d'un dossier vers un autre dossier des "Dossiers Personnels".

Sub MoveItems()

'By Oliv' février 2007
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.MAPIFolder
Dim myDestFolder As Outlook.MAPIFolder
Dim myItems As Outlook.Items
Dim myItem As Object
Set myNameSpace = myOlApp.GetNamespace("MAPI")

'ici le dossier d'origine
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox).folders("Divers")
Set myItems = myInbox.Items

'ici le dossier destination
Set myDestFolder = myNameSpace.Folders("Dossiers personnels").Folders("Divers")
For each Myitem in myItems
Myitem.Move myDestFolder
Next
Set myNameSpace=nothing
Set myInbox=nothing
Set myItems =nothing
Set myDestFolder =nothing


Publié par Oliv le mardi 27 février 2007 09:13 0 Commentaires 13315 Lecture(s) Imprimer
Commentaires
les commentaires sont fermés.
Copyright et partage
Ce site est sous licence Creative Commons.
Vous pouvez utiliser toutes les informations présentent ici, mais il vous est interdit de les reproduire sans citer la source.

Creative Commons License
OUI au partage
NON au « copillage »

Ajouter aux favoris / partager : 
URL :
BBcode :
HTML :
Cliquez ci dessus sur le lien que vous voulez copier et [Ctrl] + [C] ou cliquez sur le bouton [ C ]
Articles similaires
Articles Catégories
R15045 [VBA] Ouvrir l'arborescence des pst contenant une boîte de réception Q15000 Macros - VBA
R15930 [VBA] Création de menu dans outlook Q15000 Macros - VBA
R15380 [VBA] Envoi via VBA : suppression de la confirmation d'envoi Q15000 Macros - VBA
R15280 [VBA] Exporter un mail et l'ouvrir dans IE avec ses images Q15000 Macros - VBA
R06027 Alerter quand la taille du .PST est trop importante Q06000 Les fichiers d'Outlook
Nuage de tags
R05010 Ne pas imprimer la liste des (nombreux) destinataires d'un message, R99240 Quomen pozé une kestion, R15410 [VBA] Remplacer dans les Contacts l'envoi au format RTF, R10030 Exporter tout ou partie du fichier .PST, R14010 Recherche rapide , R14060 Gérer vos Notes, R02030 Définir des groupes de comptes de messagerie, R17020 Lecture des propriétés d'un compte exchange, R07100 Exporter / Importer une liste d'expéditeurs indésirables, R07080 Ajouter un expéditeur indésirable, R12070 Gérer les réponses à la demande de réunion, R20090 Configurer un serveur SMTP sécurisé pour Outlook 2002/2003, R05070 Imprimer les noms des pièces jointes aux messages en HTML, R04040 Imprimer directement une pièce jointe, R09050 Supprimer TOUS les noms suggérés lors de la saisie d'adresses (saisie auto ou saisie semi auto)

aucun Crack, CrackZ, no-CD, DownloadZ, TelechargementZ, Serial, Numéro de série, N0 de série, Serialz ni Keygen pour Outlook sur ce site.

Blague aléatoire
Publicité
[/\] Copyright JièL / Jean-Louis Goubert © 2003-2009 [/\]