Import automatique d'un compte outlook express

Soyez le premier à donner votre avis sur cette source.

Vue 6 402 fois - Téléchargée 723 fois

Description

C'est une fonction clé en main qui permet à l'utilisateur d'importer le compte oulook express de son choix.
C'est à dire son e-mail, son serveur pop3, etc sauf le mot de passe(il n'est pas en clair dans la base de registre).
De plus, cela gére les outlook express à plusieurs utilisateurs et de multiples comptes.

Cela permet lorsqu'on fait un logiciel qui envoie ou reçoit des mails de façon automatique de ne pas devoir retaper toutes les informations concernant l'e-mail.

Source / Exemple :


' premier ( et sûrement dernier ) bug corrigé !!
' lors d'un second appel, il y avaît un plantage du
' au nom remise à zéro du tableau
' ce qui change est donc deux lignes en plus
' une dans la fonction importer_compte_pop3 
' ou je remet à zéro le tableau
' et une dans ajouter_adresse
' ou je tiens désormais compte
' que la dimension est toujours définie d'ou simplification
' du code

Conclusion :


N'hésitez surtout pas à donner votre avis !!
Aucun bug connu avec outlook express, les comptes imap et http sont tout simplement ignorés ( les clés du registre ne sont pas tout à faît les mêmes ).
Surtout, dites moi si ça marche avec outlook (tout court) car je ne l'ai pas chez moi !

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
137
Date d'inscription
samedi 11 septembre 2004
Statut
Membre
Dernière intervention
10 septembre 2006

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
Messages postés
27
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
16 novembre 2004

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
Messages postés
96
Date d'inscription
dimanche 16 février 2003
Statut
Membre
Dernière intervention
23 septembre 2007

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
Messages postés
13
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
8 octobre 2008

ça marche avec win xp outlook express6.0
( un ou plusieurs utilisateurs )
Messages postés
36
Date d'inscription
jeudi 28 mars 2002
Statut
Membre
Dernière intervention
5 décembre 2002

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

sois :

separateur = "}"
tableau_buffer2 = Split(buffer, separateur)
buffer2 = tableau_buffer2(0) & separateur
Afficher les 8 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.