[VB6] Fallimento invio di email con "vbSendMail.dll"

[SimoDominik]

Ciao ragazzi ho scaricato la dll vbsendmail seguendo tutte le istruzioni e compilando tutti i campi a me necessari ho creato qst cosice...

Private WithEvents poSendMail As vbSendMail.clsSendMail

Private Sub cmdSend_Click()

Set poSendMail = New vbSendMail.clsSendMail
poSendMail.SMTPHost = "smtp.email.it"
poSendMail.From = "alice@email.it"
poSendMail.FromDisplayName = "simone"
poSendMail.Recipient = "simonesimone@email.it"
poSendMail.RecipientDisplayName = "Simone"
poSendMail.ReplyToAddress = "alice@email.it"
poSendMail.Subject = "Oggetto"
poSendMail.Message = "ciao"
poSendMail.Send
Set poSendMail = Nothing

End Sub

ma purtroppo neanke un email è arrivata a destinazione...POtete aiutarmi grazie..
concludo dicendo k nn mi da nessun errore si esegue perfettamente ma il risultato è nullo...Grazie in anticipo

[Mercante in fie]

ciao SimoDominik io uso una cosa del genere per mandare mail se ti puo' servire

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOW = 5

Private Sub cmdInvia_Click()
    ShellExecute hwnd, _
        "open", _
        "mailto:" & txtTo.Text & _
        "?cc=" & txtCc.Text & _
        "&bcc=" & txtBcc.Text & _
        "&subject=" & txtSubject.Text & _
        "&body=" & Replace(txtMessage.Text, vbCrLf, "%0D%0A"), _
        vbNullString, vbNullString, _
        SW_SHOW
End Sub

ti crei un form con 5 textbox Ricorda solo che la textbox "txtMessage" deve essere impostata su multiline= true

spero ti sia di aiuto ciaoo