Hello,
I want to send multiple files with VBA to Thunderbird. So far, everything works fine, but only for ONE file. I am trying to find what the separator symbol would be, kinda like email separators ";" (if I can do such thing).
The example belows works for one file. basically, I'd like to change "FakeFile1" for "FakeFileCombined". I'd just would like to edit the line before the last line to make it work. I feel like I'm missing something pretty simple and obvious. I'm a google person, not a programmer... be merciful! 
Can anyone help me out?
Thanks!
Public Sub SendPDF()
Dim InvNo As String, CompName As String, DateInv As String, DateReplace As String, ProjectName As String, FullProjectName As String, ShortProjectName As String
Dim Email As String, InvoicePath As String, ReportPath As String, InvoiceFileName As String, WholeFileName As String, ForTheProject As String
Dim reportTB As Object
Dim waitOnReturn As Boolean: waitOnReturn = True
Dim windowStyle As Integer: windowStyle = 1
Set reportTB = VBA.CreateObject("WScript.Shell")
FakeFile1 = "\\CHALKBOARD\Company\Revenues\Brains Billing\Testing\PDF1.pdf"
FakeFile2 = "\\CHALKBOARD\Company\Revenues\Brains Billing\Testing\PDF2.pdf"
FakeFileCombined = FakeFile1 & " ; " & FakeFile2
'Create Thunderbird email
reportTB.Run "thunderbird.exe " & _
"-compose " & """" & _
"to='" & Email & "'," & _
",subject=Subject here " & _
"invoice for " & FullProjectName & InvNo & _
",body=" & Chr(39) & _
"To whom it may concern, " & UCase(Show) & "<br><br>You will find enclosed the invoice... " & _
Chr(39) & ",attachment=" & Chr(39) & _
FakeFile1 & _
Chr(39), windowStyle, waitOnReturn
If DisplayEmail = False Then
'.Send
Exit Sub
End If
On Error GoTo 0
Exit Sub
PdfExportError:
MsgBox ("This PDF invoice is already opened. Close it or change the update date of the invoice.")
Exit Sub
End Sub
Bookmarks