MAIS E UM ENDERECO DE EMAIL USANDO WINSOCK TEM COM

Dim rc As String
    rcvbuf = [Ô][Ô]
    sckMail.Connect txtServer, 25
    Do
        Sleep 10
        DoEvents
    Loop Until sckMail.State = sckConnected Or sckMail.State = sckError [ô]Or sckMail.State = 0
    [ô]If sckMail.State = sckError Or sckMail.State = Closed Then GoTo Closed
    
    SendWait rc, [Ô]HELO torget.se[Ô], [Ô]250[Ô]  [ô]Send wich domain we are from
    If rc <> [Ô]00[Ô] Then MsgBox [Ô]SendMail failed.[Ô]: GoTo Closed
        
        SendWait rc, [Ô]MAIL FROM:[Ô] & txtFrom, [Ô]250[Ô]
        If rc <> [Ô]00[Ô] Then MsgBox [Ô]Wrong FROM adress[Ô]: GoTo Closed
        
        [ô]send from adress
        SendWait rc, [Ô]RCPT TO:[Ô] & txtTo, [Ô]250[Ô]
        If rc <> [Ô]00[Ô] Then MsgBox [Ô]Wrong TO adress[Ô]: GoTo Closed
        
        [ô]start message[Ô]
        SendWait rc, [Ô]DATA[Ô], [Ô]354[Ô]
        If rc <> [Ô]00[Ô] Then MsgBox [Ô]SendMail failed[Ô]: GoTo Closed
        
        [ô]send header
        [ô]Send [Ô]Date: [Ô] & Format(Now, [Ô]Long Date[Ô])
        Send [Ô]To: [Ô] & txtTo
        Send [Ô]Subject: [Ô] & txtSubject
        Send [Ô]From: [Ô] & txtFrom
        [ô]if we shoudl include a file, send what delimiter we should yse
        If filename <> [Ô][Ô] Then
            Send [Ô]Mime-Version: 1.0[Ô]
            Send [Ô]Mime-Version: 1.0[Ô]
            Send [Ô]Content-Type: multipart/mixed; boundary=[Ô][Ô]=====================_312475==_[Ô][Ô][Ô]
            sckMail.SendData vbCrLf
            
            Send [Ô]Content-Type: multipart/mixed; boundary=[Ô][Ô]=====================_312475==_[Ô][Ô][Ô]
            sckMail.SendData vbCrLf
        End If
        Send [Ô][Ô]
        If filename <> [Ô][Ô] Then
            Send1 [Ô]--=====================_312475==_[Ô]
            Send1 [Ô]Content-Type: text/plain; charset=[Ô][Ô]us-ascii[Ô][Ô][Ô]
            Send [Ô][Ô]
        End If
        [ô]send mail
        Send txtMsg
        [ô]attachment
        If filename <> [Ô][Ô] Then
            [ô]Send1 [Ô]An attach[Ô]
            Send1 [Ô]--=====================_312475==_[Ô]
            SendTextFile filename
            Send1 [Ô]--=====================_312475==_[Ô]
            Send1 [Ô]Content-Type: text/plain; charset=[Ô][Ô]us-ascii[Ô][Ô][Ô]
            Send [Ô][Ô]
        End If
        
        [ô]end message
        Send vbLf
        SendWait rc, [Ô].[Ô], [Ô]250[Ô]
 [ô]   Next
    [ô]close connection
    Send [Ô]quit[Ô]
    MsgBox [Ô]Email enviado com sucesso[Ô]

Citação:

PASCOAL :
NÃO POSSO USAR O ASPMAIL JA TENTEI E NÃO FUNCIONOU NO SERVIDOR.