Jeudi 30 Mars 2017  
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 : 5
Membres en ligne : 0

 callaghi 1 jour
 Alphator 9 semaines
 ande 15 semaines
 Oliv 17 semaines
 cubitus 20 semaines
 JièL 25 semaines
 angel 31 semaines
 Quartzkyte 39 semaines
 grouilau 40 semaines
 miguy973 49 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:609
En ligne :5
Max. en ligne:312
Max. / jour:66 529
Total hier:5 065
Total ce mois:152 840
Total visites:17 273 932
Moyenne/jour:5 647

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 8731 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
R07050 Autoriser / Interdire l'affichage des images et/ou l'activation du HTML, R99470 Ca va mieux ?, R15900 [VBA] Relever des boites pop sequentiellement (FREE), R04060 Supprimer les pièces jointes d'un message, R16060 Importer les contacts de Windows Live Mail dans Outlook, R16040 Importer le carnet d'adresses d'Outlook Express dans Outlook, R11030 Importer tout ou partie d'un fichier .PST, R06080 Créer rapidement une règle selon un message, R09110 Partager le carnet d'adresse d'Outlook 2000 avec Outlook Express 5, R08150 Dossier personnel (racine) qui apparait en double, R01145 Configurer un compte Hotmail avec Outlook 2003 ou 2007, R15330 [VBA] Ajouter un destinataire CC ou CCI a chaque envoi de mail, R00120 Gérer TOUS vos comptes Mails avec Mail2Web, R02030 Définir des groupes de comptes de messagerie, R12030 Créer un rendez-vous rapidement

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