Download Dynamic Mass Marketing Processor

Private Sub FindDir_Click()
Dim sLogFile As String
sLogFile = BrowseFolder("Browse for folder")
TheDir.Value = sLogFile
If sLogFile <> "" Then
MsgBox "You selected directory: " & _
Else
sLogFile
MsgBox "No directory selected."
End If
End Sub
Private Sub Form_Load()
If [Doc_IncService] = -1 Then
DFSaleServ.Enabled = True
DFMileType.Enabled = True
DFMileage.Enabled = True
End If
End Sub
Private Sub SaveDoc_Click()
On Error GoTo Err_SaveDoc_Click
Dim Missing As String
Missing = "The following fields are required:" & vbCrLf & vbCrLf
If DFName.Value = "" Then
Missing = Missing & "Document Name" & vbCrLf
DFName.BackColor = "8421631"
End If
If DFType.ListIndex = -1 Then
Missing = Missing & "Send To" & vbCrLf
45