从 vba 使用 Thunderbird

编程问答 2022-04-22

问题描述

我希望有人能帮助我。 我使用了下面显示的代码，它来自这张票： 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 配置有问题吗？

谢谢 查斯曼

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

emailemailms-access-2010newsgroupthunderbirdvba