Hi.. Wesley .. I Interested .. but how to attach the file? ..
I met error message: "Could not complete the operation, one or more parameters value are invalid" Error code: -2147024809 (80070057) .. I used below code:

Private Sub MsOutlook(tto As String, tSubject As String, tAttach As String, tBody As String)
Dim oItem As Outlook.MailItem
Dim oOutlook As Outlook.Application
Set oOutlook = New Outlook.Application
'Set oitems = objInbox.Items
Set oItem = oOutlook.CreateItem(olMailItem)

With oItem
.To = tto
.Body = tBody
.Attachments = tAttach
.Subject = tSubject
.Send
End With
End Sub

am I missing something?