我使用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/