Thread obsoleto [Aiuto]Invio e-mail con VB

[DjProte]

Ciao a tutti

Ho trovato in rete un tutorial che spiega come manfare email attraverso l'uso di CDO "Microsoft CDO for Windows 2000 Library."
Finito il programma mi da un errore:

"Il valore di SendUsing non è valido"

VI posto il codice

Private Sub Command1_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
' Parte piu importante..
Dim cdo As New cdo.Message
With cdo
.From = email
.To = "tua@mail.com"
.Subject = "Messaggio da " & nome
.TextBody = messaggio
.Send
End With
End If
End Sub

 

[loddo]

provo io asp a me funziona te che versione di visual basic usi?

 

[DjProte]

Io uso la 6.0

 

[loddo]

anche io strano che non ti vada