SPEED MAIL 2 ENVOYEZ DES MAILS A TOUTES UNE LISTE DE CONTACT EN MEME TEMPS
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
2 janv. 2005 à 01:53
draluorg Messages postés 625 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 25 novembre 2010 - 25 janv. 2005 à 09:36
draluorg Messages postés 625 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 25 novembre 2010 - 25 janv. 2005 à 09:36
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/28561-speed-mail-2-envoyez-des-mails-a-toutes-une-liste-de-contact-en-meme-temps
https://codes-sources.commentcamarche.net/source/28561-speed-mail-2-envoyez-des-mails-a-toutes-une-liste-de-contact-en-meme-temps
25 janv. 2005 à 09:36
bein non en fait il ne manque aucune reference le prob vient de chez toi cette ligne aert a chercher une piece jointe c 'est une open dialog Cf a cette source: http://www.vbfrance.com/code.aspx?id=28508
c'est un simple create objest donc je vois po comment ca se fait tu es le 2 eme qui me dis ca vas le lien que je vien de te filer tu devrtait vite voir ou est le probleme...
@+ bonne prog
25 janv. 2005 à 06:56
Manque les références dans ton projet, du coup, la ligne uisvante ne marche pas :
CreateObject("SAFRCFileDlg.FileOpen")
telecharger zip soit disant remplacer le 25/01/2005
??????????????????????????????????????????????
merci !!!
6 janv. 2005 à 03:57
5 janv. 2005 à 15:06
5 janv. 2005 à 12:53
9/10 ( -1 point car l'image de fond n'est pas bien centrée :-(
4 janv. 2005 à 22:25
4 janv. 2005 à 17:33
Erreur -2147220960
La valeur de configuration "SendUsing" est non valide.
Adilou*.*
3 janv. 2005 à 15:30
Ehh bein non ce n'est pas oblige et ca marche tres bien comme ca j'ai teste sur une dizaine de machines et je n'ai recu aucune erreur, le probleme doit venir de ta configuration...
ou tu as fais une erreur ds la composition de l'adresse email.
si j'ai poste ce code c'est justement pour la facilite de l'envoi du mail sans passer par la config des parametres smtp...
3 janv. 2005 à 10:13
Comment indiquer au programme quel serveur SMTP utiliser car il me semble que c'est obligatoire.
2 janv. 2005 à 04:49
"Pour les references manquante c'est possible"
Bah oui, mais sans ces références, ta source ne sert à rien puisqu'elle ne peut pas tourner sur un autre poste que le tien !
2 janv. 2005 à 02:35
J'ai juste teste l'executable et il marche tres bien par contre je sais pas de quel fichier vous parlez pour le system32
j'attends la mise a jour pour creer et sauvegarder une liste de contact ce serait bien pratique
Bonne Prog a tous @++
2 janv. 2005 à 02:26
Pour les references manquante c'est possible j'ai enregistre le projet dans un autre dossier en vitesse avant de l'archiver j'ai remplace le zip si tu savais me dire si ca marche now ce serait cool
pour le "filtre" wai c vrai g fs le pourris sur ce coup la !
ms bon j'ai deja change la methode...
sinon pour le repertoire du fichier txt bein c'est une question de choix chacun peu choisir ou il veut le mettre mais bon moi perso je le laisse comme ca car j'utilise tjs system32 pour soker les "info systeme" puis avec App.path si le fichier est deplace entre temps exemple du bureau vers programme files bein les donnees seront perdue si l'utilisateur n'a po fs attention au fichier txt et a la base j'ai fs ce ptit prog pour ma copine qui a un peu de mal a envoyer des mails lol
sinon merci beaucoup pour tes conseils et d'avoir lu mon code @+ et Bonnne annee
2 janv. 2005 à 01:53
Manque les références dans ton projet, du coup, la ligne uisvante ne marche pas :
CreateObject("SAFRCFileDlg.FileOpen")
De quel référence est-ce que ça fait partie ?
(Pareil pour le CDO.Message)
Côté programmation, beaucoup de choses lourdes :
Dans ton test de filtre : Tu répètes ceci
If cond = "exe" Then MsgBox ...
autant de fois qu'il y a de type !
--> à transformer :
If cond "exe" Or cond "bat" Or ...
De plus, quand tu récupères le nom d'un fichier, il y a peu de chance qu'il soit en minuscules !
Donc, il faut penser à transformer les textes avant de les comparer, avec LCase par exemple
If LCase(cond) "exe" Or LCase(cond) "bat" Or ...
Comme ça devient vite lourd, il faut changer de technique :
Select Case LCase(cond)
Case "exe", "bat", ...
MsgBox ...
End Select
Pourquoi vouloir stocker les données sur le répertoire system : Tu trouves qu'il y a pas assez de bordel dessus ? Utilise plutôt App.Path qui te renverra le répertoire où est ton programme.
Beaucoup de choses à revoir ... bon courage