Macro pour Mail dans Excel
Bonjour,
J'ai créé une macro dans excel pour envoyer des courriels avec en attachement un fichier (*.*)
Les deux premières adresses sont fixes, mais la troisième change à chaque semaine et elle se trouve sur une feuille excel.
Malheureusement souvent une des adresses ne s'envoie pas ou alors à ma dernière version
il y a un message d'erreur MonMessage.Send se met en jaune.
Si quelqu'un pouvait m'aider
Merci beaucoup. Joachim Nouveau dans le forum
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| 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 = "joachim.@gmail.com"
'MonMessage.CC = "newixelles.@gmail.com"
destinataires = Array("1erEmail@gmail.com", "2emeEmail@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é"
End Sub |
