excel - 从命令行发送电子邮件

Question

我使用 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) & "foo@bar.de" & 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

Answer 1

不幸的是，这是不可能的。然而，https://support.mozilla.org/questions/1144493列出替代方案，以防它们适合您。

从 UI，文件 -> 发送未发送的消息应该可以(您可能需要激活菜单栏)来发送所有撰写的消息。