Dim applOutlook As OUTLOOK.Application
Dim miOutlook As OUTLOOK.MailItem
Set applOutlook = New OUTLOOK.Application
'create and display a new email item:
Set miOutlook = applOutlook.CreateItem(olMailItem)
'set properties of the new mail item:
With miOutlook
.Display
.Subject = "Sending a Test Mail"
.Body = "Wish the best in learning Outlook Automation!"
.Email1Address = "mon mail"
'attach a file from the specified folder:
End With