Question

我需要为课程更改此VBA代码。我正在查看本教程http://spreadsheetpage.com/index.php/tip/sending_personalized_email_from_excel/而不是Outlook，我想直接从Excel使用Apple Mail stmp [＆＃34; mailto：＆＃34;]函数。我有主题和消息部分，但我想知道我是否可以直接从终端运行此脚本，如果我们正确保存？您还可以注释我需要在哪里进行与我的电子邮件相关的特定更改。

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

    Sub SendEMail()
    Dim Email As String, Subj As String
    Dim Msg As String, URL As String
    Dim r As Integer, x As Double
    For r = 2 To 4 'data in rows 2-4
    '       Get the email address
        Email = Cells(r, 2)

    '       Message subject
        Subj = "Your Annual Bonus"

    '       Compose the message
        Msg = ""
        Msg = Msg & "Dear " & Cells(r, 1) & "," & vbCrLf & vbCrLf
        Msg = Msg & "I am pleased to inform you that your annual bonus is "

        Msg = Msg & Cells(r, 3).Text & "." & vbCrLf & vbCrLf
        Msg = Msg & "William Rose" & vbCrLf
        Msg = Msg & "President"

    '       Replace spaces with %20 (hex)
        Subj = Application.WorksheetFunction.Substitute(Subj, " ", "%20")
        Msg = Application.WorksheetFunction.Substitute(Msg, " ", "%20")

    '       Replace carriage returns with %0D%0A (hex)
        Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, "%0D%0A")        
    '       Create the URL
        URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg        

    '       Execute the URL (start the email client)
        ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus

    '       Wait two seconds before sending keystrokes
        Application.Wait (Now + TimeValue("0:00:02"))
        Application.SendKeys "%s"
    Next r
    End Sub

Answer 1

在Windows中，您可以将VBA应用程序另存为.vbs文件，并从命令提示符或Windows资源管理器中运行它。可能存在错误，如果您具有Excel特定功能，或者VB版本不同，但通常会运行。

电子邮件终端快捷方式

1 个答案: