Discussion :

[TaleMaker]

Bonjour,

J'ai un tableau avec toutes les coordonnées des clients, et je voudrais qu'en cliquant sur un bouton, un mail soit envoyé automatiquement sur outlook. à côté de ça, j'ai un fichier word mailing où je sélectionne actuellement à la main la ligne concernée et je l'envoie par copier/coller. donc s'il existe un moyen de récupérer automatiquement une ligne, l'envoyer dans le fichier word qu'on enverra par outlook à la bonne personne, je serai ravi de le connaitre.

Merci d'avance,
Phil....

[Fvandermeulen]

Bonjour,
Voici un code assez simple qui avec quelques adaptations devrait répondre à tes besoins.
Si j'ai bien compris, tu copies du texte de Excel vers Word, pour joindre word au mail.
Tu as selon moi deux options faciles, tu crées un doc word pour chaque cas de figure et dans le code tu pointes sur le bon doc word.
Ou alors tu insère directement dans le corp du message la phrase gràace a une variable.
Bonne continuation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub EnvoiFichier()
 
  ' ENVOI PAR E-MAIL DU FICHIER :
 
  Dim MonOutlook As Object
  Dim MonMessage As Object
 
  Monfichier = "" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & "" 'chemin d'accès du fichier joint
  MonTo 'on peut mettre la liste des destinataires en variable
  MonCc 'on peut mettre la liste des Cc en variable
 
 
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.createitem(0)
  MonMessage.to = "xxxx@hotmail.com" 'destinataire défini en "dur"
  MonMessage.Cc = "xxxx@hotmail.com" 'Cc défini en dur
  MonMessage.Attachments.Add Monfichier  'Joint le fichier défini via Monfichier
  MonMessage.Subject = "Automatique mailing"  'Sujet du mail en "dur"
    Corps = "Bonjour," 'Début du texte du mail
    Corps = Corps & Chr(13) & Chr(10) 'renvoi à la ligne
    Corps = Corps & "Voici le fichier convenu." 'suite du texte
  MonMessage.body = Corps 'Place le texte complet dans le corps du message
  MonMessage.send 'Envoi le mail, il faudra confirmer par la suite ou utiliser un sendkey
  Set MonOutlook = Nothing '"décharge outlook
End Sub

[TaleMaker]

niquel, y a plus qu'à adapter en effet, mais ça marche impec.

Juste 2 derniers petits points donc, comment fait-on pour changer le corps du texte envoyé (couleur, gras, italique, taille tout ça) et pour rajouter le champ "from" aux adresses d'envoi. J'ai naïvement tenté MonMessage.From mais ça ne marche pas....