records body of the alone e-mail

[Frank Dulk]

I am using that procedure for all the information that are in the form
diffusing and you place in the body of the alone e-mail that are several
records and I have to place all separated by a line, using that procedure
places several times the same record. Somebody can help


Sub SubEnvio()
Dim StrBody As String


Dim mOut As New Outlook.Application
Dim Mens As Outlook.MailItem


Set Mens = mOut.CreateItem(olMailItem)

With Mens

..Recipients.Add ("(e-mail address removed)")


..Subject = it " Exists it Exists " & Me.TxtContEmailPendenteAnalise & "
denounce pendants of you analyze "
DoCmd.GoToRecord , , acFirst
For i = 1 To TxtContEmailPendenteAnalise

StrBody = _
" Accusation entered in the database for: " & Me.Combinação60.Column(1) &
vbCr & _
"Data Denúncia:" & Me.txtdatden & vbCr & _
"Tipo Denúncia: " & Me.Cbocodtipoden.Column(1) & vbCr & _
"UC: " & Me.CboUc.Column(1) & vbCr & _
"Municipio: " & Me.CboUc.Column(2) & vbCr & _
"Denúncias: " &
Forms!FrmDenunciaPendendeAnaliseEmail!FrmDetalhesDenuncia!Denuncia.Column(1)
& vbCr & _
"OBS: " & Me.obs & vbCr
StrBody = StrBod StrBody
DoCmd.GoToRecord , , acNext

Next

..Body = StrBody


..Send
DoCmd.SetWarnings False
DoCmd.OpenQuery "QryAtualizaEnviaEmialAnalisePendente"
DoCmd.SetWarnings True
End With