Visual Basic 6 - Errore invio email tramite CDO ... "Microsoft CDO for Windows 2000 Library"

Salve ragazzi!
Ho provato con un mio amico, un programma per inviare email...
Il programma richiede riferimento all'oggetto CDO
"Microsoft CDO for Windows 2000 Library" (...Riferimento presente nel vb del mio amico...)
Io però mi ritrovo "microsoft CDO for exhange 2000 library"...
Al mio amico funziona tutto alla perfezione...
A me da un errore del tipo " il valore di configurazione sendusing non è valido"
E mi evidenzia la quart'ultima ".send"
Dite che il problema gira attorno a questa libreria?
Se la libreria non è la stessa...Come faccio a procurarmi quella giusta (presumibilmente funzionante?)

Di seguito riporto il codice:



Private Sub cmdEmail_Click()
Dim nome, email, messaggio
nome = txtNome.Text
email = txtEmail.Text
messaggio = txtMessaggio.Text
If Len(Trim(nome)) = 0 Then
MsgBox "Inserisci il tuo nome", vbCritical, "Errore"
txtNome.SetFocus
ElseIf InStr(email, "@" = 0 Then
MsgBox "Inserisci la tua email", vbCritical, "Errore"
txtEmail.SetFocus
ElseIf Len(Trim(messaggio)) = 0 Then
MsgBox "Inserisci il messaggio", vbCritical, "Errore"
txtMessaggio.SetFocus
Else
Dim cdo As New CDO.Message
With cdo
.From = email
.To = "tuamail@server.ext" ' email del destinatario
.Subject = "Messaggio da " & nome
.TextBody = messaggio
.Send
End With
End If
End Sub


Vi ringrazio anticipatamente =)

support.microsoft.com/kb/…