Mercredi 17 Octobre 2018  
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

 EMERGENCY 15 semaines
 beaulieu 27 semaines
 callaghi 31 semaines
 Charlie76 36 semaines
 joscopp 47 semaines
 JièL 47 semaines
 julbast 48 semaines
 pirobert 48 semaines
 zorro71 72 semaines
 Alphator 90 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:1 182
En ligne :3
Max. en ligne:312
Max. / jour:66 529
Total hier:13 689
Total ce mois:73 890
Total visites:20 498 727
Moyenne/jour:5 655

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 »  [>>]
R15900 [VBA] Relever des boites pop sequentiellement (FREE)

Outlook relève les différent comptes POP de façon simultanée or certains FAI limitent le nombre de connexions simultanée.

Pour contourner cela une macro pour le faire séquentiellement en VBSCRIPT


Outlook relève les différent comptes POP de façon simultanée or certains FAI limitent le nombre de connexions simultanée.

Pour contourner cela une macro pour le faire séquentiellement.



Vous allez utiliser le gestionnaire de taches et un fichier .vbs en lieu et place de la reception automatique de OUTLOOK donc à désactiver (ctrl+alt+S)

On suppose ici que nous avons 2 comptes à relever mais vous pouvez en ajouter.

Donc dans un ti fichier que vous appellerez "EnvoyerRecevoir.vbs"
coller ceci :

et remplacer les comptes par les votres
Vous devez absolument écrire le compte tel qu'il figure dans le menu déroulant "Envoyer/Recevoir" avec en tête son n° d'ordre.

'##############DEBUT ###############
'By Oliv 3 AVRIL 2007
'Lance une opération "Envoyer recevoir" sur OUTLOOK
Dim theApp
Set theApp = WScript.CreateObject("Outlook.Application")
Dim oCtl
Dim oPop
Dim oCB
'STOP
'Use the Send/Receive on All Accounts action in the Tools
'menu to send the items from the Outbox, and receive new items
Set oCB = theApp.ActiveExplorer.CommandBars("Menu Bar")

'ici le premier compte à vérifier

Set oPop = oCB.Controls("Outils")
Set oPop = oPop.Controls("Envoyer/Recevoir")
'indiquer exactement le texte du menu
'attention à bien saisir votre compte
Set oPop = oPop.Controls("&4 « pop.easynet.fr » uniquement")
Set oCtl = oPop.Controls("Boîte de réception")
oCtl.Execute

'ici le second compte à vérifier
Set oPop = oCB.Controls("Outils")
Set oPop = oPop.Controls("Envoyer/Recevoir")
Set oPop = oPop.Controls("&5 « pop.freesurf.fr » uniquement")
Set oCtl = oPop.Controls("Boîte de réception")
oCtl.Execute

'Envoyer recevoir global décommenter pour l'utiliser
'  Set oPop = oCB.Controls("Outils")
'  Set oPop = oPop.Controls("Envoyer/Recevoir")
'  Set oCtl = oPop.Controls("Envoyer/Recevoir Tout")
'  oCtl.Execute

msgbox "Envoyé /recevoir terminé"
Set oCtl = Nothing
Set oPop = Nothing
Set oCB = Nothing
'##############FIN##############################"


enregistrez ce fichier où bon vous semble et ajouter son execution toutes les x minutes avec le gestionnaire des taches windows.


Adaptation de Geo pour Outlook 2010

 

D'accord, voici un script qui marche pour Outlook 2010, il recherche lui-même les paramètres à fournir à la fonction.

Le nom des adresses traitées est indiqué dnas un msgbox que vous pourrez supprimer.

Inconvénient potentiel, il traite toutes les adresses, on ne peut pas en sauter :

'##############DEBUT ###############
'By Oliv 3 AVRIL 2007 Adapté par Geo en mars 2011
'Lance une opération "Envoyer recevoir" sur OUTLOOK
Dim theApp
Set theApp = WScript.CreateObject("Outlook.Application")
Dim oCtl 
Dim oPop1 
Dim oPop2   
Dim oCB 
Dim i 
Dim pos 
'Use the Send/Receive on All Accounts action in the Tools
'menu to send the items from the Outbox, and receive new items
Set oCB = theApp.ActiveExplorer.CommandBars("Menu Bar")

Set oPop1 = oCB.Controls("Outils")
Set oPop1 = oPop1.Controls("Envoyer/Recevoir")
For i = 1 To oPop1.Controls.count
pos = InStr(1, oPop1.Controls(i).Caption, "uniquement")
If pos > 0 Then
Set oPop2 = oPop1.Controls(i)
Set oCtl = oPop2.Controls("Boîte de réception")
oCtl.Execute
msgbox " Compte : " &  oPop1.Controls(i).Caption
End If
Next 'i

MsgBox "Envoyé /recevoir terminé"
Set oCtl = Nothing
Set oPop1 = Nothing
Set oPop2 = Nothing
Set oCB = Nothing
'##############FIN##############################"

 


Publié par Oliv le vendredi 29 juin 2007 13:37 0 Commentaires 9552 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
R20031 Configurer un compte Hotmail (Windows Live Mail) en POP pour Outlook 2002/2003 Q20000 Tutoriels (en images)
Nuage de tags
R10050 Sauvegarder ses paramètres de compte messagerie, R15340 [VBA] Obliger la saisie d'un sujet, R12120 Synchroniser Google Calendar avec Outlook 2010, R99180 Matériel spécial, R20190 Configurer un serveur SMTP sécurisé pour Outlook 2007, R06080 Créer rapidement une règle selon un message, R12040 Créer un rendez-vous, R06050 Ouvrir un dossier d'archive (ou un autre .PST), R06032 Utiliser l'archivage automatique avec les dates de réception, R09130 Rechercher dans le carnet d'adresses, R15280 [VBA] Exporter un mail et l'ouvrir dans IE avec ses images, R01200 Changer le son de réception d'un message, R03070 Créer son papier à lettres personnel, R15000 [VBA] TUTORIEL OULOOK VBA, R01140 Utiliser un compte Hotmail ou MSN avec Outlook 2002 ou 2003 (Obsolète)

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 [/\]