Change VBA script to send HTML email instead of text

Not open for further replies.


New Member
Outlook version
Outlook 2016 64 bit
Email Account
Exchange Server
I have used a VBA macro for years to forward emails to a fixed email address that was my task manager web based software. It worked but it forwarded a text email whether the original email was text or HTML. This was ok because that task manager did not like HTML emails. I have switched to a different task manager that does accept HTML emails which is great except my macro only forwards text emails.

I need help in modifying my macro to send emails as they are, text or HTML. I have tried some HTML VBA commands, but all I did was create a mess. Any assistance would be appreciated including hints as to what to try, including commands. The current macro is:

Sub TDFwd2()
Dim helpdeskaddress As String
Dim objMail As Outlook.MailItem
Dim strbody As String
Dim oldmsg As String
Dim emailSubject As String
Dim senderaddress As String
Dim emailTo As String
Dim addresstype As Integer
' Set this variable as your helpdesk e-mail address
helpdeskaddress = ""
Set objItem = GetCurrentItem()
Set objMail = objItem.Forward
' Sender E=mail Address
senderaddress = objItem.SenderEmailAddress
'Searches for @ in the email address to determine if it is an exchange user
addresstype = InStr(senderaddress, "@")
' If the address is an Exchange DN use the Senders Name
If addresstype = 0 Then
senderaddress = objItem.SenderName
End If
emailTo = objItem.To
emailSubject = objItem.subject
'adds the senders e-mail address as the created by object for the ticket and appends the message body
strbody = "Sent by: " & senderaddress & vbNewLine & "To: " & emailTo & vbNewLine & "Subject: " & emailSubject & vbNewLine & vbNewLine & objItem.Body
objMail.To = helpdeskaddress
objMail.subject = objItem.subject
objMail.Body = strbody
' remove the comment from below to display the message before sending
'Automatically Send the ticket
Set objItem = Nothing
Set objMail = Nothing
End Sub
Function GetCurrentItem() As Object
Dim objApp As Outlook.Application
Set objApp = Application
On Error Resume Next
Select Case TypeName(objApp.ActiveWindow)
Case "Explorer"
Set GetCurrentItem = _
Case "Inspector"
Set GetCurrentItem = _
Case Else
End Select
End Function
I figured it out with a bit of experimentation.
Decent, need to accomplish something like this with mine.
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
J VBA Cannot programmatically input or change Value for User Defined field Using Outlook 1
A Change settings Send/receive VBA Outlook VBA and Custom Forms 0
E Outlook VBA change GetDefaultFolder dynamically Outlook VBA and Custom Forms 6
N Help creating a VBA macro with conditional formatting to change the font color of all external emails to red Outlook VBA and Custom Forms 5
diver864 vba for a rule to automatically accept meeting requests with 'vacation' in subject, change to all-day event, change to free, don't send reply Outlook VBA and Custom Forms 1
B Change Font and Font size using VBA Outlook VBA and Custom Forms 9
PGSystemTester VBA To Change AppointmentItem.BusyStatus From MeetingItem Before Send Using Outlook 0
A Edit subject - and change conversationTopic - using VBA and redemption Outlook VBA and Custom Forms 2
S Example VBA Macro - To Conditionally Change the From Account and Add a BCC Address on Emails Outlook VBA and Custom Forms 11
M VBA to change flag status in outlook contact item Outlook VBA and Custom Forms 3
H Change Default Email Account Using VBA Outlook VBA and Custom Forms 5
O VBA to Run Font Change on Outlook Startup Outlook VBA and Custom Forms 4
D Change sender name outlook vba 2010 Custom Userform Outlook VBA and Custom Forms 1
O VBA to change message format and add formatted signature Outlook VBA and Custom Forms 1
F VBA Code to change subject Like Outlook VBA and Custom Forms 3
K Outlook 2013 - Use VBA to change Due date of Tasks Using Outlook 3
K How to change status of a mail marked as a task (VBA) Outlook VBA and Custom Forms 2
M Use Macro to change account settings Outlook VBA and Custom Forms 0
D Unable to change AppointmentItem.Start property Outlook VBA and Custom Forms 4
sjmo2 Change subject for new e-mails only. Outlook VBA and Custom Forms 2
Horsepower Contact phone numbers randomly change Using Outlook 0
P Outlook 2016 Change Paste Special Default Format Using Outlook 8
whizzard Change FROM address based on TO or CC address Outlook VBA and Custom Forms 8
S Outlook 365 Can I change the possible range of highlighting colours when writing an Outlook email? Using Outlook 1
V Can one change the formatting of email title blocks? Using Outlook 0
S Unable to change Message Class Outlook VBA and Custom Forms 0
S New Outlook Appointment - Select All Body Text and Change Font and Size Outlook VBA and Custom Forms 1
C Outlook 365 Can you change the follow up colour? Using Outlook 1
O What would be the recommended way to change an email address (family member)? Using Outlook 0
S Change "This Week" flag start date behavior Using Outlook 1
D Change Microsoft Account password - what to do to update on all devices Using Outlook 4
S Outlook 2016 Change how Outlook shows me contacts in emails Using Outlook 0
Witzker HowTo Change message Class of contact form Outlook VBA and Custom Forms 0
Z Outlook 365 delete reminder you can’t make change to contents of this-read only folder Using Outlook 4
Witzker Pls help to change the code for inserting date in Ol contact body Outlook VBA and Custom Forms 5
R How to Change Margins In Google Docs...? Using Outlook 0
e_a_g_l_e_p_i Outlook 2010 How can I change the font size on right side appointment pane Using Outlook 12
D Change senders title Using Outlook 1
W Recurrence: delete older occurrences / change earliest start time Outlook VBA and Custom Forms 0
E Change sending account depending on Subjectline Outlook VBA and Custom Forms 0
J Outlook 2013 Change color of text in data fields of contacts in Outlook 2013? Using Outlook 10
B Change row background color of selected item Using Outlook 1
B Change from Address Outlook VBA and Custom Forms 0
X If you change expiration date of repeated task it dupplicates Using Outlook 1
E How to display "Change Folder" in Change Default Email Delivery Location in Exchange Outlook 2016 Using Outlook 1
Z See "Change View" Drop Down as a List? Using Outlook 1
V Change start time based on message duration Outlook VBA and Custom Forms 2
R Folder pane width change Using Outlook 90
S Outlook 2010 unable to change default font Using Outlook 7
P How can I change my calendar view back Using Outlook 3

Similar threads