Attach files to email created in Mozilla Thunderbird using VBA

Dears,

I am using the following code to create an email using VBA (my client is Thunderbird).

I can create the email properly (destination, subject, etc), but I am struggling to attach files. I have checked Mozilla forums for command line syntax but no success.

This is the code I am using:

Sub test()
sCmd = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird"
Email = "[email protected]" 'fake email, change to a real one
Subject = "Test message"
Content = "Check this out"
attch = "C:/anyfile.pdf" 'fake file name and path, change to a real one
'
sCmd = sCmd & " -compose " & Chr$(34) & "mailto:" & Email & "?"
sCmd = sCmd & "subject=" & Chr$(34) & Subject & Chr$(34)
sCmd = sCmd & "&attachment=" & Chr$(34) & "file:///" & attch & Chr$(34)
sCmd = sCmd & "&body=" & Content
Call Shell(sCmd, vbNormalFocus)
End Sub

As I said above, the email pops up properly filled, but no success in attaching the proper file.

Thanks in advance.

That was great AlphaFrog. It worked fine for me. Thanks a lot.

One more question: I am having some trouble with the content part. Every time it has a dash or comma it truncates the message from that point.

For example: if define Content = "Check this out, this is a test" ou "Check this out - this is a test", the macro will create the email with only the "Check this out".

It worked for the comma, but not for the dash. If I define

Content = "'Check this out - this is a test.'"

I will only get up to the "Check this out".

Once again, many thanks for your time.

However, as I am trying to create an spreadsheet with an email automation involving more complex messages, I am giving up using command line and switching to CDO, which seems to give more flexibility to customize the message (HTML formatted, for example).

Best regards.

Before closing the issue, as a final remark, I am moving forward with the implementation using CDO and, so far, is going well. Another advantage is that I can send the email automatically. By using the command line I was able to open and fill an email, but I still have to hit "send" buttom, which is not much practical when dealing with dozens of emails. Anyway, thanks for the tips, AlphaFrog. This double-double quotes, which I was not aware of, is helping in the new path.

I've just found this tread and it works super good for me, but i have one question that i cannot find a answer.

How can i use this code and attach not only one attachmend but numerous.

Thanks in advance

I tried excatly the same thing however I am getting an error message statis the File Doesnt Exists. Not sure what wrong I am doing or what is incorrect with my excel application. Can you suggest something that I have to cross chk or should be in my checklist which I may have missed