1 ligne = 1 mail personnalisé

Bonjour,

Avant de poster ce sujet, j'ai regardé sur le forum mais je n'ai pas trouvé exactement ma réponse.

Je dois envoyer des emailings personnalisés, c'est à dire avec :

• "Monsieur ou Madame"
• "Nom"
• Corps de texte
• fichier PDF en pièce jointe

J'ai un fichier Excel avec plusieurs colonnes :

• Monsieur ou Madame
• Nom
• Mail

Savez-vous comment faire pour que le transfert dans outlook prenne en compte :

• L'adresse mail, de la ligne, soit en destinataire
• Madame ou Monsieur apparaisse dans le mail en fonction de la cellule Excel
• Le nom apparaisse après Madame ou Monsieur
• L'objet du mail soit déjà écris
• La pièce jointe déjà implanté dans le mail.

J'ai entendu parler de publipostage mais c'est trés long et ça ne va pas récupérer les données dans chaque cellule.

Merci pour vos réponses,

Olivier

Bonjour et Bienvenue,

Voici un bout de code, n'ayant pas le fichier j'ai pris des colonnes au pif :

L'idée serait dans la feuille où tous les contact seraient stockés, lors d'un double clique dans la colonne E (il ne faut pas qu'elle soit vide donc y insérer un texte du genre "envoi par mail" dans chauqe celleule de la colonne E)

Un message outlook s'ouvre avec l'adresse mail du destinataire de la colonne A, le sujet du mail en colonne B, le corps du message en colonne C, en copie une adresse mail en colonne D. C'est un début, à adapter en fonction du besoin.

Pour les questions de publipostage, je n'y connais rien désolé.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String, CC As String

If Target = "" Then Exit Sub
If Not Intersect(Range("E:E"), Target) Is Nothing Then

MailAd = Range("A" & Target.Row)
Subj = Range("B" & Target.Row)
Msg = Msg & Range("C" & Target.Row)
CC = Range("D" & Target.Row)
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&cc=" & CC & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto

End Sub

oups, code pas testé avant, il manque un "End If" à la fin.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String, CC As String

If Target = "" Then Exit Sub
If Not Intersect(Range("e:e"), Target) Is Nothing Then

MailAd = Range("a" & Target.Row)
Subj = Range("b" & Target.Row)
Msg = Msg & Range("c" & Target.Row)
CC = Range("d" & Target.Row)
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&cc=" & CC & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto

End if

End Sub

Je regarde pour insérer en pièce jointe un doc mais là c'est autre chose, sur ton fichier Excel, comment sont insérer les docs à joindre???? Faut-il allez les chercher dans un endroit spécifique????

Merci pour les réponses, je vais essayer.

J'imagine que les envois sur Outlook se feront pas de manière automatique ?

Oui le PDF est dans un répertoire bien spécifique et toujours le même.

Ici dans l'exemple, il faudra "double cliquez" sur la colonne E pour envoyer le mail à la personne à l'intersection de la colonne A et la cellule double cliquez en E.

Pour envoi en auto je crois que c'est possible mais tu ne verra pas ce qui sera envoyé, gênant non?

Je regarde pour le fichier en PJ

bonjour,

j'ai trouvé un bout de code qui permet d'aller chercher un fichier et de l'insérer dans le mail :

Public Sub testEnvoiMail()

  Dim MonOutlook As Object
  Dim MonMessage As Object
  Dim email As String
  Dim fichierjoint As String

  ' On crée une instance d'Outlook :
  Set MonOutlook = CreateObject("Outlook.Application")
  ' Et on crée un élément Outlook, qui sera un message E-Mail :
  Set MonMessage = MonOutlook.CreateItem(0)

  MonMessage.To = email
  MonMessage.Subject = "Bonjour" & fichierjoint
  MonMessage.Body = "Bonjour. Veuillez trouver ci-joint....."
  MonMessage.Attachments.Add "d:\fichier XXX" & fichierjoint & ".pdf"
  MonMessage.ReadReceiptRequested = True

  Dim envoi As String
  MonMessage.display

  Set MonOutlook = Nothing ' On ferme !

End Sub

Inconvénient il est affecté à un bouton macro, je n'arrive pas à l'adapter dans le code envoyer précédement.

A creuser

J'ai essayé et ça ne fonctionne pas. En tout cas, j'y arrive pas. Je mets mon fichier en pj.

D'autant que le but est de personnaliser chaque mail donc avec un début de corps de texte par "Madame ou Monsieur" et le "Nom" qui serait récupéré dans les cellules.

Merci pour votre aide

Bonjour,

et bien voilà avec un fichier joint, on y arrive mieux !

L'idée développée, à chaque ajout d'une ligne (en insérant du texte dans la colonne A par "MAdame" ou "Monsieur"), le mot MAIL apparaitra dans la colonne H correspondante.

Une fois toutes les infos renseignées dans la ligne ajoutées, par un double clic sur MAIL : la magie opère.

Reste un truc que je n'arrive pas à régler, c'est la disposition du texte dans le mail, ce n'est pas très "glamour".

@ tester

Bonjour,

Merci pour le travail effectué.

Oui, il reste effectivement :

• le coté design du corps de texte
• le fait que j'ai une signature automatique sur Outlook qui ne s'ouvre plus (avec ce fichier)
• et l'insertion automatique du PDF.

A part ça, je suis impressionné !!! ... Comme toujours ici.

Quelqu'un sur le forum serait-il répondre à mon besoin ? ...

La mise en forme dans Outlook et le fichier à inclure automatiquement.

Merci

Bonsoir à tous,

est-ce que ma demande a une solution ou c'est impossible ?

merci pour vos réponses

Bonsoir à tous,

est-ce que ma demande a une solution ou c'est impossible ?

merci pour vos réponses

Bonjour,

Voir ce tuto pour envoi avec pièce jointe

Pour la mise en forme du code il faut employer le bbcode

Je n'ai pas toutes les balises en tête de toutes façons, impossible de les écrire sur ce poste.

Pour avoir une idée clic sur Ajouter une réponse

met du texte, tu le sélectionne et tu clic sur B pour avoir gras tu va voir ton texte entouré des balises ouvrante et fermante, attention c'est pas les mêmes, essaye les autres option italique etc.

Prend note des balises et annule ta réponse.

Merci mais là, j'ai quasi rien compris à ce que tu m'as écris.

Mais comme tu as mis un tutoriel pour l'ouverture et la prise en compte du fichier, il est possible que d'autres y arrivent.

Bonjour,

je t'ai renvoyé ton fichier en réponse à ton message personnel.

Pour la mise en forme du texte, lermitte t'explique qu'il faut insérer des bbcodes dans la macro pour soit mettre en gras, en italique le texte (les balises existent lorsque tu veux répondre à des posts).

cela se fait sous forme de balises exemple :

pour mettre du texte en gras il faut placer le texte entre "(b)(/b)" (remplacer les paranthèses par des [ ] )

en italique "(i)(/i)"

etc....

Voilà, à toi de jouer!