Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Envoi mail via excel

  • Initiateur de la discussion Initiateur de la discussion live
  • Date de début Date de début
L

live

XLDnaute Nouveau
bonjour,

j'aurais besoin de votre aide svp car tous les mois, je dois envoyer une campagne d'emailing avec des données variables et plusieurs destinataires en copie.
Pour le moment, j'utilise un lien hypertexte en mailto mais ce mois-ci j'en ai plus d'une centaine à effectuer.
De plus, j'ai 2 adresses mails reliées à mon OUtlook. Quelle est la configuration pour pouvoir choisir d'envoyer les mails via une adresse précise.
Pourriez-vous m'aider à automatiser un peu plus cette campagne svp.
Je ne m'y connais pas trop en vba mais je suis partante pour apprendre.
Merci d'avance pour votre aide.
Cdt,
LIVE
 

Pièces jointes

  • Classeur2.xlsx
    10.3 KB · Affichages: 48
Solution
Bonjour Live, staple1600, le forum

Le deuxième code ne sert à rien.
Il n'est pas lié au bouton "go" (sur cellule U1) qui lance la bonne macro à utiliser.

Il faut changer cette ligne avec l'adresse à utiliser.
If oAccount = "thierry_ducha...@yahoo.com" Then '-- A MODIFIER

