[Resolvido]Mensagem que acompanha o envio de anexo por email

Pessoal, blz...

Tenho esse codigo no formulario que envia anexo por email:

Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.BodyFormat = olFormatRichText
.To = Me.Email_Address
.CC = Me.Email_Address2
.Subject = Me.Mess_Subject
.HTMLBody = Me.mess_text
.Body = "Segue anexo o Contrato de Prestação de Serviços Contratado" & vbNewLine & "Havendo qualquer divergência entrar em contato" & vbNewLine & "Atenciosamente"
If Left(Me.Mail_Attachment_Path, 1) <> "<" Then
.Attachments.Add (Me.Mail_Attachment_Path)
End If
'.DeleteAfterSubmit = True 'This would let Outlook send th note without storing it in your sent bin
.Send
End With
'MsgBox MailOutLook.Body
MsgBox "Menssagem enviada com sucesso"

O que acontece é que depois que eu coloquei a linha .Body, o que eu digito no formulario no campo mess_txt (onde digito uma mensagem qualquer) não aparece no email enviado.

O que estou fazendo de errado?

Abs

não pode ter dois body`s

ou um ou o outro

.HTMLBody =
.Body =

Perfeito Ricardo, Tks...

Mudei o codigo para:

.Body = Me.mess_text & vbNewLine & "Havendo qualquer divergência entrar em contato" & vbNewLine & "Atenciosamente"
If Left(Me.Mail_Attachment_Path, 1) <> "<" Then
.Attachments.Add (Me.Mail_Attachment_Path)
End If
Ultima: como eu posso fazer ele pular duas linhas entre o mess_text e o "Havendo qualquer...

Abs

Luis
Repita o procedimento:

Body = Me.mess_text & vbNewLine & vbNewLine & "Havendo qualquer divergência entrar em contato"...

Vieira, TKSSSSSSSSSSS

Abração

Bom trabalho e obrigado pelo retorno. O fórum agradece