Macro Mail plusieurs destinataire
Bonjour, j;ai créé une Macro dans Excel pour envoyer un fichier (*.*) à plusieurs destinataires dont une adresse est chaque semaine différente.
Malheureusement dès que j'ajoute la ligne (Array("joa.tscha@gmail.com", "new.5plus@gmail.com", Sheets("Feuil5").Range("J21").Value)), ma Macro me signifie une erreur. je reçois le message Bug et (MonMessage.Send) se met en jaune.
Avez vous une solution pour de problème?
Merci bcp pour votre aide et Bon dimanche.
Joachim
Sub POURENVOI()
'
' POURENVOI Macro
Dim fichier As Variant
fichier = Application.GetOpenFilename("tous les fichier(*.*),*.*")
MsgBox fichier
Dim MaMessagerie As Object
Dim MonMessage As Object
Set MaMessagerie = CreateObject("Outlook.Application")
Set MonMessage = MaMessagerie.CreateItem(0)
MonMessage.To = "joa.tschka@gmail.com"
MonMessage.CC = "new.5plus@gmail.com"
MonMessage.CC = = Array("joa.tscha@gmail.com", "new.5plus@gmail.com", Sheets("Feuil5").Range("J21").Value)
MonMessage.Attachments.Add fichier
MonMessage.Subject = "ENVOI fichier VETERAN 1"
contenu = "Bonjour,"
contenu = contenu & Chr(10) & Chr(13)
contenu = contenu & "ci-joint le fichier du match de vétéran 1 demandé"
MonMessage.Body = contenu
MonMessage.Send
Set MaMessagerie = Nothing
MsgBox "Votre Courriel a bien été envoyé"
Bonjour,
Essaie ainsi :
Sub ENVOIMAIL()
Dim Fichier As Variant
Dim MaMessagerie As Object
Dim MonMessage As Object
Dim tbl(2) As String
Fichier = Application.GetOpenFilename("tous les fichier(*.*),*.*")
MsgBox Fichier
Set MaMessagerie = CreateObject("Outlook.Application")
Set MonMessage = MaMessagerie.CreateItem(0)
contenu = "Bonjour,"
contenu = contenu & Chr(10) & Chr(13)
contenu = contenu & "Ci-joint le fichier du match de v?t?ran 1 de ce jour"
tbl(0) = "newixelles.50plus@gmail.com"
tbl(1) = "daniellecollins2@hotmail.com"
tbl(2) = Feuil5.Range("J21")
With MonMessage
.To = "joachim.tscherwinka@gmail.com"
.CC = Join(tbl, ";")
.Subject = "ENVOI fichier VETERAN 1"
.Body = contenu
.Attachments.Add Fichier
.send
End With
Set MaMessagerie = Nothing
Set MonMessage = Nothing
MsgBox "Votre Courriel a bien ?t? envoy?"
End Sub
Bonjour Jean-Eric
Je te remercie beaucoup pour cette correction de ma macro.
Elle fonctionne parfaitement et je peux à présent continuer mon travail.
Je te souhaite de passer de bonnes fêtes et une bonne année 2019.
Joachim.