Hello again. Here is the best I can do to send something along. For some reason I can't attach anything.
Private Sub Command28_Click()
On Error GoTo Err_Command28_Click
Dim EmailStr As String
EmailStr = DLookup("Email", "Addresses", "Street=Street")
DoCmd.OpenReport "letter"...