[Tasos]

Καλησπέρα!
Σωτήρη δοκίμασε:

Sub testMail()
'Για να στείλουμε e-mail σε περισσότερους παραλήπτες διαχωρίζουμε τις διευθύνσεις με κόμμα.
'Με τον ίδιο τρόπο μπορούμε να επισυνάψουμε περισσότερα αρχεία.

    SendMailPerThunderBird _
            strTo:="sotisanis1@company.com,sotisanis2@company.com", _
            strCC:="sotisanisMain@company.com", _
            strSubject:="Γειά σου!", _
            strBody:="Πάμε στο σχολείο;" & vbLf & "Σε περιμένω...", _
            strAttachments:="C:\Users\Admin\Desktop\Book1.xlsx,C:\Users\Admin\Desktop\Book2.xlsx"
End Sub

Public Sub SendMailPerThunderBird( _
       ByVal strTo As String, _
       ByVal strCC As String, _
       ByVal strSubject As String, _
       ByVal strBody As String, _
       ByVal strAttachments As String)

    Dim strProgPath As String
    Dim strArgs As String
    
    ' Προσάρμοσε τη διαδρομή του εκτελέσιμου αρχείου 'thunderbird.exe' αν χρειαστεί.
    ' strProgPath = Chr(34) & Environ("ProgramFiles(x86)") & "\Mozilla Thunderbird\thunderbird.exe" & Chr(34)
    
    ' Προσάρμοσε τη διαδρομή του εκτελέσιμου αρχείου 'thunderbird.exe' αν χρειαστεί.
    strProgPath = Chr(34) & "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe" & Chr(34)
    
    strArgs = " -compose ""to='""" & strTo _
            & "',cc='" & strCC _
            & "',subject='" & strSubject _
            & "',body='" & strBody _
            & "',attachment='" & strAttachments & "'"""

    Shell strProgPath & strArgs, vbNormalFocus
    
End Sub

Καλή συνέχεια!

Τάσος