从命令行发送电子邮件

Question

我使用Excel VBA通过命令行参数在Thunderbird中创建电子邮件，相关信息可以在此处找到：http://kb.mozillazine.org/Command_line_arguments_%28Thunderbird%29。邮件的撰写已经完成，但如何实现自动发送呢？

或者，是否有一个按钮可以一次性发送所有撰写好的邮件？

以下是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) & "[e-mail]" & 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

- Willi Fischer

---

注意：您可以使用行继续符号“_”简化字符串连接。 - cheezsteak

谢谢。我在别处找到了这段代码，只做了一点修改。最终会遵循您的建议。 - Willi Fischer

Answer 1

很遗憾，这是不可能的。但是，https://support.mozilla.org/questions/1144493 列出了一些替代方案，如果适用于您，可以尝试使用。

从用户界面中，选择“文件” -> “发送未发送的邮件”应该可以工作（您可能需要激活菜单栏），以发送所有已撰写的邮件。

- Tim P