使用 Excel VBA 在 Mac 上创建新邮件

Question

我需要调整我的 macro，如下所述，它运行s on mac 使用 Apple Mail 应用程序。

Sub SendMail()

    Dim OutlookApp As Object: Set OutlookApp = CreateObject("Outlook.Application")
    Dim var As Variant: var = Selection.Value
    Set MyMail = OutlookApp.CreateItem(0)
    With MyMail
        .To = var(1, 8)
        .Subject = "Skuska"
        .body = "Dobry den...bla bla bla" & vbNewLine & vbNewLine & var(1, 2) & vbNewLine & var(1, 3) & vbNewLine & var(1, 5) & "  " & var(1, 4) & vbNewLine & vbNewLine & "Tel.c.:" & vbNewLine & var(1, 6) & vbNewLine & var(1, 7) & vbNewLine & vbNewLine & var(1, 9) & vbNewLine & vbNewLine & "S pozdravom" & vbNewLine & "Meno" & vbNewLine & "Tel."
        .sent
    End With
End Sub

这个 macro 运行用于 Outlook，但我使用的是 Apple Mail。

Answer 1

Outlook Mac 2011（也不支持 Apple Mail）不支持 VBA。据我所知，Mac 或 Apple Mail 的 Outlook 自动化可以使用 Applescript and/or Automator 完成。有关详细信息，请参阅 Introduction to Scripting Mail。

使用 Excel VBA 在 Mac 上创建新邮件

Create new mail on Mac using Excel VBA

excel

vba

macos

email

apple-mail