Bonjour,

J'ai ce code à transférer vers un poste MAC.
Vous y connaissez vous ?
Merci :
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
Sub SendMail_Outlook()
'Avant de lancer cette macro, Dans l'éditeur VBA:
'Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
Dim ol As Object
Dim olmail As Object
Dim ligne As Byte
Dim MailAd As String, MailAd1 As String
 
Set ol = CreateObject("outlook.Application")
Set olmail = ol.CreateItem(0)
'Set olmail = ol.CreateItem(0) --> pour test sous MAC
 
For ligne = 33 To 37
    If Range("d" & ligne) <> "" Then
        MailAd = Range("E" & ligne) & ";"
        MailAd1 = MailAd & MailAd1
    End If
Next ligne
 
With olmail
    .BCC = MailAd1 'Range("E" & ligne) 'placer l'adresse mail de la ligne
    .To = Range("J9")
    .CC = Range("J8") & Range("J10")
    .Subject = "CONSULTATION - " & Range("B16") 'le sujet + le nom
    .Body = "Consultation ayant pour objet - " & Range("B16") & Range("d" & ligne) & "  " _
            & Range("B79")
 
    '.Attachments.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name
    .Display 'afficher le mail avant de l'envoyer sinon placer send pour envoyer
End With
 
End Sub