Bonjour,
Merci à tous pour vos contributions.
J'ai crée un code sur Excel avec la version Windows et j'aimerais traduire ce code pour qu'il fonctionne sur MAC.
Il s'agit d'une préparation et d'un envoi automatisé de mail à différents prestataire selectionnés.
Est-ce que vous pensez pouvoir m'aider?
je vous remercie.
Cordialement,
Samuel
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
Option Explicit
 
Private Sub CommandButton1_Click()
 
Dim LeMail As Variant
Dim ligne As Integer
Dim CC As String
 
Set LeMail = CreateObject("Outlook.Application") 'création d'un objet outlouk
 
For ligne = 31 To 36
 
If Range("d" & ligne) <> "" Then
 
With LeMail.CreateItem(olMailItem) ' informe le programme que nous voulons envoyer un mail.
.Subject = "CONSULTATION - " & Range("B14") & Range("b" & ligne) 'le sujet + le nom
.To = Range("E" & ligne) 'placer l'adresse mail de la ligne
.CC = Range("J9") & _
Range("J8") & _
Range("J10")
.Body = "Consultation à destination de la société " & Range("d" & ligne) & " " _
& Range("B77")
.Display 'afficher le mail avant de l'envoyer sinon placer send pour envoyer
End With
 
End If
 
Next ligne
 
End Sub