Need Help With E-Mailing.

[Nibles]

I am trying to create an E-Mail program but when I try to make it an .exe. It tells me the SUB OR FUNCTION NOT DEFINED...

Private Sub Winsock1_Connect()

lblStatus = "Connected to POP Server"
Wait 0.5
lblStatus = "Sending mail"

If txtAttach.Text = "" Then
->SendMail txtFromAddress, txtToAddress, txtSubject, _
txtBody, Winsock1
Else
SendMail txtFromAddress, txtToAddress, txtSubject, _
txtBody, Winsock1, txtAttach, txtOutput
End If

lblStatus = "Mail sent"
cmdSend.Enabled = True
lblStatus = "Status:"

End Sub

...the first SendMail with the arrow next to it is the problem. I dont know the code for defining this action or even how to go about fixing it. Please help me. :)nibles@usa.net