sendobject problem

[AJ]

Can someone tell me why this code on a check button works sometimes and
doesn't others?
msgstring1 = IIf(Me.Combo464 = 0, "", Me.Combo464.Column(1) & ";")
msgstring2 = IIf(Me.Assigned_To_2 = 0, "", Me.Assigned_To_2.Column(1) & ";")
msgstring3 = IIf(Me.Assigned_To_3 = 0, "", Me.Assigned_To_3.Column(1) & ";")
Msgstring4 = IIf(Me.Assigned_To_4 = 0, "", Me.Assigned_To_4.Column(1) & ";")
Msgstring8 = IIf(Me.Assigned_To_5 = 0, "", Me.Assigned_To_5.Column(1) & ";")
Msgstring9 = IIf(Me.Assigned_To_6 = 0, "", Me.Assigned_To_6.Column(1) & ";")
Msgstring10 = IIf(Me.Assigned_To_7 = 0, "", Me.Assigned_To_7.Column(1) & ";")
Msgstring5 = IIf(Me.Validation_Required = 0, "", "(e-mail address removed);")
Msgstring6 = IIf(Me.Stability_Required = 0, "", "(e-mail address removed);")
Msgstring7 = IIf(Me.MVTR_Required = 0, "", "(e-mail address removed)")
eaddress = msgstring1 & msgstring2 & msgstring3 & Msgstring4 & Msgstring8 &
Msgstring9 & Msgstring10 & Msgstring5 & Msgstring5 & Msgstring7
Mess1 = "Assigned to - " & Me![Combo464].Column(1) & Chr(10) & "Assignment:
" & Me![Documents 1] & Chr(10) & "Date Due: " & Me![1 Due Date] & Chr(10) &
Chr(10)
Mess2 = "Assigned to - " & Me![Assigned To 2].Column(1) & Chr(10) &
"Assignment: " & Me![Documents 2] & Chr(10) & "Date Due: " & Me![2 Due Date]
& Chr(10) & Chr(10)
Mess3 = "Assigned to - " & Me![Assigned To 3].Column(1) & Chr(10) &
"Assignment: " & Me![Documents 3] & Chr(10) & "Date Due: " & Me![3 Due Date]
& Chr(10) & Chr(10)
Mess4 = "Assigned to - " & Me![Assigned To 4].Column(1) & Chr(10) &
"Assignment: " & Me![Documents 4] & Chr(10) & "Date Due: " & Me![4 Due Date]
& Chr(10) & Chr(10)
Mess8 = "Assinged to - " & Me![Assigned to 5].Column(1) & Chr(10) &
"Assignement: " & Me![Documents 5] & Chr(10) & "Date Due: " & Me![5 Due
Date] & Chr(10) & Chr(10)
Mess9 = "Assinged to - " & Me![Assigned to 6].Column(1) & Chr(10) &
"Assignement: " & Me![Documents 6] & Chr(10) & "Date Due: " & Me![6 Due
Date] & Chr(10) & Chr(10)
Mess10 = "Assigned to - " & Me![Assigned to 7].Column(1) & Chr(10) &
"Assignement: " & Me![Documents 7] & Chr(10) & "Date Due: " & Me![7 Due
Date] & Chr(10) & Chr(10)
Mess5 = IIf(Me.Validation_Required = 0, "", "Jim Validation Required" &
Chr(10) & Chr(10))
Mess6 = IIf(Me.Stability_Required = 0, "", "Jim Stability Requried" &
Chr(10) & Chr(10))
Mess7 = IIf(Me.MVTR_Required = 0, "", "Mylissia MVTR Required")
Mess = Mess1 & Mess2 & Mess3 & Mess4 & Mess8 & Mess9 & Mess10 & Mess5 &
Mess6 & Mess7

DoCmd.SendObject acSendNoObject, , , eaddress, , , "Change Control
Assignments for CCR# - " & Me![Change Request #], Mess, , False

End Sub

Thanks in advance