Ajout d'un point virgule après une adresse email pour mailing
isa74
-
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
je dispose d'une 'mailing list' composé d'adresses emails placées chacun dans une ligne
différente. Seulement, je ne peux pas l'exploiter tel quelle car il manque le séparateur qui permet d'envoyer son message à chacun des destinataires.
Je souhaiterai donc ajouter un point virgule après chaque adresse email.
Je crois savoir qu'il existe un script qu permet d'ajouter le ";" au bout de chaque ligne,
il faut mettre le signe";" en colonne 2 puis appliquer une macro.
Si vous pouviez me communiquer une macro compatible pour Office 2007, 2010 ou 2013, voir 2015 ce serait bien aimable.
Merci bien !
je dispose d'une 'mailing list' composé d'adresses emails placées chacun dans une ligne
différente. Seulement, je ne peux pas l'exploiter tel quelle car il manque le séparateur qui permet d'envoyer son message à chacun des destinataires.
Je souhaiterai donc ajouter un point virgule après chaque adresse email.
Je crois savoir qu'il existe un script qu permet d'ajouter le ";" au bout de chaque ligne,
il faut mettre le signe";" en colonne 2 puis appliquer une macro.
Si vous pouviez me communiquer une macro compatible pour Office 2007, 2010 ou 2013, voir 2015 ce serait bien aimable.
Merci bien !
A voir également:
- Point virgule après adresse mail
- Adresse mac - Guide
- Créer une adresse mail hotmail - Guide
- Darkino nouvelle adresse - Guide
- Creer adresse mail yahoo - Guide
- Adresse mail live.fr - Forum Mail
2 réponses
Bonjour, rien de bien compliqué pour programmer la macro. Tu mets en route l'enregistreur en effectuant tout ce que tu fais pour la récupération des adresses mail de chaque destinataire et, à la fin, tu auras ton code.
Bonsoir,
si ta base de données est sur Excel et tes adresses mails colonne A et B de A2 à B20
tu peux commencer par ce code dans lequel j'ai inséré un détecter de point virgule pour éviter qu'il ne soit doublé
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 20
If Cells(i, 1) <> "" And Right(Cells(i, 1), 1) <> ";" Then Cells(i, 1) = Cells(i, 1) & ";"
If Cells(i, 2) <> "" And Right(Cells(i, 2), 1) <> ";" Then Cells(i, 2) = Cells(i, 2) & ";"
Next
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
si ta base de données est sur Excel et tes adresses mails colonne A et B de A2 à B20
tu peux commencer par ce code dans lequel j'ai inséré un détecter de point virgule pour éviter qu'il ne soit doublé
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 20
If Cells(i, 1) <> "" And Right(Cells(i, 1), 1) <> ";" Then Cells(i, 1) = Cells(i, 1) & ";"
If Cells(i, 2) <> "" And Right(Cells(i, 2), 1) <> ";" Then Cells(i, 2) = Cells(i, 2) & ";"
Next
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
