Bonjour,

Je suis vraiment très très débutant en VBA et complètement perdu.
J'ai trouvé le code ci-dessous qui marche bien mais que je n'arrive pas à le lancer avec la macro "exécutercode". Il faudrait passer par une "function" que je ne sais pas écrire.
Merci de m'aider en m'indiquant ce que je dois faire.
D'avance merci bcp.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
35
36
37
38
39
40
41
42
Public Sub SendOLMail2( _
ByVal strEmail As String, _
ByVal strObj As String, _
ByVal strMsg As String, _
ByVal blnEdit As Boolean, _
Optional ByVal avarFichiers As Variant)
Dim ol As Outlook.Application
Dim mi As Outlook.MailItem
Dim varPJ As Variant
On Error GoTo OLMailErr
Set ol = New Outlook.Application
Set mi = ol.CreateItem(olMailItem)
With mi
.To = strEmail
.Subject = strObj
.Body = strMsg
For Each varPJ In avarFichiers
.Attachments.Add (varPJ)
Next 
If blnEdit Then
.Display
Else
.Send
End If
End With
Set mi = Nothing
Set ol = Nothing
Exit Sub
OLMailErr:
MsgBox "Erreur : " & Err.Number & vbCrLf & Err.Description
Exit Sub
End Sub
Sub TestSendOLMail2()
Dim astrFichiers(1 To 1) As String
astrFichiers(1) = "K:\Testmacro.xlsx"
SendOLMail2 "email@fournisseur.com", _
"Quelques pièces jointes...", _
"Salut," & vbCrLf & "Ci-joint, quelques fichiers pour tester..." _
& vbCrLf & "-- Hervé Inisan.", _
True, _
astrFichiers
End Sub