Bonjour à toutes et tous.
Voila j'ai mis en place une feuille excel qui "gère" un planning dans mon équipe et j'ai inclus un bouton qui me sert à envoyer un mail à toute l'équipe.
Cette feuille tous les membres de mon équipe sont capable et on le droit d'aller la modifier et de la diffuser aux autres.
Ma question est, peut-on définir en fonction de l'émetteur la liste de diffusion ?
Car pour l'instant dans ma macro, j'ai rentré tout le monde, ce qui fait que même l'émetteur recoit son mail. Ce qui n'est pas un drame en soit mais bon j'essaie de faire quelque chose de bien fini.
Pour info, la messagerie est Outlook
Voici ma macro :
Sub Envoi_mail()
'Envoi Mail
Dim AdresseEmail As String
Dim Sujet As String, Corps As String
Dim FichierJoint As String
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
AdresseEmail = "aa@xx.com;bb@xx.com;cc@xx.com;dd@xx.com;ee@xx.com;ff@x.com"
Sujet = "Planning des arrêts"
Corps = "Bonjour," & vbCrLf & vbCrLf & _
"Veuillez trouver ci-joint le planning des arrêts hebdo " & vbCrLf _
FichierJoint = ThisWorkbook.FullName
myItem.To = AdresseEmail
myItem.Subject = Sujet
myItem.Body = Corps
On Error GoTo GestErr
Set Myattachments = myItem.Attachments
Myattachments.Add FichierJoint
myItem.Display ' c'est ICI la méthode Display
Set ol = Nothing
Set myItem = Nothing
Exit Sub
GestErr:
MsgBox "Erreur !! " & "erreur numéro = " & Err.Number
End Sub
Je vous remercie beaucoup pour votre aide.
Voila j'ai mis en place une feuille excel qui "gère" un planning dans mon équipe et j'ai inclus un bouton qui me sert à envoyer un mail à toute l'équipe.
Cette feuille tous les membres de mon équipe sont capable et on le droit d'aller la modifier et de la diffuser aux autres.
Ma question est, peut-on définir en fonction de l'émetteur la liste de diffusion ?
Car pour l'instant dans ma macro, j'ai rentré tout le monde, ce qui fait que même l'émetteur recoit son mail. Ce qui n'est pas un drame en soit mais bon j'essaie de faire quelque chose de bien fini.
Pour info, la messagerie est Outlook
Voici ma macro :
Sub Envoi_mail()
'Envoi Mail
Dim AdresseEmail As String
Dim Sujet As String, Corps As String
Dim FichierJoint As String
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
AdresseEmail = "aa@xx.com;bb@xx.com;cc@xx.com;dd@xx.com;ee@xx.com;ff@x.com"
Sujet = "Planning des arrêts"
Corps = "Bonjour," & vbCrLf & vbCrLf & _
"Veuillez trouver ci-joint le planning des arrêts hebdo " & vbCrLf _
FichierJoint = ThisWorkbook.FullName
myItem.To = AdresseEmail
myItem.Subject = Sujet
myItem.Body = Corps
On Error GoTo GestErr
Set Myattachments = myItem.Attachments
Myattachments.Add FichierJoint
myItem.Display ' c'est ICI la méthode Display
Set ol = Nothing
Set myItem = Nothing
Exit Sub
GestErr:
MsgBox "Erreur !! " & "erreur numéro = " & Err.Number
End Sub
Je vous remercie beaucoup pour votre aide.