vba - 通过 Thunderbird 发送 Excel 宏

Question

关闭。此题需要 details or clarity 。目前不接受答案。

---

想要改进这个问题吗？通过 editing this post 添加详细信息并澄清问题.

已关闭 8 年前。

Improve this question

我想知道是否有人知道如何在 Excel 中构建宏以通过 Thunderbird 发送电子表格。

Answer 1

示例

Option Explicit
Sub Thunderbird()
    Dim sCmd As String      '// Prepare Thunderbird
    Dim sTo As String       '// Recipient
    Dim sSubject As String  '// Subject
    Dim sBody As String     '// Email body

    sTo = "Test@Email.com"
    sSubject = "Subject"
    sBody = "body text"

    sCmd = "C:\Program Files\Mozilla Thunderbird\thunderbird" '// or
    'sCmd = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird" '// Path
    sCmd = sCmd & " -compose " & Chr$(34) & "mailto:" & sTo & "?" '// Chr$(34)=double quote
    sCmd = sCmd & "subject=" & Chr$(34) & sSubject & Chr$(34)
    sCmd = sCmd & sBody

    Call Shell(sCmd, vbNormalFocus)
End Sub