Excel 根据MsgBox结果发送电子邮件

我有一个Excel文件，希望跟踪更改

如果文件保存时有任何更改，我想通过电子邮件将这些更改发送给一组收件人

到目前为止我所拥有的。有一个确认框弹出，但它是在电子邮件发送后。我试着把代码移到前面。如何将用户确认连接到实际发送的电子邮件

Function FileName（）作为字符串
FileName=此工作簿。名称
端函数
函数UserNameOffice（）作为字符串
UserNameOffice=Application.UserName
端函数
私有子工作簿_AfterSave（ByVal Success作为布尔值）
设置OutlookApp=CreateObject（“Outlook.Application”）
设置OlObjects=OutlookApp.GetNamespace（“MAPI”）
Set newmsg=OutlookApp.CreateItem（olMailItem）
newmsg.Recipients.Add（“c_hn@company.com")
newmsg.Subject=UserNameOffice（）&“已更新”&FileName（）&“打开”&Now
newmsg.Body=UserNameOffice（）&“已更新”&FileName（）&“打开”&Now
newmsg.Display“显示
newmsg.Send“发送消息
MsgBox“请确认您要发送通知电子邮件”，“成功”
端接头

我想提示做出更改的人说“您想发送更新通知吗？”

---

如果用户希望发送电子邮件，则可以选择“发送”，如果用户不想通知组更改，则可以选择“取消”。

您好，我还希望vba向做出更改的人发送一个提示框，提示“您希望发送更新通知吗？”。如果用户希望发送电子邮件，则可以选择“发送”，如果用户不想通知组更改，则可以选择“取消”。