VBA 从当前用户地址发送带有 CDO 的电子邮件答案

【问题标题】：VBA send Email with CDO from the current user adressVBA 从当前用户地址发送带有 CDO 的电子邮件
【发布时间】：2014-07-17 16:47:03
【问题描述】：

我尝试使用使用 CDO 和 Outlook 的 vba 脚本发送电子邮件。

我使用你可以在这里找到的脚本：http://www.cpearson.com/excel/Email.aspx

它工作正常，但我想从使用 vba 的人的 Outlook 帐户发送电子邮件。如何获取当前用户的邮箱？

【问题讨论】：

无法使用该代码，除非您有办法将用户名映射到电子邮件地址。尝试使用本机 Outlook VBA，例如此处 - support.microsoft.com/kb/161088
您是否尝试在用户正在使用的 PC 上使用与 Outlook 配置文件设置关联的电子邮件地址？如果是这样，那么this may help you。如果您不想使用 PC 上配置 Outlook 配置文件中的电子邮件地址（或者没有），那么您需要确定是否有办法通过他们的用户名或可能从 Active Directory 捕获此地址.
@enderland 你是对的。最后我使用了本机 Outlook VBA，例如：rondebruin.nl/win/s1/outlook/amail1.htm

标签： excel vba email outlook cdo.message

【解决方案1】：

实现此目的的最简单方法是从 cpearson 删除所有等待代码中“fromadress”的行。如果删除以下行：

If Len(Trim(FromAddress)) = 0 Then
    SendEMail = False
    Exit Function
End If

和

.From = FromAddress

并像这样更改函数的定义：

Function SendEMail(Subject As String, _
        ToAddress As String, _
        MailBody As String, _
        SMTP_Server As String, _
        BodyFileName As String, _
        Optional Attachments As Variant = Empty) As Boolean

然后不设置 fromaddress 并自动使用 Outlook 的标准地址。

【讨论】：

from 参数是必需的。如果我尝试在没有他的情况下发送邮件，我会收到以下错误：'code'"运行时错误 -2147220979(8004020d) 至少需要一个 froms 或 sender 字段"'code'
您将此标记为答案，但您的评论表明它不起作用 - 您需要进一步的帮助吗？
对不起，我打错了答案，解决方法是我下面的答案。

【解决方案2】：

使用 CDO 是不可能的，因为 .from 是必需的参数。

解决方案是使用本机 Outlook VBA（当然您应该希望从 Outlook 而不是 GMAIL 或其他方式发送邮件）。这里有很多例子：

http://www.rondebruin.nl/win/s1/outlook/amail1.htm

http://www.rondebruin.nl/win/s1/outlook/mail.htm

【讨论】：