carattere corsivo o grassetto per email

Buona giornata, chiedo cortesemente aiuto per poter cambiare il carattere in cella C15

Come si vede nel file sotto, ho una macro che invia una email utilizzando delle celle come riferimento per il testo da inviare.

Ho la necessità di cambiare il font (cella C15) in corsivo o grassetto, ma non riesco a capire come devo modificare la riga: ...& vbCrLf & Range("c15") &...

ringrazio per l'aiuto che mi donerete...




Sub emailelencoospiti()
Dim Email_Subject, Email_Send_From, Email_Send_To, _
Email_Cc, Email_Bcc, Email_Body As String
Dim Mail_Object, Mail_Single As Variant
Email_Subject = Range("c9") & " " & Range("cs18") & " " & Range("cs18")
Email_Send_To = Range("cs14")
Email_Cc = Range("cs18")

Email_Body = Range("cs2") & "" & vbCrLf & _
"" & vbCrLf & Range("c15") & _
" data ingresso " & Range("u15") & _
"" & vbCrLf & Range("c17") & _
"" & vbCrLf & vbCrLf & vbCrLf & Range("c21") & _
" data ingresso " & Range("u21") & _
"" & vbCrLf & Range("c23") & _
"" & vbCrLf & vbCrLf & vbCrLf & Range("c27") & _
"" & vbCrLf & Range("c29") & _
"" & vbCrLf & vbCrLf & vbCrLf & Range("cs12")

On Error GoTo debugs
Set Mail_Object = CreateObject("Outlook.Application")
Set Mail_Single = Mail_Object.CreateItem(0)
With Mail_Single
.Subject = Email_Subject
.To = Email_Send_To
.CC = Email_Cc
.BCC = Email_Bcc
.body = Email_Body
.Display
End With
debugs:
If Err.Description <> "" Then MsgBox Err.Description
End Sub

Ciao, ma il font credo dovresti cambiarlo sul foglio, non nella macro.

Ciao By Sal

ciao By Sal, grazie per la tua risposta, come suggerisci tu ho provato a cambiare il font sul foglio excel, ma senza ottenere alcun cambiamento. Ho provato con: il codice em o b tra virgolette ma senza risultato....

Ciao Giampag ed un saluto a Salvatore.

Non credo che pur cambiando lo stile (grassetto, corsivo etc.) questo venga riportato sulla mail.

Per riportare su una mail un intervallo formattato occorre trasformarlo in un pagina HTML che va inserita nella mail.

Per far questo ti invito a leggere questo link

https://www.rondebruin.nl/win/s1/outlook/bmail2.htm

Sembra difficile ma se hai un po' di dimestichezza con il VBA non è tanto complicato.

grazie Alfredo per la tua disponibilità a risolvere il problema. Vorrei tanto dirti che ho fatto, ma non è così. Non ho molta dimestichezza con vba, tuttavia ho provato a fare qualche cambiamento, ma nulla!!!...

Dovresti allegare un file di esempio e mostrarci il risultato che vuoi ottenere.

Io però fino a lunedì difficilmente potrò rispondere.

grazie della tua disponibilità. Ho allegato un esempio utilizzando le stesse celle del file originale.

grazie per quello che potrai fare

carissimo Alfredo, mi sono permesso di inviare alcune foto che mostrano le varianti che dovrebbero essere presenti...
una foto mostra la situazione attuale, mentre l'altra foto ci mostra come dovrebbe essere

grazie a presto

Ciao Giampag e scusa il ritardo della risposta.

Ti allego file con le macro inserite (non mie ma prese dal sito di Ron De Bruin).

La macro è associata al pulsante sul foglio.

caro Alfredo, infinite grazie per il tuo lavoro e la tua disponibilità, ringrazio anche chi indirettamente ha contribuito.... a presto