SendMail avec Sheet en picèe jointe
Bonjour,
Je ne comprend pas pour quelle raison ce programme ne marche pas.
J'ai beau le reviser je ne trouve pas l'erreur.
Quand je fais F5 (exécuter) le truc ne roule pas et une fenêtre me demande de choisir la macro à exécuter mais cette macro-ci n'est pas dans la liste des choix.
Il y un truc de base (à niveau d'arguments) qui cloche et je n'arrive pas à déceler
Merci d'avance pour voir le code avec un nouveau regard 8O
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
25
26
27
28
29
30
31
32
33
34
| Sub EnvoiMailMethodeOLE(Adresse As String, Objet As String, Corps As String, PJ As Objet)
Dim MonAppliOutlook As New Outlook.Application
Dim MonMail As Outlook.MailItem
Dim PJ As Outlook.Attachments
Set MonMail = MonAppliOutlook.CreateItem(olMailItem)
Set PJ = MonMail.Attachments
PJ.Add Woorksheet, olByValue
Adresse = Range("I3").Value
Corps = "Mme/Mr Le Président" & Chr(13) & "Mme/Mr Le Trésorier," & Chr(13) & "BLA BLA BLA"
Objet = Range("E2").Value
With MonMail
.Display
.To = Adresse
.Subject = Objet
.Body = Corps
.Send
End With
MonAppliOutlook.Quit
Set MonMail = Nothing
Set PJ = Nothing
End Sub |
