Envoi de mail automatique et Office 365

Bonjour,

J'utilisais un code comme ci-dessous pour générer un mail automatique (avec pièce jointe) en cliquant sur un bouton macro depuis Excel.

J'utilisais le traditionnel Outlook 2016, mais j'ai migré sur l'application "Outlook on the Web" sur outlook.office.com et du coup ce code ne marche plus...

Sub Envoi_mail()
Set olApp = CreateObject("outlook.application")
Set olMail = olApp.CreateItem(0)
rep = "J:\Perso\" ficjoint = Dir(rep & "*.pdf")
With olMail
 .Subject = "Expédition - " & Range("Q7")
 .Body = Worksheets(3).Range("G3") 
 .To = "moi@moi.fr" 
 .Attachments.Add rep & ficjoint
 .Display
End With
End Sub

Voyez-vous comment l'adapter pour que ça fonctionne de nouveau ?

En attente de vos solutions,

Salutations,

Dadams51