Sub SendMail(SendTo As String, SendBody As String, SendSub As String, SendAtt As String)
Dim message As Email
SendTo = SendTo.Trim
message.To.Add(SendTo)
message.Body = SendBody
message.Subject = SendSub.Trim
If SendAtt <> "" Then
message.Attachments.Add(SendAtt)
End If
Try
StartActivity(message.GetIntent)
Catch
Msgbox("Email Client Could Not Be Accessed, Please Make Sure You Have Setup Your Email Client", "NOTICE")
End Try
End Sub