Public WithEvents myOlItems As Outlook.Items
Private Sub Application_Quit()
Set myOlItems = Nothing
End Sub
Private Sub Application_Startup()
Set myOlItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items
End Sub
' Converts incoming messages from plain text to HTML because they
' seem to right align as plain text.
Private Sub myOlItems_ItemAdd(ByVal Item As Object)
Dim mi As Outlook.MailItem
If Item.Class = olMail Then
Set mi = Item
If mi.BodyFormat = olFormatPlain Then
mi.BodyFormat = olFormatHTML
mi.Save
End If
End If
End Sub
One response to “MS Outlook Plain Text Alignment Error”
A Plain Text Editor
Plain Text files
That's right, if you're writer on a budget, you don't need to spend any money buying expensive writing software or apps. Instead, you can use the text editor that comes free with your operating system.
Just open up Notepad on Windows or TextEdit on a Mac. I like plain text editors for writing something short quickly and easily, without thinking much about it. I wrote a blog post about the benefits of using plain text editors as writing software.
Use for: writing whatever, wherever
Post a Comment