Entendo o <enter> no fim da mensagem de e-mail.

Question

Ola,

Desenvolvi no Access uma forma de envio de e-mail através do Do.cmd e agora tenho que somente adicionar uma carta padrão no corpo do e-mail.

A minha dúvida é como fazer o VBA reconhecer que o texto possui diversas linhas, ou seja, uma layout padrão da carta que deve ser respeitado.

Em outras palavras, há alguma forma de fazer o VBA entender o <enter>  no fim do texto?

 

 

Answer 1

Veja se este procedimento te ajuda.

Quando uso o excel para realizar envio de e-mails uso um código como esse.

Como pode ser visto no exemplo, para realizar a quebra de linhas, utilizo a concatenação da cadeia de texto com a constante vbLf.

 

Code Snippet

Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
Set myAttachments = myItem.Attachments
  
  
Texto = "Aqui vc pode digitar o texto do corpo do email."
Texto = Texto & vbLf & "A constante vbLf serve para realizar a quebra de linha."
Texto = Texto & vbLf & "Várias cadeias podem ser concatenadas para montar um texto." grande."
With myItem
    .To = teste@domínio.com.br
    .Subject = "Envio de mensagem"
    .Body = Texto
    .Save
    .Send
End With

 

 

[ ]s

 

Answer 2

 

Valeu Adilson!!!

 

Vou ser se funciona!

 

Obrigadão!

Answer 3

Às ordens.

Depois avisa se funcionou, ok?

[ ]s