SendMAil64

If Text5.Text <> "" Then
Base64EncodeFile Text5.Text, RichTextBox1, Text1
End If

ConnectToServer "dudley.majordomos.com", Winsock1

Private Sub Command1_Click()
Command1.Enabled = False
If Text5.Text <> "" Then
Base64EncodeFile Text5.Text, RichTextBox1, Text1
End If
ConnectToServer "dudley.majordomos.com", Winsock1
End Sub

Private Sub Winsock1_Connect()
mailSend Text2.Text, Text3.Text, Text4.Text, Text6, Winsock1, Text5.Text, Text1
Command1.Enabled = True
End Sub

'in the Connect Event of your winsock control add this


mailSend text2.text, text3.text, text4.text, Text6, _
Winsock1, Text5.Text, Text1