Mardi 15 Octobre 2019  
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 : 3
Membres en ligne : 0

 pirobert 22 semaines
 jcgdisle 47 semaines
 EMERGENCY 67 semaines
 beaulieu 79 semaines
 callaghi 83 semaines
 Charlie76 88 semaines
 joscopp 99 semaines
 JièL 99 semaines
 julbast 100 semaines
 zorro71 124 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:3 392
En ligne :3
Max. en ligne:312
Max. / jour:66 529
Total hier:3 022
Total ce mois:71 192
Total visites:22 792 839
Moyenne/jour:5 714

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 12889 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
R20020 Configurer un compte IMAP pour Outlook 2002/2003, R15930 [VBA] Eliminer les doublons, R15400 [VBA] Changer les parametres POP des COMPTES, R08125 Impossible d'envoyer un message (mon FAI est Wanadoo/Orange), R06025 Limiter la taille maximum du .PST, R10070 Sauvegarder les fichiers de paramètres d'Outlook, R15350 [VBA] Choix du compte selon les destinataires, R01145 Configurer un compte Hotmail avec Outlook 2003 ou 2007, R03120 Insérer du HTML dans un message, R20010 Configurer un compte POP pour Outlook 2002/2003, R04060 Supprimer les pièces jointes d'un message, R03120 Insérer du HTML dans un message, R05045 Imprimer la partie utile d'un message (Outlook 2007 et autres), R15260 [VBA] Copier le corps et les en-têtes vers le presse-papier, R02060 Vérifier l'accès au serveur SMTP

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é
Météo Marseille
[/\] Copyright JièL / Jean-Louis Goubert © 2003-2009 [/\]