Macro Mail plusieurs destinataire

Y compris Power BI, Power Query et toute autre question en lien avec Excel
B
BIGJOJO55
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 15 décembre 2018
Version d'Excel : 2016

Message par BIGJOJO55 » 16 décembre 2018, 17:15

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
FEUILLE DE MATCH VETERAN11122018.xlsm
(929.24 Kio) Téléchargé 3 fois
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é"
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 14'751
Appréciations reçues : 442
Inscrit le : 27 août 2012
Version d'Excel : O365 32 bits

Message par Jean-Eric » 16 décembre 2018, 20:32

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
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
B
BIGJOJO55
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 15 décembre 2018
Version d'Excel : 2016

Message par BIGJOJO55 » 17 décembre 2018, 11:58

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.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message