Va sur mon site, envoi moi un message et je vais te faire ta moulinette

tiens pour m'envoyer un mail : http://www.e-rus.net/Contacte.aspx

Salut,

Peut être il faut peaufiner la regex ;)

#!/usr/bin/perl
#
use warnings;use strict;

$,="\n";
print map { /\S+?\@[^@\();:,\\]+\.\w{2,4}/g } `cat email.txt`;

__END__

Je t'ai fais une petite moulinette avec une interface windows... contacte moi si tu la veux :
http://www.e-rus.net/Contacte.aspx

C'est une appli bien simple en C#.net qui récupère les adresse mail d'un fichier txt et vérifie leurs syntaxe, il faut donc soit avoir le framework 2.0 soit l'installation sera plus longue et installera le framework automatiquement.... ceux qui sont interessé n'ont qu'a me contacter sur l'adresse que j'ai mis, je leurs enverrai le zip de l'installation par mail....

Mais je ne vois pas comment je peux intégrer ici un installateur

Salut

http://sebsauvage.net/python/programs.html#email_extractor

C'est vieux comme le monde la nouveauté...
Prévert

Moi je veux bien aussi seulement voila il faut python, tout dumoins l'installer à mon avis ce qu'elle veut c'est un programme tout fait.

un exe ca serait mieux je pense (pas les outils sous la main tout de suite : ) ) Le loup, solitaire et mystérieux.

Mon truc est un exe et si on me le demande, je peux l'étendre sur d'autre fichier que le txt

Lust tu es payé combien pour chaque adresse Mail ?? Si c'est un exe tu peux le donner ici ou meme le lien pour le récupérer pourquoi tout ca pour si peu franchement? Le loup, solitaire et mystérieux.

Salut,

Si c'est un exe tu peux le donner ici ou meme le lien pour le récupérer pourquoi tout ca pour si peu franchement

Pour Lust
envoyer de gros fichiers pieces jointes par mail
et/ou
http://cjoint.com/

lami20j

P.S. Je suis d'accord avec jipicy
Le savoir n'est bon que s'il est partagé.

Mais je fais ce que je veux... ceux qui veulent mon truc, ils passent par le chemin que je donne... fin de cette discution moi

Salut,

ceux qui veulent mon truc, ils passent par le chemin que je donne

Tu as raison ici.


Mais je fais ce que je veux...

En revanche une lecture de la charte de ce forum te fera de bien ou plutôt ne te fera pas du mal.
Si tu ne sais pas où la trouver tu peux demander le lien.

lami20j

Pourquoi faut il tjr des gens pour faire dégénérer les choses??? en quoi ca dérange ce que j'ai demandé??? Mon pauvre, la pub, si tu savais comme je m'en fou.... je travaille dans l'agriculture.... je vois pas qui j'intersserai ici..

Je viens aider, j'ai pris le temps de construire un prog et meme s'il est assez simple, ca m'as demandé du temps pour faire un truc correct... tu voudrais je donne ca comme ca... y a des limites a ma gentillesse... meme si tu ne vois pas ou elle est ma gentillesse

"Je viens aider, j'ai pris le temps de construire un prog et meme s'il est assez simple, ca m'as demandé du temps pour faire un truc correct... tu voudrais je donne ca comme ca... y a des limites a ma gentillesse... meme si tu ne vois pas ou elle est ma gentillesse"

Non c'est sur que je la vois pas, et surtout avec une réponse comme celle-ci je vois même pas ce que tu fous sur ce forum. Ici c'est l'entraide pas le chacun pour soi si tu peux aider tu aides, sauf si tu veux faire payer pour ta "chose", ne t'inquiète pas je le ferais moi si a que ca comme obstacle.

PS : dégénerer.... non juste dire que la tu fais ton "cirque" et qu'en 5 minutes c'était fini, à moins que tu n'ai pas du tout ce dit programme...
Le loup, solitaire et mystérieux.

Re,

Ne t'emporte pas comme ça ;)
C'est toi plutôt qui dégénérer les choses

j'ai pris le temps de construire un prog

Ben, moi je l'ai fait en 10 secondes et il est gratuit moulinette pour extraire d un fichier txt#2

Tu pourras faire pareil, mais c'est vrai tu n'est pas obligé.

lami20j

J'ai pas envi de me prendre la tete avec ca.... ceux qui ont le framework, ca va s'installer vite, sinon, le framework va prendre bcp de temps à installer .... a vous de voir... mais ce framework peux vous servir sur d'autres choses à l'avenir... voila le lien du zip :

http://www.e-rus.net/Extract%20Mail.zip

Désolé, y a encore mon adresse dedans.... mais c'est direct sur le zip.

Je sais, c'est bcp de foin pour pas grand chose, mais je n'ai fais qu'essayer d'aider et quand on me saute dessus comme ca... enfin, le truc de demander l'adresse, c'etais plus pour que les gens qui l'utilise puisse m'indiquez un eventuel bug ou une éventuelle amélioration... peut importe ca marchera... ca marchera pas...

Pour le fun, en VBA. Suffit d'avoir Excel.
La moulinette propose Parcourir..., et c'est tout.
http://cjoint.com/?ilntcsBQKd
... si y'a pas de bug !!!

Vraiment désolé de ne pas pouvoir te dépanner... Je fais fonctionner la macro sans PB à partir d'un petit fichier texte fabriqué à la main.
Ça m'est difficile de débugger à distance sans être dans le même environnement.
Si quelqu'un veut bien essayer à partir d'un petit fichier texte contenant entre autres quelques adresse e-mail, pour voir...

Merci lami20j d'avoir testé de ton côté.

Il y a d'une part la macro dans un module :

Option Explicit

Sub RechMails()

  Application.ScreenUpdating = False

  Dim Lig     As Long
  Dim Col     As Integer
  Dim FicPath As String
  Dim Cellule As Range
  Dim Ligne   As Long
  Dim EstMail As Variant
  
  FicPath = Application.GetOpenFilename("Text Files (*.txt), *.txt")
  If FicPath = "Faux" Then
    ThisWorkbook.Close
  End If
  
  Workbooks.OpenText Filename:=FicPath, _
                     DataType:=xlDelimited, _
                     Space:=True
  
  ActiveSheet.Name = "Source"
  Lig = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
  Col = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
  
  ActiveWorkbook.Sheets.Add
  ActiveSheet.Name = "Résultat"
  
  Sheets("Source").Activate
  Ligne = 0
  On Error Resume Next
  For Each Cellule In Range(Cells(1, 1), Cells(Lig, Col))
    EstMail = Application.WorksheetFunction.Search("@", Cellule)
    If EstMail <> "" Then
      Ligne = Ligne + 1
      Sheets("Résultat").Cells(Ligne, 1).Value = Cellule.Value
    End If
    EstMail = ""
  Next
  On Error GoTo 0
  Sheets("Résultat").Activate
  Application.DisplayAlerts = False
  Sheets("Source").Delete
  Application.DisplayAlerts = True
  Columns("A:A").AutoFit
  Application.ScreenUpdating = True
  
  ThisWorkbook.Close
    
End Sub

Option Explicit

Private Sub Workbook_Open()
  Call RechMails
End Sub

Bonjour,
j'ai un fichier word ou txt ou je dispose d'un fichier comprenant la structure le nom le prénom l'adresse du site l'email... et je cherche à en faire une mailing liste ou seuls les adresse email séparées par des ; figurent.
Si quelqun sait ce serait cool
merci