mariea
-
19 août 2012 à 19:09
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 2018
-
20 août 2012 à 17:06
Bonjour,
après plusieurs questions, plusieurs recherche sur ce site et sur le web, je n'arrive pas à trouver de réponse pour "ma macro"(trouver sur le site et arrangé par plusieurs d'entre-vous).
voilà la macro utilisée actuellement et qui fonctionne très bien: Sub EnvoiMail()
If Sheets("Feuil1").Range("C52") = "OUI" Then
Workbooks("Bon de commande prestation annexe.xls").SendMail Recipients:=Range("B43").Value, _
Subject:="Test envoi classeur", _
ReturnReceipt:= True
Else
MsgBox "Formulaire incomplet. Envoi annulé"
End If
End Sub
voilà la macro que je voudrai mais que je n'arrive pas faire:
Sub EnvoiMail()
If Sheets("Feuil1").Range("C52") = "OUI" Then
Workbooks("Bon de commande prestation annexe.xls").SendMail Recipients:=Range("B43").Value, _
Copie : (G47) ; (G48 ) ; (B43).
Subject:="Test envoi classeur", _
[color=red]Message := " Veuillez trouver ci-joint un bon de commande pour une prestation annexe , Merci. "
ReturnReceipt:=True
Else
MsgBox "Formulaire incomplet. Envoi annulé"
End If
End Sub
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 19 août 2012 à 19:42
Bon, apparemment, tu essayes d'envoyer des mails et tu voudrais envoyer le mail à d'autres destinataires "en copie"
(pourtant simple d'expliquer ce qu'on cherche, non ?)
SendMail n'est pas paramétrable pour cela, tu l'auras vu.
La seule solution que je vois serait de :
- Faire le premier envoi au destinataire principal (ou aux)
- Refaire la même commande aux autres destinataires + modif du sujet pour y ajouter "(Copie du mail envoyé à xxx@yyy.zzz)", par exemple.