Visual Basic 6 - email sender

ciao ragazzi,
sono giorni che sto cercando di compilare un prog.
in VB che mi manda email,ho trovato qualche codes gia pronti su qualche sito,ma non vanno.Qualcuno di voi mi sa dare qualche buon consiglio pper un email sender program??grazie in anticipo

o usi le api
(se non sbaglio il mapi)
che se non ricordo male usa la configurazione di outlook altrimenti c'è il winsock e il suo bellissimo telnet.
a mio parere entrambi non sono totalmente affidabili io preferisco il winsock perchè il mapi non posso contollarlo troppo, però allo stesso tempo il mapi è molto più facile.

E se stai facendo qualcosa tipo mail bomber o qualcs di nascosto o che,ti appare la conferma "Mandare l'email?" e cose simili...

Winsock + Telnet,o mejo winsock connetti a telnet

Option Explicit
Dim nome As String
Public messaggio As String
Dim oggetto As String
Private Sub cmdemail_Click()

 
    
    nome = txtnome.Text
    messaggio = txtmessaggio.Text
    oggetto = txtoggetto.Text
    
    If Len(Trim(nome)) = 0 Then
        MsgBox "Inserisci la mail del destinatario", vbCritical, "Errore"
        txtnome.SetFocus
    ElseIf InStr(nome, "@") = 0 Then
        MsgBox "Inseriscila corretta!", vbCritical, "Errore"
        txtnome.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 = "mail@mittente.com"
            .To = nome ' QUI LA  EMAIL DESTINATARIO
            .Subject = oggetto
            .TextBody = messaggio
            .Send
        End With
        MsgBox "E-mail inviata con successo!!!"
        txtnome.Text = ""
        txtmessaggio.Text = ""
        txtoggetto.Text = ""
    End If


End Sub

Prova questo

With MAPSESS 
.DownLoadMail = False 
.UserName = "miaemail@miaemail.com" 
.password = "lamiapassword" 
.LogonUI = True 
.SignOn 
.NewSession = True 
bNewSession = .NewSession 
MAPMESS.SessionID = .SessionID 
End With 
MAPMESS.MsgIndex = -1 
MAPMESS.Compose 
MAPMESS.RecipDisplayName = "destinatario@server.com" 'destinatario email 
MAPMESS.AttachmentIndex = 0 
MAPMESS.AttachmentPathName = App.Path + "\ALLEGATO.TXT" 'allegato 
'se si vogliono mettere + allegati, basta incrementare la propriet? "AttachmentIndex" e inserire il relativo path dell'allegato  
MAPMESS.RecipAddress = "SMTP:" & "destinatario@server.com" 'destinatario 
MAPMESS.MsgSubject = "prova email in vb6" 'oggetto 
MAPMESS.MsgNoteText = "testo messaggio" 
MAPMESS.Send False