' Rename Field1 etc. to appropriate names
Function SendMail(From,Rcpt,Subject,Body,Field1,Field2,Field3)
Trim(From)
Trim(Rcpt)
Trim(Field1)
' and so on - Trim removes trailing and leading blanks from the field

If Len(From) < 1 Then  
ReportError strError & "<br>No email address entered"
End If

If Len(Field1) < 1 Then  
ReportError strError & "<br>No Field1 entered"
End If

' and so on