Ti ringrazio GIBRA per le informazioni che mi ha suggerito, ma purtroppo credo di aver fatto solo un gran pasticcio.
La suite di Office che uso è la 2010, io ho cercato fra informazioni in internet e dei libri che ho ha casa di mettere insieme il codice che hai potuto valutare, ma con dei pessimi risultati.
Credo che tu abbia ragione riguardo ADO - DAO.
Scusa se mi permetto di chiederti tanto, ma potresti suggerirmi dove fare le dovute correzzioni, non riesco a venirne a capo, in fondo devo inviare delle e-mail e conteggiarle, ti sarei veramente grato se puoi aiutarmi a risolvere la cosa, sono completamente in palla.
Aspetto una tua preziosa risposta, grazie ancora.

Allego il codice con le ultime correzioni:





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
'Dim rstEmail As ADODB.Recordset
'Set rstEmail = New ADODB.Recordset
Dim rstEmail As DAO.Recordset
Set rstEmail = New DAO.??????????????????




On Error GoTo Err_Mail

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


'Set appOutlook = CreateObject("outlook.application")
Set appOutlook = New 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

TOTSENT = 0

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

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

Loop

Exit Sub


' Quì controlla che il Totale coincida con l'inviato....



Err_Mail:
' quì devi trovare 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