MESSAGERIE ELECTRONIQUE VB.NET 2005
cs_eldim
Messages postés
956
Date d'inscription
lundi 30 mai 2005
Statut
Membre
Dernière intervention
21 août 2014
-
31 mai 2006 à 08:08
isaytoo Messages postés 3 Date d'inscription jeudi 13 janvier 2011 Statut Membre Dernière intervention 30 avril 2011 - 11 mars 2011 à 13:48
isaytoo Messages postés 3 Date d'inscription jeudi 13 janvier 2011 Statut Membre Dernière intervention 30 avril 2011 - 11 mars 2011 à 13:48
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/37866-messagerie-electronique-vb-net-2005
https://codes-sources.commentcamarche.net/source/37866-messagerie-electronique-vb-net-2005
11 mars 2011 à 13:48
Cordialement,
Isaytoo
4 nov. 2008 à 22:58
le project est mort?
pck je suis popire en style de fenetre, style theme..
je suis bon en code aussi,
si ta besoin d'aide mail moi : personailement, jai deja trouver un boutton "anullé" qui ne functione pas a la creation d'un compte ...
me.dialogresult = dialogresult.cancel
me.close()
... lol
7 oct. 2007 à 16:38
L'application a énormément de bug, j'en ai corriger une petite 10zaine mais il en reste pas mal encore.
Sinon l'applcation est supper !!! J'ai mis un petit 6 a causses de beaucoup de bug mais je suis sur qu'il seront vite corriger (enfin je l'espère car je suis présser de savoir quand cette application sera terminer!)
bye !!!
28 août 2006 à 10:53
une application pour une entreprise, cela fait un mois que j'y suis et je n'est pas encore eu le temps de terminer ma mise à jour.
Donc dés que j'ai fini je mis remet.
21 août 2006 à 14:23
21 août 2006 à 14:15
10 août 2006 à 18:03
donc le bug vient du fait d'un plantage car le dossier Mails n'existe pas!
j'ai donc rajouter une petite condition.
Lors de l'enregistrement du fichier dans ES.vb au niveau ee #Region "Enregistrer Fichier"
juste après le Try
If Not File.Exists(strChemin) Then
NouveauDossier() 'si il n'existe pas on le creer
End If
@+
10 août 2006 à 15:58
j'ai voulu tester ton appli mais j'ai un plantage pour la reception de message meme sans piece jointe !
Je renseigne mon compte, l'appli se connecte à yahoo commence à recup le mess (sans piece jointe) et me fait cette erreur :
Impossible de trouver une partie du chemin d'accès 'C:\Documents and Settings\<ma seesion>\Local Settings\Apps\2.0\Data\6GM3DJD4.ZOA\XOBP3806.H0E\merc..tion_057168db2a38174e_0001.0000_63f6265944cebe1f\Data\Mails\Headed\ALmxktkAAHM0RNrsXwR0TDzwHw4.heat'.
Peut-être que cela te parle ?
> En faite l'erreur apparait lors de l'enregistrement du fichier à la ligne "Finally" de ES.vb juste avant le F = Nothing.
Je vais le debugger mais si tu as la réponse fait moi gagner du temps.
Je te donnerai la correction du bug.
Si tu veus, je peus tenter de te filer un coup de main pour finir ton appli.
c u
14 juin 2006 à 21:59
En faite ce message est juste pour FELICITER le5ejumeau ton interface est magnifique !!!
See you later et bon courage.
1 juin 2006 à 17:43
Public Function ImageToBase64(ByVal strChaine As String, Optional ByVal booTransparence As Boolean = False) As Image
Return ImageFromByte(Convert.FromBase64String(strChaine), booTransparence)
End Function
Private Function ImageFromByte(ByVal bytImg As Byte(), ByVal booTransparence As Boolean) As Image
Try
'creer un flux de sauvegarde en memoire de l'image
'pour convertir mon tableau de byte en image
Dim ms As New MemoryStream(bytImg)
'stoque l'image dans une bitmap
Dim img As Bitmap = CType(Bitmap.FromStream(ms), Bitmap)
'si on n'a demander la couleur de font en transparence
If booTransparence Then
img.MakeTransparent()
End If
'on ferme
ms.Close()
'on renvoie l'image
Return img
Catch ex As Exception
'si erreur on ne renvoi rien
Return Nothing
End Try
1 juin 2006 à 17:40
Merci à Eldim pour ces remarques, je n'étais pas là aujourd'hui mais j'ai rectifier tous les problemes au niveau de l'envoi du mail.
dés que j'ai fini de corriger les bugs sur la reception je mets à jour la source et je m'occupe des piéces jointes. (J'ai dejà reussi à recupérer des images :-)
1 juin 2006 à 17:31
C'est un parser de fichier Mime, je pense qu'il faudrait, mais en VB.NET 2005.
1 juin 2006 à 16:56
1 juin 2006 à 16:31
Cependant, je profite de cette source pour poser une question.
J'ai dévélopper un petit applicatif qui se connect en pop3 et enregistre les fichiers EML dans un répertoire.
Je voudrais extraire les pièces jointe des fichiers EML....
Mon soft doit récupérer les mail d'une BAL et enregistrer les fichiers joints dans un répertoire pour être ensuite traités par un autre applicatif.
Désolé de passer par cette discution, mais j'ai rien trouvé à ce sujet en VB.NET 2005
Merci d'avance
Mctyler
1 juin 2006 à 07:49
+ Erreur dans "AfficheInfoMailSelectionne" de "frmPrincipal" : problème d'index sur "If strSelection.Substring(0, 1) = "-" Then"
A mon avis il ne gère pas les accusés de réception...
31 mai 2006 à 23:52
le5ejumeau
31 mai 2006 à 16:07
ça commence par une msgbox sans rien dedans puis plantage sur
"If MyBase.DernieresReponses.Length > 2 AndAlso MyBase.DernieresReponses.IndexOf("250") <> -1 Then"
Erreur : "La référence d'objet n'est pas définie à une instance d'objet"
puis les erreurs du même type s'enchainent si je les sautes les unes après les autres avec le debugueur et le message ne s'envoi pas
31 mai 2006 à 14:50
Mais sinon mise à part des controls que je n'ai pas encore fait comme la verification de l'adresse du receprteur lors de l'envoi de mail .... Le logiciel est operationnel enfin pour une version beta
31 mai 2006 à 14:18
Normalement tu doit pouvoir enregistrer tes comptes... sans probleme et tu doit pouvoir recevoir et envoyer des messages simples en tous cas chez moi sa marche.
Pour les msgbox vides certains sont des testes, le programme n'est encore qu'une ébauche.
Mais dis moi ou tu as des bugs ??
31 mai 2006 à 13:52
bug toujours...
lol
sans parler des msgbox vides...
31 mai 2006 à 11:51
La classe en vb.net et bien pratique pour les envois mais je preferent les gerer moi meme ( c'est plus marrant).
Et puis il n'existe aucune classe pour la reception donc cela ne m'aide en rien pour la reception des pieces jointes. (D'ailleur, je pense que ce soir ou demain la reception des pieces jointes sera opérationnel je travail dessus)
31 mai 2006 à 11:32
For Each Items As String In Liste.Items
Try
NewMail.Attachments.Add(New MailAttachment(Items))
Catch
End Try
Next
31 mai 2006 à 11:29
31 mai 2006 à 10:20
- le plantage sur If MyBase.DernieresReponses.IndexOf("250") <> -1 Then
- le bugs lors du premier enegistrement
- les plantages lorsqu'il n'y a pas de comptes
31 mai 2006 à 09:33
Ensuite au niveau des comptes je vais regarder ca c'est pas normale il ne doit pas generere une erreur si le compte n'existe.
Au niveau des verifs il y en a pas beaucoup mais cela va s'arranger laisse moi du temps, je suis tous seul alors il me faut du temps....
j'ai voulu le mettre en ligne justement pour accelerer le debugage... donc merci pour tes critiques je mis met tous de suite. :-)
31 mai 2006 à 08:20
en + sur l'envoi de message y a pas de vérif si destinataire...
Plantage également sur : "If MyBase.DernieresReponses.IndexOf("250") <> -1 Then"
de + j'ai envoyé un mail avec une photo dedans... il n'est jamais arrivé.... dailleur même un mail simple ne part pas lol
finallement belle interface mais pas terrible lol
31 mai 2006 à 08:08
J'ai eu une petite erreur en clickant sur sauvegarder mais pour le reste c vraiment super !