Excel quebra de linhas dentro vba

[djacy.neto]

pessoal, 

 

eu estou com um uma macro para envio de email, eu não sei como fazer para que o texto do email tenha uma quebra de linha

Sub envio()
' Seleciona o intervalo de células a serem enviadas por email.
   Sheets("Planilha1").Select
   ActiveSheet.Range("C2:D4").Select
 Application.CutCopyMode = False
   Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
        
   ActiveWorkbook.EnvelopeVisible = True
  
   With ActiveSheet.MailEnvelope
      .Introduction = "Bom dia! Segue Teste de envio por macro parte 1."
      .Item.To = "[email protected]"
      .Item.Subject = "Quadro1"
      .Item.Send
   End With
   End Sub

 

queria quebrar a linha para aparecer assim:

Bom dia!

Segue Teste de envio por macro parte 1

[Edson Luiz Branco]

Bem vindo, @djacy.neto

 

Tente assim:

.Introduction = "Bom dia!" & vbCrLf & "Segue Teste de envio por macro parte 1."