How to reset outlook style

PRA007 · #1 03-22-2016, 09:55 AM

I have in my clipboard that I want to paste to outlook editor and after that I want to format all the text to be normal style. How to do that.

Here is the code that I got from (I forget but it was from Greg Maxy)

Code:

Sub sendcomplexemail()

Dim olapp As Object
Dim olemail As Object
Dim olInsp As Object
Dim wddoc As Object

    On Error Resume Next
    Set olapp = GetObject(, "Outlook.Application")
    If Err <> 0 Then Set olapp = CreateObject("Outlook.Application")
    On Error GoTo 0
    Set olemail = olapp.CreateItem(0)
    With olemail
        .BodyFormat = 3
        .To = ""
        .Subject = "Movies Report"
        Set olInsp = .GetInspector
        Set wddoc = olInsp.WordEditor
        Set orng = wddoc.Range
        orng.Paste
        orng.Style = "normal"
        .Display
    End With
End Sub

I am not able to work with red part.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to 'Reset' Outlook Contacts?	markg2	Outlook	1	04-11-2015 08:26 AM
Use multiple style sets in the same Word document (depending on which section the style is in)	Ricyteach	Word VBA	6	03-09-2015 07:11 PM
outlook will not let me reset my password	bbauer	Outlook	0	08-20-2014 11:41 AM
reset numbering to 1 by paragraph Style	Helix86	Word	5	08-07-2013 10:48 PM
MS Outlook Addin not responding after menu bar reset	sunil_pagare	Outlook	0	10-14-2009 10:34 PM