XL 2010 transfert code windows vers MAC

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

inbonrougail

XLDnaute Nouveau
Bonjour,
Pensez vous pouvoir m'aider à transférer ce code vers MAC. Je vous remercie.
VB:
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
461
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
817
Réponses
2
Affichages
511
Réponses
2
Affichages
809
Retour