Et normalement, la signature est reprise grace à cette ligne.
signature = objMail.Body
Mais je n'en suis pas sur. Si ce n'est pas le cas, il faudra ajouter votre nom manuellement (comme moi j'ai mis THIERRY D.).

Sinon, ça devrait fonctionner. En tout cas chez moi c'est ok, je vous ai mis une copie écran sur le fichier.

Xl-ment

NB : mailto 2 est comme mailto, le deuxième code est supprimé car ce n'était que le code de départ que j'ai utilisé et... modifié.
Trier par date Trier par votes

zebanx

XLDnaute Accro
Bonjour Live, Rachid , le forum

Du bricolage mais ça fonctionne sur une boucle et surement sur le choix du compte à utiliser (N'en n'ayant qu'un seul, je n'ai pu tester..).
Le code a été testé sur ma messagerie, il faut modifier les paramètres avec vos paramètres personnels (dont ALT+F11 pour accéder au VBE et aller dans le module 1, c'est le premier code et changer vos paramètres là où il y a A MODIFIER).

A/ BODY
J'aurais aimé, parce que c'est bien pratique, lancer depuis le lien hypertexte (mailto...) mais n'y suis pas arrivé avec un sendkeys .
Cela aurait plus simple, c'est sûr. Et c'est bien ce que vous avez fait sur les deux dernières colonnes @live!
Cependant, le "body" fonctionne bien et, une fois paramétré, ça fait le taf.

B/ NOMBRE
Comme il est indiqué qu'il y a beaucoup d'envois à effectuer, il faut peut-être agir par lot.
D'où l'utilisation d'une colonne avec des "OUI" pour travailler par groupe de x envois (à définir) et par sécurité, cela est mis en display et non en send dans le code (à modifier suivant envie).
Si l'on souhaite tout envoyer d'un bloc, sans avoir à choisir la taille du lot et pour ne pas saturer outlook (s'il y avait effectivement 100 envois d'un coup, est-ce que tout serait envoyé ?"), il faudra peut-être amender le code avec le rajout d'un "application.wait" qui différera chaque envoi d'une ou plusieurs secondes.
exemple "Application.Wait(Now + TimeValue("0:00:02"))" pour rajouter 2 secondes à chaque passage de boucle

Et il faut sinon sélectionner quelques références en VBE pour les lignes quand c'est outlook, c'est indiqué dans le fichier joint.

Bonne campagne
zebanx
 

Pièces jointes

  • mailto.xlsm
    124.1 KB · Affichages: 15
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Bonjour le fil

[Juste pour infos]
Ne jamais utiliser le champ CC pour un mailing
(car les destinaires verront les emails des autres destinataires
==> et bim RGPD WTF !! <==
Préférez toujours le champ CCI
Ensuite pour se facililter la tâche, créer des listes de diffusions
Ou encore utiliser le petit bout de code ci-dessous
(que je t'utilise toutes les semaines au taf pour envoyer moults mails)
VB: 
Sub ConcatMails()
Dim mails, strDestinataires$
mails = Cells(1).Resize(Cells(Rows.Count, 1).End(3).Row).Value
strDestinataires = Join(Application.Transpose(mails), ";")
[B1] = strDestinataires
'ou si grande liste de mails
'Debug.Print strDestinataires
Mode d'emploi
Ma liste d'emails est en colonne A
(avec des emails valides)
Je lance la macro et je récupère la liste de mails concaténée en B1
Puis je fais un copier/coller dans le champ CCI du mail d'Outlook
Et roule, ma poule, j'envoie mon mail à mes 1600 destinataires (sans aucun d'eux ne connaissent l'existence des autres, ni leur mails)
 
Vote positif 0 Vote négatif
L

live

XLDnaute Nouveau
bonjour Zebanx,

merci beaucoup pour ce retour mais quand je teste le fichier que vous m'avez envoyé avec le 2éme code, j'ai le résultat que me donne le lien, j'ai loupé un truc ?
@Staple1600 : pas de soucis pour les cc car ce sont les responsables des destinaires et les destinataires en cc.
J'ai max 150 mails par envoi donc je ne pense pas qu'outlook va saturer ...
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Bonjour le fil

=>live
Dans ce cas, mon petit mode opératoire devrait suffire, non?
150 mails dans la colonne A
On concatène avec ma macro (cf message#6)
Puis CTRL+C
Puis CTR+V dans le champ CCI
(Par expérience, privilégiez toujours CCI à CC, cela évite bien des déboires "professionnels")
 
Vote positif 0 Vote négatif

zebanx

XLDnaute Accro
Bonjour Live, staple1600, le forum

Le deuxième code ne sert à rien.
Il n'est pas lié au bouton "go" (sur cellule U1) qui lance la bonne macro à utiliser.

Il faut changer cette ligne avec l'adresse à utiliser.
If oAccount = "thierry_ducha...@yahoo.com" Then '-- A MODIFIER

Et normalement, la signature est reprise grace à cette ligne.
signature = objMail.Body
Mais je n'en suis pas sur. Si ce n'est pas le cas, il faudra ajouter votre nom manuellement (comme moi j'ai mis THIERRY D.).

Sinon, ça devrait fonctionner. En tout cas chez moi c'est ok, je vous ai mis une copie écran sur le fichier.

Xl-ment

NB : mailto 2 est comme mailto, le deuxième code est supprimé car ce n'était que le code de départ que j'ai utilisé et... modifié.
 

Pièces jointes

  • mailto 2.xlsm
    122.3 KB · Affichages: 26
Vote positif 0 Vote négatif
Solution

Staple1600

XLDnaute Barbatruc
Bonjour zebank

Rassurez-moi ...les adresses mail des PJ sont fictives, hein?
C'est pas des vrais gens de la vraie vie, qui vivent en Europe et donc assujeties au RGPD.

=>zebanx
Tu as vu le message#8?
(rédigé spécialement à ton attention )
 
Vote positif 0 Vote négatif
L

live

XLDnaute Nouveau
Bonjour à toutes et à tous,

oui les adresses mails sont toutes fictives Staple
Par contre zebanx, le code ne fonctionne toujours pas chez moi, j'ai bien modifié l'adresse destinataire pourtant. Quand je clic sur go, j'ai rien qui se passe ...

Comprend pas ce qui ne fonctionne pas ...
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

N
  • Question Question
Microsoft 365 Envoi via Excel avec OutlookNew
Réponses
4
Affichages
427
Titou37P
  • Question Question
Microsoft 365 Générer mail via Excel
Réponses
2
Affichages
680
halecs93
L
  • Question Question
Microsoft 365 Insérer une plage Excel en image sous VBA pour envoi mail auto
Réponses
1
Affichages
351
fanch55
D
  • Question Question
XL 2013 envoi mail va excel : faire une boucle avec 10 destinataires à chaque envoi
Réponses
5
Affichages
1 K
david54520
D
E
  • Question Question
XL 2013 Envoi mail par macro via exchange
Réponses
1
Affichages
965
Hasco
A
  • Question Question
Microsoft 365 Envoi mail automatique sans ouvrir Excel à une date d'échéance
Réponses
6
Affichages
3 K
Wayki
S
  • Question Question
Microsoft 365 Envoi de mail auto VBA d'une cellule à une autre + selection de plusieurs PJ.
Réponses
3
Affichages
1 K
kiki29
R
  • Question Question
XL 2016 Envoi mails outlook avec pdf et mails via macro
2
Réponses
21
Affichages
3 K
fanch55
S
  • Résolu(e)
Microsoft 365 Fusion de 2 macro VBA (selection envoi de mail + envoie de fichier PDF)
Réponses
6
Affichages
2 K
soNZOOO
S
C
  • Résolu(e)
XL 2019 Créer un mail avec liste de contact dans colonne excel avec Objet et corps de texte
2 3
Réponses
33
Affichages
5 K
cytise95
C
T
  • Résolu(e)
XL 2016 Envoi d'un mail sous conditions avec Outlook
Réponses
3
Affichages
2 K
TechnologyNewStore
T
L
  • Question Question
XL 2016 Sélection onglet Excel envoi par mail en PDF
Réponses
4
Affichages
2 K
LuanaDDC
L
R
  • Question Question
envoi mail avec pièce jointe
Réponses
1
Affichages
2 K
fanch55
  • Question Question
Microsoft 365 envoi automatisé de mails - Roland_M
2 3 4
Réponses
46
Affichages
5 K
Usine à gaz
P
  • Résolu(e)
Microsoft 365 Envoi Mail Multi Destinataires
Réponses
4
Affichages
2 K
Pat13127
P
E
  • Résolu(e)
Microsoft 365 Envoi mail avec image et PJ "en boucle"
Réponses
4
Affichages
919
laurent3372
  • Question Question
XL 2016 Boucle ne fonctionne pas lors d'un envoi des plusieurs mail
Réponses
8
Affichages
2 K
JEREMY14210
J
L
  • Résolu(e)
XL 2016 Macro VBA - Envoi mail automatique selon plusieurs échéances
Réponses
5
Affichages
5 K
LuanaDDC
L
  • Résolu(e)
Microsoft 365 Résolu (au moins pour l'instant) - VBA envoi mail CDO Gmail ne fonctionne plus
Réponses
10
Affichages
5 K
ERIC S
M
  • Résolu(e)
XL 2016 Envoi onglet Excel + onglet pdf par mail Répondre
Réponses
4
Affichages
1 K
Maxou69
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…