Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = strEmail
.Subject = strSubject
.Body = strbody
‘get each file to attach
.Attachments.Add strFile
.Display ‘Or use Send to send without looking at the email first
End With