小编Zhe*_*hew的帖子

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
objMail.To = "example@email.com"
objMail.cc = "example2@email.com"
objMail.Subject = "Mail test"
objMail.HTMLBody = "This is my message"
unload me
objMail.Display
Set objMail = Nothing
Set objOutlook = Nothing

我正在尝试添加另一个功能来帮助回复选定的电子邮件，但无法弄清楚如何将其与Item As Outlook.MailItem 我了解回复电子邮件需要这样做。

所以我想知道如何添加以便我可以选择电子邮件，执行宏并将收件人电子邮件输入到objMail.To收件人的正文中objMail.HTMLBody

这是表结构

捐赠者(捐赠者ID,姓名)

捐赠(ID,捐赠ID,金额)

这是我的查询:

SELECT donor.name, SUM(donation.amount) "Total"
FROM donor, donation
WHERE donor.donorID = donation.donorID
AND SUM(donation.amount) > 1000;
GROUP BY donor.name
ORDER BY SUM(donation.amount) DESC;

这是错误:

ORA-00934:此处不允许组功能00934. 00000 - "此处不允许组功能"

删除总和(捐赠)时没有错误<1000我如何整合它没有错误？请帮忙.