[Resolvido]Envio de e-mail com mensagem do corpo personalizada !

Colegas, boa tarde.

no código abaixo, estou com um grade problemas em mãos.

Código:

Set mens = CreateObject("CDO.Message")
Set config = CreateObject("CDO.Configuration")


With config

'Informações da conta de e-mail de quem está enviando (no caso configurado para g-mail)
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxxxxxxxxxxxxx"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxx"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
End With

Set mens = New CDO.Message

With mens
Set .Configuration = config
'Quem está enviando o e-mail
.From = "xxxxxxxxxx"
'E-mail de quem envia
.Sender = "xxxxxxxxxxxxxx"
'
.Subject = "Assunto aqui"
'Corpo da Mensagem do e-mail
[color=#ff3333].HTMLBody = "seu texto aqui"  ===tem como buscar os dados das caixas de texto do formulario ?[/color]
                  

[color=#ff3333]'.To = "usuario@mailqualquer.com.br"  ====> tem como buscar no formulário esse mail ?[/color]
    
.Send
End With
    
MsgBox "E-mail's enviado com sucesso.", vbInformation, Me.Caption




Explicando,

Coloquei a função descrita acima em um botão de envio e gostaria que ele pegasse os dados que estão nas caixas de texto e coloca-se esse dados no
.HTMLBody, deixando mais personalizado ainda, pois haverá muitas mudanças de nomes.

Segue em anexo, um printscreen da tela com os campos, para ficar mais simples o entendimento dos colegas.

Grato

Boas....

Uma parte já esta resolvida. No forms, criado uma caixa de texto, inserido um texto através do vba.
No código usado o replace ficando assim:

.TextBody = Me.txtmensagem

.HTMLBody = Replace(Me.txtmensagem, vbCrLf, "
")

Agora vamos para o destinatário.

Resolvido da seguinte forma.

.to =me.mail

E acabaram os problemas !

Dessa forma posso enviar vários e-mails para várias pessoas, mudando inclusive a mensagem no caixa txtmensagem.

Se deixar a mesma em RichText, pode-se usar o formatdo HTML.

Aqui funfou legal !