E-mail automatique à partir de different fichiers
Fermé
maximilieng
Messages postés
21
Date d'inscription
lundi 11 juillet 2016
Statut
Membre
Dernière intervention
20 juillet 2016
-
11 juil. 2016 à 15:01
Stif - 1 août 2016 à 10:18
Stif - 1 août 2016 à 10:18
A voir également:
- E-mail automatique à partir de different fichiers
- Ce fichier contient l'historique des livres empruntés à la bibliothèque. combien de titres différents contient-il ? ✓ - Forum Excel
- Wetransfer gratuit fichiers lourd - Guide
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- Creer adresse mail - Guide
- Réponse automatique outlook - Guide
2 réponses
maximilieng
Messages postés
21
Date d'inscription
lundi 11 juillet 2016
Statut
Membre
Dernière intervention
20 juillet 2016
Modifié par maximilieng le 12/07/2016 à 15:01
Modifié par maximilieng le 12/07/2016 à 15:01
J'ai trouvé une grande partie de la réponse à ma question !
J'ai fait un Pivot Table avec les données que j'avais pour après spliter mon classeur en une Feuille par client.
Le seul problème qui se pose à moi maintenant c'est que je n'arrive pas à insérer un sujet et un corps à mon e-mail, ce qui fait très peu professionel...
Il y a bien "Subject_Line" mais rien ne change peu importe le nom que je mets...
Voici ma macro pour celui ou celle qui aura le courage de m'aider :)
Sub Mail_every_Worksheet()
Dim sh As Worksheet
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
If sh.Range("b1").Value Like "*@*" Then
sh.Copy
ActiveWorkbook.SaveAs "Sheet " & sh.Name & " of " _
& ThisWorkbook.Name & ".xls"
ActiveWorkbook.SendMail ActiveSheet.Range("b1").Value, _
"Subject_line"
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
End If
Next sh
Application.ScreenUpdating = True
End Sub
J'ai fait un Pivot Table avec les données que j'avais pour après spliter mon classeur en une Feuille par client.
Le seul problème qui se pose à moi maintenant c'est que je n'arrive pas à insérer un sujet et un corps à mon e-mail, ce qui fait très peu professionel...
Il y a bien "Subject_Line" mais rien ne change peu importe le nom que je mets...
Voici ma macro pour celui ou celle qui aura le courage de m'aider :)
Sub Mail_every_Worksheet()
Dim sh As Worksheet
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
If sh.Range("b1").Value Like "*@*" Then
sh.Copy
ActiveWorkbook.SaveAs "Sheet " & sh.Name & " of " _
& ThisWorkbook.Name & ".xls"
ActiveWorkbook.SendMail ActiveSheet.Range("b1").Value, _
"Subject_line"
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
End If
Next sh
Application.ScreenUpdating = True
End Sub
Bonjour,
Essayez ça et dites moi si ça vous convient :
Sub mail()
Dim OutApp As Object
Dim OutMail As Object
Dim mailclient As String
Dim I As Variant
For I = 1 To Range("B" & Rows.Count).End(xlUp).Row
If Cells(I, 2) <> "" Then
mailclient = Cells(I, 2).Value
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = mailclient
.Subject = "Sujet du mail"
.Body = Cells(I, 1).Value & " " & Cells(I, 3).Value & " " & Cells(I, 4).Value & " "
.Send
End With
Set OutApp = Nothing
End If
Next I
End Sub
EDIT : pour attacher un fichier il faut rajouter la ligne:
.Attachments.Add "C:\Users\..." avant la ligne .Send
Essayez ça et dites moi si ça vous convient :
Sub mail()
Dim OutApp As Object
Dim OutMail As Object
Dim mailclient As String
Dim I As Variant
For I = 1 To Range("B" & Rows.Count).End(xlUp).Row
If Cells(I, 2) <> "" Then
mailclient = Cells(I, 2).Value
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = mailclient
.Subject = "Sujet du mail"
.Body = Cells(I, 1).Value & " " & Cells(I, 3).Value & " " & Cells(I, 4).Value & " "
.Send
End With
Set OutApp = Nothing
End If
Next I
End Sub
EDIT : pour attacher un fichier il faut rajouter la ligne:
.Attachments.Add "C:\Users\..." avant la ligne .Send
maximilieng
Messages postés
21
Date d'inscription
lundi 11 juillet 2016
Statut
Membre
Dernière intervention
20 juillet 2016
13 juil. 2016 à 10:28
13 juil. 2016 à 10:28
Merci pour ton travail et ta réponse Stif !
Je vois dans ton code que les données Excel sont dans le corps du texte. Je souhaitais que le mail parte avec un sujet et un corps de texte personnalisé ET le fichier excel :)
Avec le code que j'ai trouvé, je peux envoyer uniquement la feuille par mail au client avec ses informations (et ça marche nikel !), du coup je souhaitais savoir si on ne pouvait pas "agrémenter" le code de depart.
Merci encore
Je vois dans ton code que les données Excel sont dans le corps du texte. Je souhaitais que le mail parte avec un sujet et un corps de texte personnalisé ET le fichier excel :)
Avec le code que j'ai trouvé, je peux envoyer uniquement la feuille par mail au client avec ses informations (et ça marche nikel !), du coup je souhaitais savoir si on ne pouvait pas "agrémenter" le code de depart.
Merci encore
maximilieng
Messages postés
21
Date d'inscription
lundi 11 juillet 2016
Statut
Membre
Dernière intervention
20 juillet 2016
13 juil. 2016 à 12:37
13 juil. 2016 à 12:37
Autant pour moi !
Ma macro envoyait le mail, mais les clients pouvaient changer le filtre pour voir les autres données étant donné que c'était une Pivot Table...
Je repars donc de 0.
Je vais essayer de trouver 2 macros différentes, une pour copier les informations clients dans un template, et la seconde pour envoyer tous ces fichiers aux clients.
Si quelqu'un à plus de renseignements pour moi, je suis preneur !!
Merci!
Ma macro envoyait le mail, mais les clients pouvaient changer le filtre pour voir les autres données étant donné que c'était une Pivot Table...
Je repars donc de 0.
Je vais essayer de trouver 2 macros différentes, une pour copier les informations clients dans un template, et la seconde pour envoyer tous ces fichiers aux clients.
Si quelqu'un à plus de renseignements pour moi, je suis preneur !!
Merci!
Stif
>
maximilieng
Messages postés
21
Date d'inscription
lundi 11 juillet 2016
Statut
Membre
Dernière intervention
20 juillet 2016
13 juil. 2016 à 13:12
13 juil. 2016 à 13:12
Bonjour,
Si tu pouvais envoyer un exemple de ton fichier à envoyer par mail à chaque client avec les données les concernants sur www.cjoint.com ce serait plus simple pour te préparer quelques lignes.
Si les données sont confidentielles fais juste quelques exemples l'important est la trame de base
Si tu pouvais envoyer un exemple de ton fichier à envoyer par mail à chaque client avec les données les concernants sur www.cjoint.com ce serait plus simple pour te préparer quelques lignes.
Si les données sont confidentielles fais juste quelques exemples l'important est la trame de base
maximilieng
Messages postés
21
Date d'inscription
lundi 11 juillet 2016
Statut
Membre
Dernière intervention
20 juillet 2016
13 juil. 2016 à 13:51
13 juil. 2016 à 13:51
Merci de ton temps Stif ! :)
Voici les 2 fichiers. Il ya le template que j'aimerais envoyer aux clients, et la base de donnée avec les colonnes que j'utilise.
http://www.cjoint.com/c/FGnlTLTKq8z
http://www.cjoint.com/c/FGnlUdgqe2z
Pour récap, (et surtout être sur de m'être fait bien comprendre) je souhaite que chaque clients recoivent les données qui leur sont associées par email, dans un template excel qui leur est propre.
Merci beaucoup,
Voici les 2 fichiers. Il ya le template que j'aimerais envoyer aux clients, et la base de donnée avec les colonnes que j'utilise.
http://www.cjoint.com/c/FGnlTLTKq8z
http://www.cjoint.com/c/FGnlUdgqe2z
Pour récap, (et surtout être sur de m'être fait bien comprendre) je souhaite que chaque clients recoivent les données qui leur sont associées par email, dans un template excel qui leur est propre.
Merci beaucoup,
Stif
>
maximilieng
Messages postés
21
Date d'inscription
lundi 11 juillet 2016
Statut
Membre
Dernière intervention
20 juillet 2016
13 juil. 2016 à 16:20
13 juil. 2016 à 16:20
Je viens de voir tes fichiers.
Je ne suis pas certain d'avoir bien compris. Tu voudrais que les données de chaque destinataire du fichier Exemple2send soient récupérées et mises dans le fichier template2send et ensuite envoyer un mail avec un texte + en pièce jointe le fichier template2send complété?
Si oui dans quelle colonne de template2send veux tu que les données soient copiées?
Si c'est bien ça que tu veux c'est facilement faisable
Je ne suis pas certain d'avoir bien compris. Tu voudrais que les données de chaque destinataire du fichier Exemple2send soient récupérées et mises dans le fichier template2send et ensuite envoyer un mail avec un texte + en pièce jointe le fichier template2send complété?
Si oui dans quelle colonne de template2send veux tu que les données soient copiées?
Si c'est bien ça que tu veux c'est facilement faisable