从 vba 使用 Thunderbird

如何解决从 vba 使用 Thunderbird

我希望有人能帮助我。我使用了下面显示的代码，它来自这张票： How can I automatically send email from Thunderbird with Excel VBA?

Public Sub SendEmail()
    Dim thund As String
    Dim email As String
    Dim cc As String
    Dim bcc As String
    Dim subj As String
    Dim body As String

    email = "test@test.com"
    cc = "test@test.com"
    bcc = "test@test.com"
    subj = "Testing"
    body = "Testing"

    thund = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe " & _
            "-compose " & """" & _
            "to='" & email & "'," & _
            "cc='" & cc & "'," & _
            "bcc='" & bcc & "'," & _
            "subject='" & subj & "'," & _
            "body='" & body & "'" & """"

    Call Shell(thund,vbnormalFocus)
    SendKeys "^+{ENTER}",True

End Sub

它在创建电子邮件时一直有效，但它提示我输入新闻组名称，我无法继续。我不是要发布到新闻组。我的 Thunderbird 配置有问题吗？

谢谢查斯曼