Lundi 26 Août 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 14 semaines
 jcgdisle 39 semaines
 EMERGENCY 60 semaines
 beaulieu 72 semaines
 callaghi 75 semaines
 Charlie76 81 semaines
 joscopp 92 semaines
 JièL 92 semaines
 julbast 92 semaines
 zorro71 117 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:4 074
En ligne :4
Max. en ligne:312
Max. / jour:66 529
Total hier:5 149
Total ce mois:156 949
Total visites:22 452 064
Moyenne/jour:5 701

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 10081 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
R06090 Appliquer une règle aux messages existants, R17020 Lecture des propriétés d'un compte exchange, R99030 Faut deviner ?, R06060 Créer un dossier (sous dossier) dans le .PST, R17030 Pourquoi les données saisies dans un formulaire perso ne sont elles pas transmises / enregistrées ?, R03130 Voir la source du message dans l'entête, R08120 Erreur 554 Relay Access Denied, R07090 Supprimer / Modifier un expéditeur indésirable de la liste, R17070 VSTO et les formulaires d'Outlook 2007, R15440 [VBA] vider les courriers indésirables en quittant, R13050 Affecter une tâche à quelqu'un, R08010 Débloquer la boite d'envoi, R01050 Choisir le format d'envoi des messages, R99220 Des fois on se dit qu'il mérite..., R03010 Créer un nouveau message à partir d'un autre

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