1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

converter string p/ bold em vb

Discussão em 'Programação' iniciada por Rato, 3 de Outubro de 2006. (Respostas: 8; Visualizações: 2162)

  1. Boas ppl,

    como consigo apresentar uma string ou converter um pedaço duma string para bold?

    O resultado final que eu quero é colocar uma string com pedaços a bold. (n para html, código mm)

    ex: quero uma string a bold.
     
  2. Kayvlim

    Kayvlim Undefined Moderator
    Staff Member

    Especifica, sff

    Tens uma string. "Hello World, this is me!".
    Queres passar "World" para bold
    "Hello World, this is me!"

    Mas... ONDE?
    Uma string não tem bold. Tem apenas caracteres.
    Numa textbox não podes decidir o que é que queres a bold. Ou é tudo, ou nada.

    O que queres pode estar numa RichTextBox... se não for, posta de novo, mas especifica ;)

    Cumps [[[[[[[[[[]]]]]]]]]]
    angelofwisdom
     
  3. eu tenho um evento sobre um botão de um form em access que me gera um email a enviar.
    O texto que eu passo para esse email quero que certas partes de uma string apareçam no mail a bold.

    se me disseres como ponho uma string a bold já deve chegar. Provavelmente dará para concatenar strings.
     
  4. Kayvlim

    Kayvlim Undefined Moderator
    Staff Member

    Como eu disse, uma string é apenas um grupo de caracteres. Uma string não fica bold.

    Num e-mail, quando existe alguma coisa que NÃO É plain text, então é automaticamente HTML. Portanto, <b>qualquer coisa</b> é o que terás de fazer.
    Tens de aplicar headers MIME, para indicar que "aquilo" é HTML, porque sem elas [as headers, entenda-se] as tags aparecem como se fossem letras normais (isto é, são texto e não tags).

    Um exemplo muito rascunhado:

    Código:
    <headers do e-mail>
    Content-type: multipart/mixed; boundary="divisao"
    MIME-version: 1.0
    
    --divisao
    Content-type: text/html
    
    Aqui vai a mensagem <b> em bold </b> mas em HTML.
    Espero que ajude ;)
    O que queres, basicamente (e se eu entendi correctamente), é como enviar um e-mail como HTML.
     
  5. Este é o procedimento que eu tenho para o referido botão...
    Onde coloco esse MIME? e como aplico àquele pedaço?

    Private Sub MAILFORMALSEM_Click()
    '******begin code******

    Dim email As String
    Dim ref As String
    Dim origin As String
    Dim destination As String
    Dim notes As String


    '**create variables for Outlook
    Dim objOutlook As Outlook.Application
    Dim objEmail As Outlook.MailItem

    '**gathers information from your form. this sets the string variable to your fields
    email = Email_Contacto.Value
    ref = "Integração"
    origin = ""
    destination = ""
    notes = "Colocar pedaço deste texto em bold"


    '***creates an instance of Outlook
    Set objOutlook = CreateObject("Outlook.application")
    Set objEmail = objOutlook.CreateItem(olMailItem)

    '***creates and sends email
    With objEmail
    .To = email
    ' If Not IsNull(your CC email field name) then
    .CC = "[email protected]"
    ' End If
    '.Subject = ref & " " & origin & " To " & destination
    .Subject = ref & " " & origin & " " & destination
    .Body = notes & notes1 & notes2 & notes3

    ' .Attachments.Add "\\abcde.pdf", , 774
    ' .Send 'sends the email in Outlook. Change to DISPLAY if you want to be able t
    'modify or see what you have created before sending the email
    .Display


    End With

    '**closes outlook
    'objOutlook.Quit
    Set objEmail = Nothing

    End Sub
     
  6. SoundSurfer

    SoundSurfer Power Member

    Faz como o angelofwisdom disse, mete o "<b>texto</b>" e experimenta.

    Se não funcionar, procuras nas propriedades dos objectos de mail que estás a utilizar... tem de haver um sítio onde se define o tipo de mensagem (Text / Html).
     
  7. Kayvlim

    Kayvlim Undefined Moderator
    Staff Member

    Não sei ao certo... nunca trabalhei com o Outlook.
    Se tiver um .Headers, deve ser lá.
    Se não tiver, podes fazer um workaround (se resultar): Subject = <Assunto> & vbCrLf & Headers ;)

    Headers será o código que te dei em cima, da header MIME

    "Content-type: multipart/mixed; boundary='divisao'" & vbcrlf & "MIME-version: 1.0" & vbcrlf & vbcrlf & "--divisao" & vbcrlf & "Content-type: text/html" & vbcrlf

    notes = "Colocar <b>pedaço deste</b>texto em bold"

    Experimenta. Se não resultar, diz-me o que aconteceu para eu tentar perceber como se faz ;)
    edit -> Não te esqueças que eu estou a escrever isto Hard-coded, portanto se encontrares algum erro de sintaxe, corrige-o xD não me digas "não dá porque tens duas aspas juntas" ;)
     
  8. Sabes um link onde eu possa encontrar ou procurar informação sobre o envio de mails em html a partir de access ou de um evento numa outra aplicação?
     
  9. SoundSurfer

    SoundSurfer Power Member

Partilhar esta Página