email signature does not show

[0 Agios]

I have this code that works, but does not produce the email signature in outlook. Any help would be apricated.


Private Sub CommandButton42_Click()
' ActiveSheet.Protect Password:="786", DrawingObjects:=False, Contents:=False, Scenarios:=False _
, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
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 = TextBox1.Value & " " & " Just following up on this bid. "

Email_Send_To = TextBox13.Text
Email_Cc = ""
'Email_Bcc = ""
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

.HTMLBody = " Do you have any updates on this project? We would love to do this job with you. Please let me know if you need anything on it, tweak the numbers to make this work etc. Thank you."




.Display
End With
debugs:
If Err.Description <> "" Then MsgBox Err.Description
'TextBox12.Value = "Chris send this job. " & Now()
'ActiveCell.Offset(0, 1).Cells.Interior.Color = RGB(249, 249, 165)
Unload Me
End Sub

 

[HaHoBe]

Hi,

Insert Outlook Signature in mail should help.

Ciao,
Holger

 

[0 Agios]

it worked great, however there is one thing I would like to change instead of
"<H3><B> blablabla </B></H3>"

I need textbox1.text to show in bold

 

[HaHoBe]

Hi,

from what I know it´s not possible.. Are you able to do it manually in any new mail you create? Besides: any new mail in the Inbox of any program I worked with till now is shown as bold if unread but in normal after reading. So why should your mail`s subject be in bold no matter if it´s read or not?

Ciao,
Holger

 

[0 Agios]

thank you i left the code as is