Sending email with attachment using Sendobject & Thunderbird client

[ACB64]

Hi. I'm running win 10 (updated to most recent).
I've recently rebuilt my computer and have reinstalled Access 2007 and a split database. In the front-end there is a script to email a message to multiple recipients. I select the recipients from a list and click a "send" button, intending to send it as an email in Thunderbird. I'm using the standard Sendobject code.
It used to work and now doesn't. The same database is used on another computer (both front-end and back-end are on a cloud drive) without problems. I get the message:
"Runtime error 2046:
The command or action SendObject isn't available now."
I have spent days looking for a solution.
Can anyone help?
Thanks in advance.


Full code of subroutine follows. Note that in the following there is a function called ConcatRelated. It works to create a string of email recipients. It definitely works:

Private Sub Command76_Click()
'Check for empty Subject line
If IsNull(Text89) Then
    MsgBox "Please enter some text for the SUBJECT.", vbOKOnly, "Error"
    Text89.SetFocus
    Exit Sub
End If
'Check for empty text
If IsNull(Text73) Then
    MsgBox "Please enter some text for the MESSAGE.", vbOKOnly, "Error"
    Text73.SetFocus
    Exit Sub
End If
 
'Determine the recipients to be sent an email
Dim varItem As Variant
Dim recipients As String
'Determine if at least one course has been selected
If List77.ItemsSelected.Count = 0 Then
    MsgBox "Please select at least one course", vbOKOnly, "Error"
    Exit Sub
End If
'Collect email addresses of the recipients
recipients = ""
 
Lc = List77.ListCount
 
'If "ALL" is selected, then select all courses
If List77.Selected(1) Then
    Dim i As Integer
    For i = 0 To List77.ListCount - 1
    List77.Selected(i) = True
    Next i
End If
 
        'loop through all selected courses
            Dim z As Long
            With List77
 
                For z = 2 To Lc
                  If List77.Selected(z) Then
                    If Check81 Then recipients = ConcatRelated("Invoicemail", "BulkEmail", "[coursekey]= """ & .ItemData(z) & """", , ";") & recipients 'Email invoicees
                    If Check79 Then recipients = ConcatRelated("StudentEmail", "BulkEmail", "[coursekey]= """ & .ItemData(z) & """", , ";") & recipients  'Email Students
                 End If
                Next z
            End With
 
    'remove duplicates
    recipients = EliminateDupesInString(recipients, ";")
    ' Calculate number of email addresses
    If recipients <> "" Then x = Len(recipients) - Len(Replace(recipients, ";", ""))
    MsgBox "There are " & Str(x) & " addresses."
 
    If recipients <> "" Then DoCmd.SendObject acSendNoObject, , acFormatRTF, "[e-mail]", , recipients, Text89, Text73, True
    DoCmd.Close
End Sub

[NeoPa]

Have you tried to Dubug (Debugging in VBA) this code and seen what each variable holds at the time you get the error (Line #54) in your code?

[ACB64]

Hi NeoPa,
Thanks for answering. Yes, I have and everything checks out. The error appears only when the SendObject is attempted. All variables are valid. Also, it works on another machine, and also worked seamlessly prior to the rebuild.
I remember having this issue about 1 year ago and I found a solution, but have no idea what it was. How silly that I didn’t record the solution.
ACB

[GazMathias]

Hi ACB64,

Doesn't SendObject negotiate with the default mail client? That would suggest that the problem seems to be outside of your Access solution. I do not use Thunderbird, but is there a setting for enabling this kind of automation?

Gaz

[ACB64]

Hi Gaz,
Yes, that’s my understanding, and exactly the reason for my problem. Previously, I had no problems with SendObject negotiating with Thunderbird. Now, however, after the rebuild, something is presumably different and I don’t know what it is.
Andrew.

[ACB64]

Hi Mycinegisters,
Any hints??? I checked out your blogs and didn’t find anything that looked related to my issue.
Andrew.

[GazMathias]

Hi ACB64,

In Windows itself, when you right click a file and select Send To... Mail recipient does Thunderbird respond properly?

Is Thunderbird defined as the default mail handler in PC Settings -> Default apps?

Is the build of Thunderbird the same on your machine and the working machine, and are you able to directly compare settings?

Gaz

[GazMathias]

Hi ACB64,

In addition to my prior questions I also meant to ask if both Office and Thunderbird are targetting the same architecture (x86 / x64)?

Gaz

[ACB64]

Hi Gaz,
Thanks for responding so quickly.
Yes, TB is the default email client in Windows.
Yes, the machine computer aus running TB 32 Bit and Access 2007 only had the 32 Bit architecture. I tried running the 64 Bit version of TB, but got the same problem. Then I went back to the 32 Bit Version of TB. The two machines are similar except the „working“machin e is running office 2013 and the corresponding version of Outlook. I even tried installing the Access 2013 runtime and ran the DB with that. No help. The problem was still there. I uninstalled the runtime. Apart from that, I can no differences. However, as stated previously, the “non working” machine used to work and the build is, as far as I can tell, the same a as before (Win 10, access 2007, TB, etc.)
Andrew.

[GazMathias]

Hi Andrew,

Did the right click file -> Send To -> Mail recipient test work?

I assume the machine has been restarted since the reinstallation of Thunderbird? Shutdown / cold boot does not count (Win 10 fast boot shenanigans).

Gaz