Pj auto avec ≠ destinataires

Le 28/02/2014 à 22:38

Bonsoir,

Je reviens sur le forum suite à mes recherches infructueuses.

Voilà ce que j'aimerais dans cette macro (si possible):

Je voudrais joindre automatiquement chaque planning (fichier excel) à chaque destinataire (1 ou plusieurs destinataires par planning), en y intégrant l'objet: planning, un texte en comic sans ms et en couleur.

L'idée serait d'ouvrir les mails mais pas de les envoyer en automatique. Je voudrais pouvoir modifier, parfois, le texte avant l'envoi et surtout vérifier que la bonne pj est avec les bons destinataires.

Merci à vous.

Le 02/03/2014 à 19:18

Bonsoir,

J'ai réussi à trouver exactement ce que je voulais, merci à ceux qui avaient commencé à chercher. Ci dessous le code en espérant aider:

Sub envoimail()
'test ≠ pj auto avec ≠ destinataires

Dim Outlook As Object
Dim Mail As Object
Dim Objet As String
Dim Corps As String
Dim fichiers, dest As Variant
Dim i As Integer
Dim path As String

path = "C:\Mes Documents\AA\"
fichiers = Array("A1.xls", "B1.xls", "C1.xls", "D1.xls" )
dest = Array("Xxxx@free.fr", "yyyy@free.fr", "zzzz@free.fr,aaa@free.fr", "wwww@free.fr" )
 ' un ou plusieurs destinataires
Objet = "envoi ≠ pj auto avec ≠ destinataires"
'Exemple de corps de texte avec texte et sauts de ligne
Corps = "Bonjour, " & _
vbCrLf & vbCrLf & _
"Ci-joint le fichier bla, bla, bla." & _
vbCrLf & vbCrLf & _
"Nous restons à votre disposition pour tout renseignement complémentaire." & _
vbCrLf & vbCrLf & _
"Cordialement." & _
vbCrLf & vbCrLf

Set Outlook = CreateObject("Outlook.Application" )

For i = LBound(fichiers) To UBound(fichiers)
    Set Mail = Outlook.CreateItem(0)

    With Mail
        .To = dest(i)
        .CC = ""
        .BCC = ""
        .Subject = Objet
        .Body = Corps
        .Attachments.Add (path & fichiers(i))
        .Display
    End With
Next i

End Sub

Merci pour ce forum.

Le 21/12/2020 à 15:09

Bonjour à tous,

Je reviens sur le forum après quelques années. J'utilise la macro (voir message précédent) depuis et en j'en suis satisfait. J'aimerais cependant lui apporter une petite amélioration et intégrer aux messages, ma signature professionnelle et son image.

Après quelques essais infructueux, je me permets de vous demander un peu d'aide pour compléter ce code.

Vous remerciant par avance.

Bon a.midi.

Le 21/12/2020 à 16:53

Bonjour Tian, beau déterrage de sujet

Voilà la petite modification à apporter

Sub envoimail()
  Dim Outlook As Object
  Dim Mail As Object
  Dim Objet As String
  Dim Corps As String
  Dim fichiers, dest As Variant
  Dim i As Integer
  Dim path As String

  path = "C:\Mes Documents\AA\"
  fichiers = Array("A1.xls", "B1.xls", "C1.xls", "D1.xls")
  dest = Array("Xxxx@free.fr", "yyyy@free.fr", "zzzz@free.fr,aaa@free.fr", "wwww@free.fr")
  ' un ou plusieurs destinataires
  Objet = "envoi ? pj auto avec ? destinataires"
  'Exemple de corps de texte avec texte et sauts de ligne
  Corps = "Bonjour," & "<BR><BR>" _
    & "Ci-joint le fichier bla, bla, bla." & "<BR><BR>" _
    & "Nous restons à votre disposition pour tout renseignement complémentaire." & "<BR><BR>" _
    & "Cordialement."

  Set Outlook = CreateObject("Outlook.Application")

  For i = LBound(fichiers) To UBound(fichiers)
    Set Mail = Outlook.CreateItem(0)
    With Mail
      .Display  ' Afficher le nouveau mail avec la signature pro
      .To = dest(i)
      .CC = ""
      .BCC = ""
      .Subject = Objet
      .HtmlBody = Corps & .HTMLBody ' Remplir le corps du mail et ajouter la signature
      .Attachments.Add (path & fichiers(i))
    End With
  Next i

End Sub

Le 21/12/2020 à 18:34

Bonsoir BrunoM45,

Merci pour ta réponse, j'y suis presque:

quand je test la macro, j'ai bien l'affichage de la signature avec l'image logo mais pendant 1 seconde et ensuite j'ai ce texte à la place de la signature (je n'ai mis que le début et retirer les 2 liens qui ne me sont pas autorisés):

<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m=lien vers shema.microsoft xmlns=lien vers W3><head><meta name=ProgId content=Word.Document><meta name=Generator content="Microsoft Word 15"><meta name=Originator content="Microsoft Word 15"><link rel=File-List href="cid:filelist.xml@01D6D7C5.57A727F0"><link rel=Edit-Time-Data href="cid:editdata.mso"><!--[if !mso]><style>v\:* {behavior:url(#default#VML);}

o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style><![endif]--><link rel=themeData href="~~themedata~~"><link rel=colorSchemeMapping href="~~colorschememapping~~"><!--[if gte mso 9]><xml>

<w:WordDocument>
<w:TrackMoves>false</w:TrackMoves>
<w:TrackFormatting/>
<w:HyphenationZone>21</w:HyphenationZone>
<w:EnvelopeVis/>
<w:PunctuationKerning/>

Merci pour tes éclaircissements.

Le 22/12/2020 à 04:17

Re,

Désolé, j'ai fait ça à la "vite faille", mais il manquait plusieurs chose... Code modifié

Il faut créer le corps du message en ".HtmlBody" sinon ça ne fonctionne pas effectivement, de plus les retours à la ligne doivent être traités en HTML

Le 22/12/2020 à 20:36

Bonsoir BrunoM45,

Merci pour la modif, c'est ok pour la signature. Vu le texte en Html.

Très bonne soirée.

Rechercher des sujets similaires à "auto destinataires"