Nouveau message électronique Outlook > VBA

Bonjour,

Je suis complètement débutante sur VBA, et je cherche dans un premier temps à créer un Nouveau message électronique vierge sur Outlook 2016 mais en créant un bouton de macro sur excel. Je suis sur Mac.

J'ai cherché depuis plusieurs heures des solutions mais je ne trouve pas et j'ai souvent l'erreur 429.

Pouvez-vous m'aider svp ?

En vous remerciant par avance,

Bonsoir,

Je ne sais pas si cela va marcher sur Mac avec outlook 2016 mais cette macro fonctionnait chez moi, vous pouvez tester :

Il y a pas mal de commentaire pour des fonctions en plus, je laisse tout ce que j'avais, à vous de choisir ce qu'il vous faudra

Sub mail()

   Dim destinaire As String
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

    'Set ColAttach = OutMail.Attachments
    'Set oAttach = ColAttach.Add("\\sfs..jpg") '
    destinataire = "toto"
    'fichierjoint = "\\Projects\....pdf"

    Sujet = "titre"

    strbody = "<H3><B>Dear toto,</B></H3>" & " <br>" & " <br>" & _
                "mvoici le message!<br>" & " <br>" & " <br>" & _
                "<br><br><B>Cdt,</B>"

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    With OutMail
        .Display
        .To = destinataire
        '.CC = "tata"
        '.BCC = "titi"     
        .Subject = "sujet"
        .HTMLBody = strbody & "<br>" & .HTMLBody
        '.Save
        '.Attachments.Add fichierjoint

        .Display
       ' .send                          'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)

    End With

    Set OutMail = Nothing
    Set OutApp = Nothing

End Sub

ECG