So nearly finished - need help with email macro

Is there a way I can get this to email using outlook to the email address inputted into the message box?

Worksheets("Sheet2").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Public\000\InvoiceCopy\Invoice" & Range("D1").Value _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False
answer = MsgBox("Do you want to Email this", vbYesNo + vbQuestion, "Email")
If answer = vbYes Then
    email = InputBox("Enter Email Address")
    Else
    'do nothing
End If