I have a change of address form with this code to open a report for the current record.I have a button that I want to have send an email to a specified person regarding the change. I have the below code to send an email and my question is how do I set it to just send for the current record only, just like the report opens for?Code:Dim strWhere As String If Me.Dirty Then 'Save any edits Me.Dirty = False End If If Me.NewRecord Then 'Check these is a record to print MsgBox "Select a record to print" Else strWhere = "ID = " & Me.ID DoCmd.OpenReport "ClientOldAddressLetter", acViewPreview, , strWhere End IfCan I put the report code in here some here? I can't seem to get it.Code:On Error GoTo SendEmail_Err Dim myOlApp As Object Dim myNameSpace As Object Dim myFolder As Object Dim myItem As Object Dim myAttachments, myRecipient As Object Dim recipient As String Dim file_name As String Dim mySubject As Object Dim dbs As Object Dim rst As Object Dim strSql As String strSql = "ClientChangeOfAddressQRY" Set dbs = CurrentDb Set rst = dbs.OpenRecordset(strSql) rst.MoveFirst While Not rst.EOF recipient = "example@example.com" Set myOlApp = CreateObject("Outlook.Application") Set myItem = myOlApp.CreateItem(olMailItem) Set myAttachment = myItem.Attachments Set myRecipient = myItem.Recipients.Add(recipient) myItem.CC = "example@example.com" myItem.Subject = "Example" myItem.Body = "Example" myItem.Display rst.MoveNext Wend 'DoCmd.Close acForm, "ClientChangeOfAddress" Set myRecipient = Nothing Set myAttachments = Nothing Set myItem = Nothing Set myOlApp = Nothing Set rst = Nothing SendEmail_Exit: Exit Sub SendEmail_Err: MsgBox Err.Description Resume SendEmail_Exit End Sub