XL 2010 transfert code windows vers MAC

[inbonrougail]

Bonjour,
Pensez vous pouvoir m'aider à transférer ce code vers MAC. Je vous remercie.

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

 

[patricktoulon]

bonjour
pour être honnête je ne suis pas sur que l'on puisse manipuler outlook avec MAC mais je n'en suis pas sur alors
c'est le problème avec office/MAC il est amputé de tout les cotés

 

[inbonrougail]

Merci beaucoup.
Ne peut-on pas utiliser thunderbird, en lieu et place?

 

[patricktoulon]

re
ça je l'ignore mais ca me parait encore moins probable vu que même avec windows le com thunderber = NIET!!!!

regarde peut être du coté de la fonction native "mailenveloppe" mais bon pour moi Mac et office

a lire

Mise à niveau de MacOS pour continuer à recevoir les mises à jour de Microsoft 365 et d'Office pour Mac - Support Microsoft

En savoir plus sur la mise à niveau des systèmes d’exploitation Mac pour continuer à recevoir les mises à jour Microsoft 365 et Office pour Mac.

support.microsoft.com