[VB6] Invio di email con componente (DLL) vbSendMail

[jcsnake]

Ciao a tutti, è da un po' che sbatto sulla possibilità di inviare mail da programma...sto utilizzando la dll vbSendMail e come da manuale questo è il mio codice per l'invio

'Module Level Declaration (WithEvents optional but recommended)
Private WithEvents poSendMail as vbSendMail.clsSendMail
Private Sub cmdSend_Click()
'Assumes you have a form with text boxes named as below

set poSendMail = new vbSendMail.clsSendMail
poSendMail.SMTPHost = txtServer.Text
poSendMail.From = txtFrom.Text
poSendMail.FromDisplayName = txtFromName.Text
poSendMail.Recipient = txtTo.Text
poSendMail.RecipientDisplayName = txtToName.Text
poSendMail.ReplyToAddress = txtFrom.Text
poSendMail.Subject = txtSubject.Text
poSendMail.Attachment = prova.txt 'attached file name
poSendMail.Message = txtMsg.Text
poSendMail.Send
set poSendMail = nothing
End Sub

Aggiungo che cerco di collegarmi all'smtp di alice (out.alice.it), ma niente, non ricevo nessuna mail...
qualcuno mi potrebbe dare una mano?
Grazie

[oregon]

Ma cosa è questo

poSendMail.Attachment = prova.txt 'attached file name

?

Se prova.txt è il nome di un file, va tra virgolette e con l'eventuale percorso

poSendMail.Attachment = "C:\Dir\Dir\prova.txt"

[jcsnake]

Si hai ragione...un errore di distrazione...ma ancora nessuna mail

[oregon]

La DLL la scarichi con un pacchetto che contiene un progetto di prova.

Hai provato ad utilizzato quel programma per inviare la tua mail ? Funziona ?

E inoltre, non riesci ad eseguire passo passo il programma e a identificare eventuali codici di errore restituiti ?

Stai inviando la posta tramite alice e il tuo provider è alice, o no?

[jcsnake]

Ciao, scusami magari sono stato poco dettagliato nella spiegazione...il progetto trovato all'interno dell'archivio in cui c'era la DLL l'ho eseguito (sempre con smtp server: out.alice.it - dove ho la mia casella di posta - ) ma ricevevo l'errore "timeout invio scaduto", successivamente mi sono accorto che, all'interno del form già precreato, sulla destra vi era la spunta per login...allora ho pensato, magari non funziona perchè richiede il login...allora ho flaggato la checkbox e provato a reinviare il messaggio, sempre con gli stessi parametri precedenti...stavolta invece l'errore mi segnalava "Impossibile inviare l'email in questo momento da questo server".
Per tornare a parlare invece della prova banale che ho tentato di fare io...semplicemente non accade nulla...non posso controllare l'errore in quanto non si verifica, cioè non c'è nessun errore di sintassi per cui il programma dovrebbe bloccarsi, credo sia solo un errore logico causato dalla mia ignoranza in materia.
Grazie oregon per il tuo aiuto, spero potrai aiutarmi ancora,

[oregon]

Ok ma non hai risposto all'ultima domanda ...

[jcsnake]

dici questa?

Stai inviando la posta tramite alice e il tuo provider è alice, o no?

Si, ho la mia casella di posta su alice.

[oregon]

La prova corretta da fare è tentare con una sessione TELNET dal prompt dei comandi per inviare una email semplice.

Sai come fare?

[jcsnake]

Si, grazie è una prova che non avevo pensato di eseguire...comunque ho riscontrato lo stesso problema con l'smtp di hotmail, visto che ho anche lì un'altra casella di posta...prova il telnete e ti faccio sapere...

[jcsnake]

provato il telnet (telnet out.alice.it 25) ma mi risponde con una connessione rifiutata...cambiando un po' il codice

Private WithEvents poSendMail As vbSendMail.clsSendMail
Private Sub CmdInvia_Click()
    
    Set poSendMail = New vbSendMail.clsSendMail
    poSendMail.SMTPHost = "out.alice.it"
    poSendMail.From = "joshuacalandra@alice.it"
    poSendMail.FromDisplayName = "Joshua Calandra"
    poSendMail.Recipient = "joshuacalandra@hotmail.it"
    poSendMail.RecipientDisplayName = "Hotmail"
    'poSendMail.ReplyToAddress = txtFrom.Text
    poSendMail.Subject = "prova email vbsendmail.dll"
    'poSendMail.Attachment = txtFileName.Text 'attached file name
    poSendMail.Message = "testo prova email vbsendmail.dll"
    poSendMail.Send
    Set poSendMail = Nothing

End Sub
Private Sub poSendMail_SendSuccesful()

    ' your code here …
    MsgBox ("Mail Sent OK!")

End Sub
Private Sub poSendMail_SendFailed(Explanation As String)
    
' your code here …
    MsgBox ("Mail Failed!" & vbCrLf & Explanation)

End Sub
Private Sub poSendMail_Status(Status As String)

' your code here …
    LblStatus.Caption = Status

End Sub

In LblStatus.Caption, alla pressione di CmdInvia, mi riporta il messaggio "Connecting with smtp serve (out.alice.it)", e successivamente dopo un po' di secondi il messaggio "Mail Failed! Non è possibile raggiungere la rete da questo host in questo momento".
Qualche aiuto?Non capisco il perchè non debba funzionare dato che nella pagina di download della dll è presentato come esempio base per l'invio di una mail