Check boxes can have values of TRUE, FALSE or NULL. So I always set the default value for a check box to FALSE.
Because I don't know the default value for your check boxes, I had to use the NZ() function.
I changed the code (a little)....
Code:
Private Sub Command6_Click()
Dim fd As FileDialog
Dim myval As String
Dim myval2 As String
Dim myval3 As String
Dim vBodyMsg As String
Dim vCheck0 As Integer
Dim vCheck2 As Integer
Dim vCheck4 As Integer
Dim oApp As Object
Dim objItem As Object
Dim oMail As Outlook.MailItem
Set oMail = objItem
' get the values of the check boxes
' If null, change to 0
vCheck0 = Nz(Me.Check0, 0)
vCheck2 = Nz(Me.Check2, 0)
vCheck4 = Nz(Me.Check4, 0)
' was at least one check box selected before sending email?
If (vCheck0 + vCheck2 + vCheck4) = 0 Then
msgbox "Please select at least one option" & vbNewLine & "Exiting....."
Exit Sub
End If
' initialize variables to default values
myval = ""
myval2 = ""
myval3 = ""
' now check which check boxes are selected
If vCheck0 = True Then
myval = "Point File"
End If
If vCheck2 = True Then
myval2 = "Word doc"
End If
If vCheck4 = True Then
myval3 = "Description"
End If
' create the body of the message
vBodyMsg = "<HTML><HEAD><Font Size= 1><style> table, th, td </style> </HEAD> <BODY><br><p>"
vBodyMsg = vBodyMsg & "Dear reader.</p>"
vBodyMsg = vBodyMsg & "You have added the following file/s:<br>"
'only add if check box is true
If vCheck0 Then
vBodyMsg = vBodyMsg & "<P>" & myval & "<p>"
End If
If vCheck2 Then
vBodyMsg = vBodyMsg & "<P>" & myval2 & "<p>"
End If
If vCheck4 Then
vBodyMsg = vBodyMsg & "<P>" & myval3 & "<br></p>"
End If
vBodyMsg = vBodyMsg & "<P>Have a freaking great day!<p>"
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.InitialFileName = "C:\Documents\ToStoreIn"
fd.Show
Set oApp = CreateObject("Outlook.application")
Set oMail = oApp.CreateItem(olMailItem)
oMail.HTMLBody = vBodyMsg
oMail.Subject = "File/s uploaded into folder"
oMail.To = " "
oMail.BodyFormat = 3
oMail.Display
Set oMail = Nothing
Set oApp = Nothing
Set fd = Nothing
End Sub