用EXCEL VBA编程：当表格中的某数字小于5的时候,发邮件给指定的人

用EXCEL VBA编程：当表格中的某数字小于5的时候,发邮件给指定的人。
资料收集于网络，若是有侵权联系作者删除，谢谢！

Sub 发邮件()
Dim ou As Object
Dim oua As Object
Dim a As Integer
If a < 5 Then '设置条件，当a小于5的时候发邮件
Set ou = CreateObject("outlook.application")
Set oua = ou.CreateItem(0)
With oua
.To = "xxx@xxx.com" '收件人
.Subject = "Hello" '题目
.Body = "Send Test" '内容
.display
.Send '发送
End With
End If
End Sub