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 know that I need to define the action, but I dont know the code for defining this action or even how to go about fixing it. Please help me. [email protected]

[Edited by Nibles on 07-27-2000 at 02:56 AM]

[Sacofjoea]

You have to declare what the function does...

[V(ery) Basic]

Like:

Sub SendMail (smSender as String, smRecipient as String, smSubject as string, smBody as String, smWinsockCtrl As Winsock ' or whatever you call it)
'Do the stuff
End Sub