Thread obsoleto [PROBLEMA]Inviare email con VB6

[InfernoHacker]

Salve ragazzi,volevi chiedere un aiutino >.<
su internet,precisamente su qst sito

Perfavore, Entra oppure Registrati per vedere i Link!

( spero nn sia spam xk nn è mia intenzione ) ho trovato un codice di VB6 x inviare email,il cod è il seguente

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" ' QUI LA TUA EMAIL
.Subject = "Messaggio da " & nome
.TextBody = messaggio
.Send
End With
End If
End Sub

Come è scritto inserisco 1 comand button,3 textbox
e fin qui ci siamo
avvio il programma e quando inserisco il mio nome,l'email del destinatario e il messaggio e premo invia mi dice che il valore SENDUSING NON è VALIDO

aiutatemi


PS : buono x inviare fake-mail

HELP ME T_T

 

[Ketto93]

Hai inserito questo codice cliccando due volte sul button? (domanda scema ma sempre molto utile).

 

[InfernoHacker]

ovvio è scritto "cmdEmail_Click" cmd solitamente stà per Command_Button perciò mi sembra ovvio ò_ò

 

[Ketto93]

Lo so. Pensavo che questo fosse il codice che hai preso da sito quindi ho pensato che avresti potuto sbagliare.

 

[basket]

ragazzi non c'e soluzione? volevo anche io fare un programma così!...?

 

[DarkSouls]

mmm nn saprei...prova a cliccare una sola volta..ma nn credo che funzionerà..scs ma nn so come aiutarti...cmq mi servirebbe anche a me una cosa simile....

 

[basket]

e strano... comunque non ci sono altri modi per inviare email?

 

[Ketto93]

Non c'è altro modo credo.

La soluzione è installare un software che risolga il problema di CDO.

Problema risolto?

 

[basket]

per me si ma la discussione non è mia...