converter string p/ bold em vb
- Autor do tópico Rato
- Data Início
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
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
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.
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.
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:
Espero que ajude
O que queres, basicamente (e se eu entendi correctamente), é como enviar um e-mail como HTML.
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.
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
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
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).
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).
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"
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"
SoundSurfer
Power Member
http://msdn2.microsoft.com/en-us/library/ms268893.aspx
http://msdn.microsoft.com/library/d...-us/vbaol11/html/olobjMailItem_HV05247822.asp
em vez de ".Body = notes & notes1 & notes2 & notes3",
metes
".HTMLBody = notes & notes1 & notes2 & notes3" pelo que percebi desse uktimo link.
http://msdn.microsoft.com/library/d...-us/vbaol11/html/olobjMailItem_HV05247822.asp
em vez de ".Body = notes & notes1 & notes2 & notes3",
metes
".HTMLBody = notes & notes1 & notes2 & notes3" pelo que percebi desse uktimo link.