dat was ter vervanging van dit stukje en de commentaar van die vroegere versie was blijven hangen
   Select Case Application.UserName
      Case "Username Thunderbirdgebruiker", "BSA", "nog iemand anders username": Email_Thunderbird 'opsomming van usernames die Thunderbird gebruiken
      Case Else: Email_Outlook 'al de anderen
   End Select
dus ipv. te kijken naar de username kijk je nu gewoon naar een bepaalde cel.
'k had direct een beetje duidelijker moeten communiceren.

als je, in die 2 laatste regels die enkel (rode) aanhalingstekens weghaalt, dan verstuurt Thunderbird je email zonder verdere tussenkomst.
Dat is hetzelfde als de ".display" - regel in die Outlook-macro te vervangen door ".Send"
Maar meestal wil je vermoedelijk nog een keer alles controleren, dus ik vermeld het enkel voor de volledigheid.

'SendKeys "^{ENTER}", True'voorlopig enkel als commentaar, als je echt wil verzenden mag die enkele aanhalingsteken voorin weg
  'Application.Wait Now + TimeValue("00:00:05")

verwijder anders eens die ene laatste regel en toevoegen van die DoEvents.
Verder iets aangepast met je bestand, je exporteerde 2 keer, nu is die 2e weg

Sub OpslaanVerzenden()

''variabelen
   Plaats = "C:\JVC\Contracten\"                 ''AANPASSEN indien nodig (standaard: "C:\JVC\Contracten\")
   If Application.UserName = "BSA" Then Plaats = ThisWorkbook.Path & "\"   '---> in mijn geval deze

   Naam = Range("Q1").Value
   Adres = Range("P10").Value
   CC = Range("R14").Value
   BCC = Range("R15").Value
   Onderwerp = "Contract"
   Ondergetekende = Range("P25").Value
   Handtekening = "Beste," & vbLf _
                  & vbLf _
                  & vbLf _
                  & "Met vriendelijke groeten," & vbLf _


   ''Nagaan of het bestand reeds bestaat, zoniet opslaan en verder
  bestand = ThisWorkbook.Path & "\" & Range("Q1").Value & ".pdf"   ''= variabele
   If Dir(bestand) <> "" Then
      MsgBox "Het contract - " & Naam & ".pdf - bestaat reeds. Vul een ander contractnummer in of wis het bestaande contract"
      Exit Sub
   Else
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=bestand, Quality:=xlQualityStandard, _
                                      IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
   End If

   ''bestand toevoegen aan mail met naam vermeld in cel Q1
verder:

   hhr = "C:\JVC\HHR.pdf"                        ''AANPASSEN indien nodig
   If Application.UserName = "BSA" Then hhr = ThisWorkbook.Path & "\blabla2.pdf"   '---> in mijn geval deze

   vAttachments = Array(bestand, hhr)

   If Range("P32").Value <> "Ja" Then            'in O32 staat er "mailen met Outlook" en in P32 via validatie kan je kiezen tussen ja en nee
      Email_Thunderbird
   Else
      Email_Outlook
 kill bestand  '<---- enkel voor outlook
   End If

   DoEvents
   'Kill (bestand)
End Sub

ik gok dat het bestand al verdwenen is van de harde schijf nog voor Thunderbird die kon verzenden.
Die DoEvents maakt dat 1 en ander terug in pas komt met elkaar.
Als dit al lukt, dan mag je die Kill opnieuw activeren door dat enkel aanhalingsteken voorin weg te halen.
Werkt het nu nog ?
Zoniet, dan moet je die kill niet meer doen en later die pdf op een andere manier verwijderen.
Bij mij lukt het toch.
Voorlopig heb ik wel ook een kill staan in het stuk voor outlook, dus pas op 2 keer killen gaat niet

zolang jouw username onder windows geen "BSA" is op de plaats waar ze vroeger stonden, dus  Plaats = "C:\JVC\Contracten\"

Koe
Er is nog iets.  Ik zie dat het contract zich opslaat op JVC/Contracten
maar ook heel tijdelijk in JVC

Als ik outlook gebruik dan verdwijnt deze daar
Als ik thinderbird gebruik blijft deze daar steken.

Ik had ook gezien dat ik zonder deze regel hetzelfde resultaat heb
   If Application.UserName = "Username" Then hhr = ThisWorkbook.Path & "\hhr.pdf"   '---> in mijn geval deze


die  2 regels beginnen met  If Application.UserName = "BSA" dienden om op een snelle manier de macro op mijn computer te testen. Eigenlijk zou je ze beter verwijderen uit je definitieve bestand. Ze hebben niets te maken met Outlook vs Thunderbird.
Nadien zal er altijd in de subdirectory van "Plaats" geschreven worden. Ik kan moeilijk voor iedere vraag een eigen subdirectory aanmaken.

Outlook en Excel zijn van dezelfde familie, zodat ze al het ware te synchroniseren zijn met die "DoEvents"
Je zou anders onderstaande een keer kunnen uittesten onderin de code van Thunderbird.
Daar verander je die wachttijd naar bijvoorbeeld 3, 5 of 10 sec.
Zo geef je Thunderbird meer tijd om de mail aan te maken. Die 2 sec lukte bij mij wel (met die verstande en in een ander bestand stuurde ik maar 1 bijlage). Dus zal het net iets langer duren tegen dat je terug verder kan gaan. Wat de tijd wordt, dat zal je proefondervindelijk moeten uitproberen ofwel gok je direct safe met 10.

  Call Shell(thund, vbNormalFocus)              'kies 1 van deze opties, niet allebei
   'Call Shell(thund, windowstyle)

   Application.Wait Now + TimeValue("00:00:10")
   'SendKeys "^{ENTER}", True 'voorlopig enkel als commentaar, als je echt wil verzenden mag die enkele aanhalingsteken voorin weg
   'Application.Wait Now + TimeValue("00:00:15")

werkt dat tot tevredenheid dan mag de vroegere situatie blijven staan. Dan is je tijdelijk bestand, zowel met Outlook (zonder wachttijd) als met Thunderbird (wachttijd op bv. 10 sec), na uivoeren van de macro weer verdwenen.

   If Range("P32").Value <> "Ja" Then            'in O32 staat er "mailen met Outlook" en in P32 via validatie kan je kiezen tussen ja en nee
      Email_Thunderbird
   Else
      Email_Outlook
   End If

   DoEvents
  Kill (bestand)

Onze reacties kruisten elkaar !
Het komt eigenlijk hier op neer dat het bestand al gekillt werd voor Thunderbird het kon inlezen, enkele sec langer wachten is de oplossing.

Voor mij is het ok, succes en prettige dagen.