Transferring Excel Macros via Thunderbird
1 answer
Example
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
+2
source to share