I’ve adapted the code in another thread (see link at footer) and come up with:
Dim recipient As String
recipient = DocCurrent.FieldGetText("namEmailDistribution")
Dim bccitem As New NotesItem(DocNew, "BlindCopyTo",recipient)
Call DocNew.Send( True, DocBack.recipient)
This works but unfortunately only sends the email to the first person on the list. The list is entered onto a Field namEmailDistribution set up as Type: Names and “Allow multiple values” true.