Fix compiler error

I need help with the following:

Sub EmailAspdf()

Dim EApp As Object
Set EApp = CreateObject("Outlook.Application")

Dim EItem As Object

I tried to get macro sent email attachment through office 365 outlook instead of Outlook 2010.