VBA 发送电子邮件答案

【问题标题】：VBA to Send EmailVBA 发送电子邮件
【发布时间】：2019-01-22 21:09:12
【问题描述】：

提前感谢您的阅读。在这里完成 VBA 新手。

我有一个具有 IF 函数的 Excel 工作表：“=IF(D7>E1,TRUE,FALSE)”。如果单元格显示为 TRUE，我想做的是让 Excel 发送一封电子邮件，如果它是 FALSE，则什么也不做。我可以找到基于数字输入和文本输入的 VBA 发送电子邮件的各种示例，但放入 IF 函数似乎会阻止它工作。有人有出色的代码来帮助我吗？

另外，如果有人对 VBA 初学者的良好在线教程有任何建议，我将不胜感激。

谢谢

【问题讨论】：

这个网站更适合那些有一些代码但遇到问题的人，而不是从头开始编写代码。另外，如果您是初学者，那么您在某种程度上跳入了深渊。阅读How to Ask。
感谢 SJR，没有意识到，一定是在某处的网站信息中错过了该声明，但我今天早上看了这么多！感谢我深陷其中，这就是为什么我问是否有人可以推荐一些好的教程。它落在了我身上，因为我是公司中最有可能找到正确答案的候选人。真幸运啊！
我相信您已经发现了很多其他网站，您可以在其中索取代码。 Ron de Bruin 通常是 VBA 电子邮件问题的首选网站。
您的第一个停靠点应该是您的互联网搜索引擎。搜索“Excel VBA 发送电子邮件”返回 rondebruin.nl/win/s1/outlook/mail.htm，具体取决于您是否要通过 Outlook 发送以及您想要发送的具体内容，您可能需要自定义搜索请求。

标签： excel vba

【解决方案1】：

除了电子邮件部分，要在您编写的单元内函数中触发 vba 函数：

=IF(G7<F7,fnTest(),FALSE)

您需要 Alt-F11 才能显示 VBA 编辑器。右键单击“Microsoft Excel 对象”并插入 > 模块。

然后像下面我的简单函数一样插入您的电子邮件代码。

如果你复制这个例子，并且它工作，当 TRUE 时会弹出一个消息框，你会知道对函数的引用正在工作。然后您可以专注于电子邮件代码。

Public Function fnTest()
    MsgBox "TEST"
End Function

【讨论】：