DoCmd.OpenReport "Booking Information", acViewPreview, wherecondition:=strWhereCond
DoCmd.SendObject acSendReport, "Booking Information", acFormatHTML, strAddress, , , _
"Booking Information", strMessage, True
DoCmd.Close acReport, "Booking Information"...