I created a button to automatically send an e-mail (see below) ... works fine. However, I would like to view and edit the e-mail before sending. How can I do that? Any help would be appreciated.
DoCmd.SendObject acSendNoObject, , acFormatTXT, Me.Email, Me.CSS_EMail & "; George.green@moody.af.mil", , "Personnel Data Discrepancy", Me.Grade & " " & Me.LName & "," & _
vbCr & vbCr & "We recently noted the following Personnel data discrepancy. Please fix this discrepancy within the next 5 duty days." & vbCr & vbCr & _
" Finding: " & Me.Finding & vbCr & vbCr & _
" Necessary Correction: " & Me.NecessaryCorrection & vbCr & vbCr & _
"Note: We are monitoring this discrepancy until it is closed; therefore, if you're unable to correct " & _
"this issue within the next 5 duty days please drop me an e-mail identifying the circumstances (e.g., TDY, leave, etc.). Thank you for your assistance in this matter." & vbCr & vbCr & "vr" & vbCr & vbCr & vbCr & _
"Mr. Sean Yaw" & vbCr & "Title" & vbCr & _
"Title" & vbCr & vbCr & "Comm (229) 222-2222, DSN 460-3222" & vbCr & "Fax (229) 257-2222", False
DoCmd.GoToControl "LName"
DoCmd.SendObject acSendNoObject, , acFormatTXT, Me.Email, Me.CSS_EMail & "; George.green@moody.af.mil", , "Personnel Data Discrepancy", Me.Grade & " " & Me.LName & "," & _
vbCr & vbCr & "We recently noted the following Personnel data discrepancy. Please fix this discrepancy within the next 5 duty days." & vbCr & vbCr & _
" Finding: " & Me.Finding & vbCr & vbCr & _
" Necessary Correction: " & Me.NecessaryCorrection & vbCr & vbCr & _
"Note: We are monitoring this discrepancy until it is closed; therefore, if you're unable to correct " & _
"this issue within the next 5 duty days please drop me an e-mail identifying the circumstances (e.g., TDY, leave, etc.). Thank you for your assistance in this matter." & vbCr & vbCr & "vr" & vbCr & vbCr & vbCr & _
"Mr. Sean Yaw" & vbCr & "Title" & vbCr & _
"Title" & vbCr & vbCr & "Comm (229) 222-2222, DSN 460-3222" & vbCr & "Fax (229) 257-2222", False
DoCmd.GoToControl "LName"