使用 PowerPoint VBA 发送电子邮件

Question

我想向另一个电子邮件地址发送一封电子邮件（带有主题、正文...）。 我尝试了以下代码，但没有成功：

Private Sub CommandButton1_Click()

    Dim ret As Boolean
    Dim strAddress As String
    Dim strMessage As String

    strAddress = "examplemail@gmail.com"
    ret = SendEMail(strAddress, (Label1.Caption), strMessage)
    Label1.Caption = ret

    If Label1.Caption = "True" Then
        MsgBox "Mail sent!"
    ElseIf Label1.Caption = "False" Then
        MsgBox "Mail not sent!"
    End If

End Sub


Public Function SendEMail(strRecipient As String, strSubject As String, strBody As String) As Boolean

    Dim oApp As Object
    Dim oMail As Object

    Err.Clear
    On Error Resume Next

    Set oApp = GetObject(Class:="Outlook.Application")
    If Err <> 0 Then Set oApp = CreateObject("Outlook.Application")
    Err.Clear
    Set oMail = oApp.CreateItem(0)
    With oMail
        .Subject = strSubject
        .To = strRecipient
        'copy to self
        .CC = "youraddy@you.com"
        .BodyFormat = 1
        .Body = strBody
        .Send
    End With

    'cleanup
    Set oMail = Nothing
    Set oApp = Nothing

    'All OK?
    If Err = 0 Then SendEMail = True Else SendEMail = False

End Function

代码最初取自here。

如果可能的话，我想要一个与大多数 PC 兼容的代码。

Answer 1

使用 Microsoft Outlook
要发送电子邮件，您需要在 Microsoft Outlook 中配置一个电子邮件帐户，因为您的代码使用 Outlook 发送电子邮件。

Set oApp = GetObject(Class:="Outlook.Application")

---

备选方案 1：SMTP
或者，您可以在 VBA 中设置 SMTP 连接，以使用 CDO 通过外部邮件服务器发送电子邮件。更多关于在 VBA 中使用 CDO 的信息可以找到here（即使他们编写的代码是为 Excel 编写的，您也可以将其用于 PowerPoint）和here。

这种方法的缺点是 SMTP 登录凭据在 VBA 代码中可见。如果您打算与其他人共享此演示文稿，这可能是一个安全问题。

---

备选方案 2：Mailto-Link
第三种方法是向用户提供一个链接以供点击以发送电子邮件：mailto:recipient@example.com?subject=xxx
这种方法的描述可以在here 找到（向下滚动到第三个选项）。