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

  • Pergunta

  • 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?

     

     

    sexta-feira, 7 de março de 2008 14:42

Respostas

  • 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

     

    sexta-feira, 7 de março de 2008 15:53

Todas as Respostas

  • 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

     

    sexta-feira, 7 de março de 2008 15:53
  •  

    Valeu Adilson!!!

     

    Vou ser se funciona!

     

    Obrigadão!

    sexta-feira, 7 de março de 2008 16:54
  • Às ordens.

    Depois avisa se funcionou, ok?

    [ ]s

     

    sexta-feira, 7 de março de 2008 17:35