HTML issue when using Word as email editor

**dshillington** · 02-10-2012, 12:25 PM

I have created a DB that resides on a shared network drive and used by multiple people in the organization (not at the same time). This DB has a main form that users input data from dropdown lists and free text. Once all the data is entered, a submit button is pressed and it formats an email in an HTML format that gets sent out. Works as designed except........

The problem I'm having is that some of the users have Outlook 2003 set to use Word as their email editor, and some don't. For the users who don't use the above setting, the email formats and displays perfectly. For the users who use the above setting, the body of the email is blank.

In the spirit of respecting people's personal preferences with regards to their settings, I am seeking some VBA advice on how to program (if possible) for this email to display in HTML regardless of what setting they use. I know it's not possible to call a macro to toggle this setting on/off at will, thus leaving me relatively helpless right now.......

I have searched endlessly for an answer and can't seem to come up with anything that I understand. I am a relative newby to VBA (I can make sense of other's code, but probably couldn't write from scratch), so please be gentle.

Dave

**June7** · 02-10-2012, 08:30 PM

Show the code the processes the email. Does the email need to open for review before it is sent?

**dshillington** · 02-14-2012, 01:51 PM

Private Sub Command202_Click()
'Creates a new e-mail item and modifies its properties.
Dim objEmail As Outlook.MailItem
Dim objOutlook As Outlook.Application
ReportType = Me!cboActionTaken
IRIB = Me!Text87
Incident = Me!Text163
Region = Me!cboRegion
City = Me!cboCity
Problem = Me!cboInCa
Date = Me!cboDate
Update = Me!cmbUpNo
'Create e-mail item
Set objOutlook = CreateObject("Outlook.application")
Set objEmail = objOutlook.CreateItem(olMailItem)
Dim TestHTMLString As String

With objEmail
.SentOnBehalfOfName = "Email Account"
.Importance = olImportanceHigh
.To = "Distribution List"
.Subject = "Pre-populated from information on Access Form"
If (Me.chkUpdate) = True Then
.Subject = .Subject & " " & cmbUpNo
.HTMLBody = .HTMLBody & "<body>"
.HTMLBody = .HTMLBody & Replace(txtUpdate, vbCrLf, " ") & " " & " "
End If
'Set body format to HTML
.BodyFormat = olFormatHTML
.HTMLBody = .HTMLBody & "<body>"
.HTMLBody = .HTMLBody & "" & Event_Notes_Label & "" & "
.HTMLBody = .HTMLBody & cboIncident & " " & " "
.HTMLBody = .HTMLBody & "STATUS: " & " " & cboStatus & " " & " "
.HTMLBody = .HTMLBody & "DURATION: " & " " & cboDuration & " " & " "
.HTMLBody = .HTMLBody & "ACTION: " & " " & cboActions & " " & " "
.HTMLBody = .HTMLBody & "MEDIA: " & " " & cboMedia & " " & " "
.HTMLBody = .HTMLBody & "POLICE, FIRE, AMBULANCE CONTACTED: " & " " & ES_Contacted & " " & " "
.HTMLBody = .HTMLBody & "MAG STAFF: " & " " & cboMAGStaff & " " & " "
.HTMLBody = .HTMLBody & "CO-LOCATED MINISTRY STAFF: " & " " & cboCOLo & " " & " "
.HTMLBody = .HTMLBody & "OTHER MEMC's NOTIFIED: " & " " & Text187 & " " & " "
.HTMLBody = .HTMLBody & "ON DUTY: " & " " & cboDO & " " & cboDOAd & " " & "Telephone: " & cboDOTel & " " & "BlackBerry: " & cboDOBB & " " & cboDOEm & " " & " "
.HTMLBody = .HTMLBody & "</color></body>"
.Display
End With
End Sub

I do need the end user to view the email before sending.

Any help would be appreciated.

Thanks

**June7** · 02-14-2012, 03:28 PM

I no longer have Access 2003 available. This article says Access 2007 and 2010 always use Word for editing http://email.about.com/od/outlooktip...in_Outlook.htm

Setting an alternate editor does not seem to be an option in 2007 and 2010.

I have an automated email procedure using code similar to yours but using 2007 and have no issues with the procedure.

Sorry, I don't have a resolution for the issue with 2003.

HTML issue when using Word as email editor

Thread Tools

HTML issue when using Word as email editor

Similar Threads

Access to Word - Multiple Word Templates?

Saving html, mht, or other email format to a Memo control

Issue with VBA Code Using Bookmarks in Word to populate from Access Form

HTML Editor

Text editor

Posting Permissions