im using the code


Code:
Dim objOutlook As New Outlook.Application
Dim objOutlookMsg As Outlook.MailItem

' Create New message
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

With objOutlookMsg
    .To = Text3.Text
    .Subject = "Report"
    .Body = "Attachment included"
    .Importance = olImportanceHigh
    
    .Send
End With

how can i add an attachment?