我使用Excel VBA通​​过命令行参数在Thunderbird中创建电子邮件,可在以下位置找到:
http://kb.mozillazine.org/Command_line_arguments_%28Thunderbird%29

撰写邮件是可行的,但是如何自动发送呢?

另外,Thunderbird中是否有一个按钮可以立即发送所有撰写的电子邮件?

VBA代码如下所示:

Option Explicit

Sub thunderbird()

Dim strTh As String
Dim strCommand As String

strTh = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe "

strCommand = strCommand & " -compose " & "to=" & Chr(34) & "[email protected]" & Chr(34)
strCommand = strCommand & ",preselectid=id2"
strCommand = strCommand & ",subject=" & Chr(34) & "wow so email" & Chr(34)
strCommand = strCommand & ",body=" & Chr(34) & "anything" & Chr(10) & "more" & Chr(34)

Call Shell(strTh & strCommand, vbNormalFocus)

End Sub

最佳答案

不幸的是,这是不可能的。但是,https://support.mozilla.org/questions/1144493列出了替代方案,以防它们对您有用。

在UI中,文件->发送未发送的消息应该可以工作(您可能需要激活菜单栏)来发送所有已编写的消息。

关于excel - 从命令行发送电子邮件,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/27367838/

10-13 07:56