Winsock1 problemer

Jeg er ved at lave et mail program i vb6 som skal kunne sende en mail unden om Microsoft outlook.

Jeg har fundet følgende eks.

Jeg har lidt problemer med "RemoteHost" hvad skal jeg skrive her?? Jeg får 6 i "Winsock1.State"

Den bliver åbenbart ikke connected til RemoteHost .  "Kan jeg tage SMTP adressen fra outlook?"

Hvad skriver jeg i "afsender" ; "modtager" ; "DATA"

Winsock1.RemotePort = 25
    Winsock1.RemoteHost = "min mailserver" 'use your mail server
    Winsock1.Connect     
   
    Do Until Winsock1.State = 7 '7=connected
        DoEvents
    Loop
    sRes = "0"
   
        Winsock1.SendData "MAIL FROM: " & "afsender" & vbCrLf
    Do Until sRes = "250"
        DoEvents
    Loop
    sRes = "0"
   
Winsock1.SendData "RCPT TO: " & "modtager" & vbCrLf
    Do Until sRes = "250"
        DoEvents
    Loop
    sRes = "0"
   
        Winsock1.SendData "DATA" & vbCrLf
    Do Until sRes = "354"
        DoEvents
    Loop
   
        Winsock1.SendData "FROM: " & your_name_here & vbCrLf
        Winsock1.SendData "SUBJECT: " & subject_here & vbCrLf
        Winsock1.SendData Text2.Text & vbCrLf & "." & vbCrLf
    Do Until sRes = "250"
    DoEvents
    Loop
    Winsock1.Close
    MsgBox "Mail sent!"