Create automatic HTML email message in Outlook 2000
-
Hey, not too sure this is the right Message Board for this...but here goes: I want a macro to automatically open an email as HTML format rather than rich text. I have my send emails defaulted to HTML, yet when I run this macro it comes up as rich text. Any help would be appreciated. Dim objAppl As Outlook.Application Dim objNS As Outlook.NameSpace Dim objContact As Outlook.ContactItem Dim objNewmail As MailItem Dim objDrafts As MAPIFolder Dim objVorlage As MailItem On Error Resume Next Set objAppl = CreateObject("Outlook.Application") Set objNS = objAppl.GetNamespace("MAPI") Set objDrafts = objNS.GetDefaultFolder(olFolderDrafts) 'Checking all contacts in standard conta ' cts folder For Each objContact In objNS.GetDefaultFolder(olFolderContacts).Items.Restrict("[MessageClass] = 'IPM.Contact'") 'checking birthday of each contact If (Day(objContact.Birthday) = Day(Date)) And (Month(objContact.Birthday) = Month(Date)) Then 'creating new mail Set objNewmail = Application.CreateItem(olMailItem) With objNewmail..... My new mail comes out rich text always, is there coded way so that it opens as html?