Excel VBAでThunderbirdから電子メールを自動的に送信

Question

私がしたいことは、自動的にThunderbirdアカウントから電子メールを送信することです。ユーザーは、電子メールの[送信]ボタンを押す必要はありません。

私はCDOを使用しようとしましたが、問題は送信元のアカウントのユーザー名とパスワードを入力する必要があることです。このマクロは複数の異なるアカウントから使用されるため、各ユーザー名とパスワードの入力は実現できません。私はThunderbirdからユーザ名、パスワード、smtpサーバを検索することがあったとしてもCDOを使うことができましたが、CDOなしでこれを達成できるはずのコードが好きです。

実際にこれを達成するために私が見る（そしてどこにでも）唯一のコードです。

Sub Thunderbird() 

Dim thund As String  
Dim email As String 
Dim cc As String 
Dim bcc As String 
Dim subj As String 
Dim body As String  

email = "email@test.com" 
cc = "cc@test.com" 
bcc = "bcc@test.com" 
subj = "Subject" 
body = "body text" 

thund = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe" 
thund = thund & " -compose " & Chr$(34) & "mailto:" & email & "?" 
thund = thund & "cc=" & Chr$(34) & cc & "?" 
thund = thund & "bcc=" & Chr$(34) & bcc & "?" 
thund = thund & "subject=" & Chr$(34) & subj & Chr$(34) 
thund = thund & "body=" & Chr$(34) & body 

Call Shell(thund, vbNormalFocus) 
SendKeys "^+{ENTER}", True 

End Sub 

今の時点で、フィールドcc、bcc、subj、およびbodyは全て正しく認識されています。問題は、すべてが最初のフィールドの最後に追加されることです。たとえばコードが現在のところでは、ccがccフィールドに入りますが、bcc,subj、およびbodyはすべてThunderbirdのccフィールドにccに追加されます。

私は ccアウトコメント場合は、 bccが正しいフィールドに配置され

が、subjとbodyは、サンダーバードのBCCフィールドにbccに追加されます。私はccとbccアウトコメント場合

、その後、subjは正しいフィールドに入れますが、サンダーバードの対象分野にsubjにbody付加されます。

基本的に私は、これらの各行の最後に正しいコードを追加する必要があります。私は"?"とChr$(34)の両方を試してみました。

最後に、SendKeys "^+{ENTER}", Trueはまったく機能しません。これは、すべてのパラメータがThunderbirdの正しいフィールドに入れられていないことが原因である可能性がありますが、私はそれが動作しないため、わかりません。 Thunderbirdからの電子メールは表示されますが、このコードは想定されているように電子メールを送信していません。

SOLUTION（@zedfoxusによって提供される）

Sub Thunderbird() 

Dim thund As String  
Dim email As String 
Dim cc As String 
Dim bcc As String 
Dim subj As String 
Dim body As String  

email = "email@test.com" 
cc = "cc@test.com" 
bcc = "bcc@test.com" 
subj = "Subject" 
body = "body text" 

thund = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe" & _ 
     " -compose " & """" & _ 
     "to='" & email & "'," & _ 
     "cc='" & cc & "'," & _ 
     "bcc='" & bcc & "'," & _ 
     "subject='" & subj & "'," & _ 
     "body='" & body & "'" & """" 

Call Shell(thund, vbNormalFocus) 
Application.Wait (Now + TimeValue("0:00:03")) 
SendKeys "^{ENTER}", True 

End Sub 

Answer 1

あなたはかなり接近していました。試してみてください：

Public Sub SendEmail() 
    Dim thund As String 
    Dim email As String 
    Dim cc As String 
    Dim bcc As String 
    Dim subj As String 
    Dim body As String 

    email = "test@test.com" 
    cc = "test@test.com" 
    bcc = "test@test.com" 
    subj = "Testing" 
    body = "Testing" 

    thund = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe " & _ 
      "-compose " & """" & _ 
      "to='" & email & "'," & _ 
      "cc='" & cc & "'," & _ 
      "bcc='" & bcc & "'," & _ 
      "subject='" & subj & "'," & _ 
      "body='" & body & "'" & """" 

    Call Shell(thund, vbNormalFocus) 
    SendKeys "^+{ENTER}", True 

End Sub 

例はhttp://kb.mozillazine.org/Command_line_arguments_(Thunderbird)です。

は

サンダーバード= 'ジョン@ example.com、キャシー@ example.com'、CC = 'ブリトニー@ example.com' に-compose」、件名= '夕食'、ボディ= 'どのように今夜の夕食はどうですか？ 」、添付ファイル= 'C：\一時\のinfo.doc、C：\一時\のfood.doc'」

例は-compose後、我々は、二重引用符で私たちの情報を入力する使用する必要があることを示しています。各パラメータはコンマで区切られています。命名法はparameter='value[,value]' [,parameter='value[,value]]...です。