Bonjour à tous,
pensez vous pouvoir m’aider sur ce code. je suis vraiment novice.
Il fonctionne sur Windows et je souhaite pouvoir le copier coller sur MAC.
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 = 33 To 37
If Range("d" & ligne) <> "" Then
With LeMail.CreateItem(olMailItem) ' informe le programme que nous voulons envoyer un mail.
.Subject = "CONSULTATION - " & Range("B16") & Range("b" & ligne) 'le sujet + le nom
.To = Range("E" & ligne) 'placer l'adresse mail de la ligne
.CC = Range("J9") & _
Range("J10") & _
Range("J8")
.Body = "Consultation à destination de la société " & Range("d" & ligne) & " " _
& Range("B79")
.Display 'afficher le mail avant de l'envoyer sinon placer send pour envoyer
End With
End If
Next ligne
Il s’agit de pouvoir générer des mails automatiquement à partir d’une liste de mail.
Un grand merci.