Sending different emails based on checkbox selection

[LukeSept]

Hi, I'm making autorespons in my form. I have already an VBA code to send an email from access using CDO. What I wish to do now is have this mail send diferent statement based on checkbox selection. For example I have an list of products an checkbox next to each product and a send email button. If I press a button without marking any of the checkboxes i send an email with message "I'm so sexy" if i mark any of the checkboxes i get an message "checked produt name" is so sexy.

[June7]

Need VBA code that loops through the dataset. Fairly common topic. Here is a start https://www.accessforums.net/program...ook-21903.html

[LukeSept]

Can't it be done with using for example If ?

Public Function send_email()


Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 587
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "test@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "test"
.Update
End With

' build email parts
With cdomsg
.To = "smb@yahoo.com"
.From = "smb@gmail.com"
.Subject = "Facepalm"

' I put txtCount for counting all the records with selected checkbox fields, since there are only 2 possible outcoms either none of the checkboxes are selected or at least one is.
If Me!txtCount = 0 Then
.TextBody = "Love facepalming. Its awesome"
Else
.TextBody = "I hate you" & RecordName
End If


.Send
End With
Set cdomsg = Nothing
End Function

[June7]

Yes, can dynamically construct body with conditional.

What is RecordName?

Where is the code that loops through records?

Did you test code?