Please post a snippet of your code and/or some screenshots showing the work and any errors you get (I know you said no errors shown but do you get a debug option? Clicking that show any of your code highlighted? Anything strange happening?). With what you've put, theres nothing we can diagnose with. Cheers
Troubleshooter

Cool. Above my knowledge base but i'm sure one of the other guys will get back to you real soon

I also have the code debug no errors appear

Hi Bruno, the mistake is in the line  oEmail.Attachments = emailattachment .  This only adds the most recent attachment, which replaces the previous one, and that's why you end up with only one attachment.  You need to use the Add method to add additional attachments.  E.g.:

oEmail.Attachments.Add "C:\MyFolder\file1.txt"
oEmail.Attachments.Add "C:\MyFolder\file2.txt"
oEmail.Attachments.Add "C:\MyFolder\file3.txt"

Hi Kevin, thanks for helping me out.
But in the case where I don't use the recordset everything works as it should. And if I do use the recordset, I don't get any results anymore. Not even any errors when using the code and when debugging the code. Now I have zero experience how to implement the results of a recordset in outlook or what so ever.

Hi everyone, I found a working code.
I'll upload a screenshot in a moment.
I still have one small problem with recognizing the ID order number in the SQl statement. I know it has something to do with the correct brackets. If anyone knows the answer right away.... please feel free to share it with me.

Share the SQL Statement as a string

Hi Alex,
It is true that you must define the variable as a String. I had already tried it in the other direction.
The solution is in the SQL statement.
("SELECT OrderDocumentId, OrderId, OrderDocumentLink, SentLink FROM TblOrderDocuments Where SentLink Like True and OrderId Like Orderid")
This should be the following:
('SELECT OrderDocumentId, OrderId, OrderDocumentLink, SentLink FROM TblOrderDocuments Where SentLink Like True and OrderId = ' & Orderid)
And I changed the variable as follows:
OrderId = Me.ID.Value
And everything works perfectly now. Great tool to have if you need to attach a lot of files somewhere. Now I can also check which files I have sent with every order.
If you would like to have the complete code I would be happy to share it with you.

Please share

Thanks
Juan

Private Sub BtnTest_Click()

Dim oApp As New Outlook.Application
Dim oEmail As Outlook.MailItem
Dim rs As DAO.recordset
Dim strpath As String
Dim OrderId As String

OrderId = Me.ID.Value
Set oApp = CreateObject("Outlook.Application")
Set oEmail = oApp.CreateItem(olMailItem)

Set rs = CurrentDb.OpenRecordset("SELECT OrderDocumentId, OrderId, OrderDocumentLink, SentLink FROM TblOrderDocuments Where SentLink Like True and OrderId = " & OrderId)

With oEmail
     If rs.RecordCount > 0 Then
     rs.MoveFirst
     Do While Not rs.EOF
         strpath = rs!OrderDocumentLink
         oEmail.Attachments.Add strpath, olByValue
         DoEvents
         rs.MoveNext
     Loop
     End If
     End With
    oEmail.To = "email address here"
    oEmail.Subject = "Group DE BONTE"
    oEmail.Body = "message body here"
    oEmail.Display

End Sub

Shouldn't OrderID be a Long?

I'd certainly make OrderID a long. Anything "ID" is a long. :)

I'd certainly make OrderID a long. Anything "ID" is a long. :)