QUEBRAR LINHA DA TEXTBOX AO ENVIAR EMAIL

 Tópico anterior Próximo tópico Novo tópico

QUEBRAR LINHA DA TEXTBOX AO ENVIAR EMAIL

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#444024 - 26/01/2015 11:57:17

MARIOANDRADE
SANTO ANTONIO DE JESUS
Cadast. em:Abril/2012


Meus amigos, gostaria de saber se alguém conhece um  método para quebrar linhas em uma textbox ao enviar email, eis o código que utilizo:

    If txtEmail1.Text <> "" Then  
        Dim iMsg As CDO.Message
        Dim iConf As CDO.Configuration
        Dim Flds
        Dim Nome, Cliente, Conteudo As String
        Dim Assunto As String
        Dim Email As String
        Dim Senha As String
        Dim schema As String
            
            Assunto = txtAssunto.Text
            Nome = txtApelido.Text
            Cliente = txtEmail1.Text
            Conteudo = txtTexto.Text
            Email = txtCEmail.Text
            Senha = txtSenha.Text
            
        Set iMsg = CreateObject("CDO.Message")
        Set iConf = CreateObject("CDO.Configuration")
        Set Flds = iConf.Fields
    
        schema = "http://schemas.microsoft.com/cdo/configuration/"
        Flds.Item(schema & "sendusing") = 2
        Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
        Flds.Item(schema & "smtpserverport") = 465
        Flds.Item(schema & "smtpauthenticate") = 1
        Flds.Item(schema & "sendusername") = Email
        Flds.Item(schema & "sendpassword") = Senha
        Flds.Item(schema & "smtpusessl") = 1
        Flds.Update
    
        With iMsg
        .To = Cliente
        .From = Email
        .Subject = Assunto
        .HTMLBody = Nome & "," & " " & Conteudo
        '.AddAttachment "C:\Relatorio.xlsx"
        Set .Configuration = iConf
        .Send
        End With
        
        Set iMsg = Nothing
        Set iConf = Nothing
        Set Flds = Nothing
    End If


Agradeço a todos que possam ajudar.



Cursos de Excel e VB6:
cursoexcelvba.com.br



#444025 - 26/01/2015 12:35:09

TUNUSAT
SAMPA
Cadast. em:Dezembro/2003


Última edição em 26/01/2015 13:44:46 por TUNUSAT

M4R10,

   Experimente colocar a constante:
   - vbCrLf (Visual Basic Carriage Return Line Feed);

   Veja mais em:
=======================================================================
Constants.vbCrLf Field
https://msdn.microsoft.com/en-us/library/microsoft.visualbasic.constants.vbcrlf(v=vs.110).aspx
=======================================================================
Visual Basic 6.0: 3 line MsgBox using vbCrLf control
https://www.youtube.com/watch?v=AVLK9uXr5QA
=======================================================================

     A idéia seria esta:
     Você faria um "looping" dentro da string, pegando, por exemplo "60" posições.
     A cada quebra enxertaria o "VbCrLf".

     Outra forma que não sei se dá certo, seria que dentro das propriedades da Text Box existe uma opção chamada "MultiLine".


[]'s,
Tunusat.


Haja, pois, o que houver, ampliem-se obstáculos, agigantem-se problemas, intensifiquem-se lutas ou se agravem provações, trabalha sempre no bem de todos, porque, trabalhando na Seara do Bem, podes conservar a certeza de que Deus te sustentará. Emmanuel.

#444027 - 26/01/2015 12:58:37

MARCELO-TREZE
SAO VICENTE
Cadast. em:Abril/2009


Mario se a txtTexto for uma textbox multiline, teoricamente ao escrever a mensagem ela deveria ser enviada  com as quebras de linhas.




________________________________________________________________________________________
O orgulho cega até os sábios, ao ponto de não percebam que não são tão sábios como pensam.



#444038 - 26/01/2015 15:53:56

MARIOANDRADE
SANTO ANTONIO DE JESUS
Cadast. em:Abril/2012


Citação:
:
Mario se a txtTexto for uma textbox multiline, teoricamente ao escrever a mensagem ela deveria ser enviada  com as quebras de linhas.




Foi exatamente o que eu pensei mas na prática isso não acontece.

Cursos de Excel e VB6:
cursoexcelvba.com.br



#444039 - 26/01/2015 15:56:13

MARIOANDRADE
SANTO ANTONIO DE JESUS
Cadast. em:Abril/2012


TUNASAT,
eu tentei usar o vbCrLf mas não obtive resultado, como seria esse loop?

Cursos de Excel e VB6:
cursoexcelvba.com.br



Resposta escolhida #444044 - 26/01/2015 18:54:46

FILMAN
PRESIDENTE PRUDENTE
Cadast. em:Março/2010


Última edição em 26/01/2015 18:56:23 por FILMAN

Como esta enviando em HTML o e-mail você deve fazer assim

Conteudo = "<br /><br />" & Replace(txtTexto.Text, VbCrLf, "<br />")


Creio que resolverá o seu problema!


  
  
Instruir-te-ei, e ensinar-te-ei o caminho que deves seguir; guiar-te-ei com os meus olhos. (Salmos 32:8)

www.cursoexcelvba.com.br

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por MARIOANDRADE em 26/01/2015 19:10:29