Sujet Précédent Sujet Suivant

IMPORT AUTOMATIQUE D'UN COMPTE OUTLOOK EXPRESS

IdhaoBlue Messages postés 23 Date d'inscription mercredi 17 juillet 2002 Statut Membre Dernière intervention 29 juillet 2005 - 23 avril 2003 à 17:51
cs_Sator2 Messages postés 137 Date d'inscription samedi 11 septembre 2004 Statut Membre Dernière intervention 10 septembre 2006 - 15 nov. 2004 à 20:35

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/6828-import-automatique-d-un-compte-outlook-express

cs_Sator2 Messages postés 137 Date d'inscription samedi 11 septembre 2004 Statut Membre Dernière intervention 10 septembre 2006
15 nov. 2004 à 20:35

Salut, je sais pas si ça peut te rendre service, mais dans le menu démarrer/Executer tu tappes la commande wab.... mais je crois qu'il existe un prog. qui fait ça sur le site, A bon entendeur

cs_Kenny Messages postés 27 Date d'inscription lundi 3 juin 2002 Statut Membre Dernière intervention 16 novembre 2004
19 mars 2004 à 16:57

Apparement, cela fonctionne, mais j'aimerai ,en utilisant à peu près la même méthode, récupérer le carnet d'adresse de chacun... Est-ce possible (attention, avec Outllook Express

acrcorp Messages postés 96 Date d'inscription dimanche 16 février 2003 Statut Membre Dernière intervention 23 septembre 2007
1 juin 2003 à 12:35

Impécable ce petit programme :-)

J'ai trouvé un bug dans la méthode mettre_a_jour_adresses_e_mails()
Les numeros de comptes ne démarrent pas nécessairement à 00000000. Chez moi, par exemple, mon 1er compte est 00000004
Du coup, on ne peut pas faire une boucle while "tant qu'il existe un compte".
Un paliatif simple mais à chier (ça a au moins le mérite de faire marcher le programme) :
Public Sub mettre_a_jour_adresses_e_mails(adresse_relle As String)
Dim i As Byte
i = 1
Dim nombre As String
Dim iCtrEchec As Integer
nombre = Format(i, "#00000000")
Do While iCtrEchec < 100 ' Tant qu'on a pas eu 100 echecs successifs
If compte_existe(adresse_relle & nombre) = True Then
iCtrEchec = 0
'on lit tous les comptes et une erreur se produit quand c'est fini
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
'est remplie de merde ( à cause de variant )
If compte_pop(adresse_relle & nombre) Then
Form1.nom_du_compte.AddItem WshShell.regread(adresse_relle & nombre & "Account Name")
Form1.serveur_pop3.AddItem WshShell.regread(adresse_relle & nombre & "POP3 Server")
Form1.nom_utilisateur_pop3.AddItem WshShell.regread(adresse_relle & nombre & "POP3 User Name")
Form1.nom_affiche.AddItem WshShell.regread(adresse_relle & nombre & "SMTP Display Name")
Form1.adresse_e_mail.AddItem WshShell.regread(adresse_relle & nombre & "SMTP Email Address")
Form1.serveur_smtp.AddItem WshShell.regread(adresse_relle & nombre & "SMTP Server")
End If
Else
iCtrEchec = iCtrEchec + 1
End If
'Passe au compte suivant
i = i + 1
nombre = Format(i, "#00000000")
Loop
selectionner_e_mail_par_defaut (adresse_relle)
End Sub

boudas Messages postés 13 Date d'inscription jeudi 16 janvier 2003 Statut Membre Dernière intervention 8 octobre 2008
28 avril 2003 à 13:50

ça marche avec win xp outlook express6.0
( un ou plusieurs utilisateurs )

cs_monstermax Messages postés 36 Date d'inscription jeudi 28 mars 2002 Statut Membre Dernière intervention 5 décembre 2002
26 avril 2003 à 03:02

buffer2 = Split(buffer, "}")(0) & "}"

sois :

separateur = "}"
tableau_buffer2 = Split(buffer, separateur)
buffer2 = tableau_buffer2(0) & separateur

cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
24 avril 2003 à 23:44

Ca marche sous Outlook Express 6 et W98².
Question : En regardant le code, je suis tombé la dessus, et je n'ai pas d'explication : Dans la Sub lister_nom_compte :

buffer2 = Split(buffer, "}")(0) & "}"

C'est quoi cette syntaxe ? je connais pô !
Jack

cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018
24 avril 2003 à 07:00

Chez moi, ça ne marche pas avec Outlook express 6.0 et Windows 2000 adv server

IdhaoBlue Messages postés 23 Date d'inscription mercredi 17 juillet 2002 Statut Membre Dernière intervention 29 juillet 2005
23 avril 2003 à 17:51

Ca fonctionne bien avec OUTLOOK 2002 Pas de Problemes !

Discussions similaires

signature outlook

macro pour écriture automatique

gestion de Parking PHP

ne pas tenir compte des miniscules et majiscules

Défilement automatique d'une page

Votre réponse

Discussions similaires