Ti ringrazio die suggerimenti.
Fra informazioni da una parte e letture dall'altra sono riuscito ad ottenere un applicativo relativamente funzionante.
L'unica cosa che non riesco ad attivare è il conteggio delle e-mail spedite, mi da sempre zero.
Allego il codice e attendo un prezioso aiuto.
Grazie a tutti.

Private Sub Comando17_Click()


Const conPercorso = "\\server\Dati\Documenti\Uboldi\Varie\"
Const conAllegato = "\\server\Dati\Documenti\Uboldi\Varie\Curriculum_2 010.PDF"
Dim rstEmail As New ADODB.Recordset



On Error GoTo Err_Mail

Dim strNomeAllegato As String
Dim strDestinatario As String
Dim appOutlook As New Outlook.Application
Dim mail As Outlook.MailItem
Dim TOTMAILS As String
Dim TOTSENT As Integer


Set appOutlook = CreateObject("outlook.application")

DoCmd.OpenQuery "qryEliminaNulliDaEmail"

rstEmail.Open "tbElencoAziende", CurrentProject.Connection, adOpenForwardOnly

'rstEmail.Open "SELECT * FROM tbElencoAziende WHERE LEN(mail)>0 Order By mail", CurrentProject.Connection, adOpenForwardOnly

TOTMAILS = rstEmail.RecordCount


'MsgBox rstEmail!Nome & rstEmail![E-Mail]


Do Until rstEmail.EOF

strDestinatario = rstEmail![mail]

If Not strDestinatario = "" Then


'Set mail = appOutlook.CreateItemFromTemplate(conPercorso & "RicercaLavoro.oft")

Set mail = appOutlook.CreateItemFromTemplate(conPercorso & "RicercaLavoro.oft")


With mail
.To = strDestinatario
' .Attachments.Add (contsAllegato)
.Send

DoEvents
If .Sent Then TOTSENT = TOTSENT + 1
Here:

End With
'Set mail = Nothing
End If
rstEmail.MoveNext

Loop

Exit Sub





Err_Mail:
' quale Err.Number viene generato in caso non venga inviata e fare il Resume in [Here:]


MsgBox "Invio avvenuto con successo"
MsgBox (TOTSENT)



End Sub