Creating Multiple Appointments from one form

[Roku]

Glad to have helped

You might consider putting

.Subject = Nz(DLookup("EmailSubject", "tblEmail"), "")

in case DLookup returns Null. Note also that I have removed the square brackets because they're not necessary and dropped the third parameter, because it's optional.