Mercredi 19 Juin 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 : 4
Membres en ligne : 0

 pirobert 5 semaines
 jcgdisle 30 semaines
 EMERGENCY 50 semaines
 beaulieu 62 semaines
 callaghi 66 semaines
 Charlie76 71 semaines
 joscopp 82 semaines
 JièL 82 semaines
 julbast 83 semaines
 zorro71 107 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:4 782
En ligne :4
Max. en ligne:312
Max. / jour:66 529
Total hier:5 070
Total ce mois:117 254
Total visites:21 991 480
Moyenne/jour:5 681

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 9937 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
R11010 Restaurer TOUT Office 2003, R99050 Impression d'écran, R15060 [VBA] Attribuer un raccourci clavier à une macro., R99140 Ca marche ?, R09130 Rechercher dans le carnet d'adresses, R09180 Classer différemment ses contacts existants (définitivement), R09130 Rechercher dans le carnet d'adresses, R13020 Créer une tâche rapidement, R10030 Exporter tout ou partie du fichier .PST, R99450 On peut faire ça ?, R00110 Vérifier une adresse mail avant d'envoyer un message, R07025 Lancer Outlook plusieurs fois avec plusieurs profils, R01220 Ajouter MSMail à Outlook 2002/2003, R15430 [VBA] Cocher plusieurs calendriers à l'ouverture, R09020 Comment fonctionne le complément automatique de la saisie des 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é
Météo Marseille
[/\] Copyright JièL / Jean-Louis Goubert © 2003-2009 [/\]