Solved

How to resolve Mapi.Message not supporting HTMLBody from MS Access

Posted on 2008-10-15
4
1,038 Views
Last Modified: 2013-11-28
Hello experts,

I am trying to use Mapi to send email from MS Access.  I know there other ways to achieve this which would resolve my problem of dealing HTML.  However, there is a con so here is the dilema.  I need to use Mapi because it is the only way I found it gets around the profile resolution with outlook.  Everything works fine except for the HTML format.  How can this be resolved?  Thank you.
Private Sub SendEmail(strEmailAdd As String, strFrom As String, strMessage As String, _

                      strSubject As String, strCc As Variant, strBcc As Variant)

On Error GoTo errHandler
 

   Dim oSession As MAPI.Session

   Dim MsgNew As MAPI.Message  'uses early binding

   Dim Recip As MAPI.Recipient

   Dim RecipCC As MAPI.Recipient

   Dim RecipBCC As MAPI.Recipient

   Dim AddEntries As MAPI.AddressEntries

   Dim OnBehalfSender As MAPI.AddressEntry

   Dim aCc() As String

   Dim aBcc() As String

   Dim strNTUser As String

   Dim i As Integer
 

   Set oSession = CreateObject("mapi.session")

   strNTUser = Environ("UserName")

   oSession.Logon profileName:=strNTUser    'use existing session
 

   'create new message

   Set MsgNew = oSession.Outbox.Messages.Add
 

   'set on behalf sender

   Set AddEntries = oSession.AddressLists(1).AddressEntries

   AddEntries.Filter = Nothing    'reset

   'TODO: Change on behalf user name

   AddEntries.Filter.Name = strFrom

   Set OnBehalfSender = AddEntries.GetFirst

   Set MsgNew.Sender = OnBehalfSender  'set on behalf address

   Set MsgNew.Sender = oSession.CurrentUser  'optional, the actual sender
 

   'set message recipient

   'TODO: Change recipient name

   Set Recip = MsgNew.Recipients.Add(strEmailAdd, , 1)

   Recip.Resolve
 
 

   'set message recipient

   'TODO: Change recipient name

    aCc = Split(strCc, ";")

    For i = 0 To UBound(aCc)

        Set RecipCC = MsgNew.Recipients.Add(aCc(i), , 2)

        RecipCC.Resolve

    Next i
 

   'set message recipient

   'TODO: Change recipient name

    aBcc = Split(strBcc, ";")

    For i = 0 To UBound(aBcc)

        Set RecipBCC = MsgNew.Recipients.Add(aBcc(i), , 3)

        RecipBCC.Resolve

    Next i
 

   'set other message properties and send

   With MsgNew

      '.Text = strMessage

      .Text.HTMLBody = strMessage

      .Subject = strSubject

      .Update    'optional, leaves unsent mail in Outbox if Send fails

      .Send

   End With

   

   
 

   'release objects

   Set MsgNew = Nothing

   Set OnBehalfSender = Nothing

   Set Recip = Nothing

   Set RecipCC = Nothing

   Set RecipBCC = Nothing

   Set AddEntries = Nothing

   oSession.Logoff

   Set oSession = Nothing

    

ExitHere:

    Exit Sub
 

errHandler:

    Select Case Err

        Case Else

            MsgBox "Error Number: " & Err.Number & vbNewLine & "Description: " & Err.Description, vbCritical, "Error"

        GoTo ExitHere

    End Select

End Sub

Open in new window

0
Comment
Question by:fcoit
  • 2
  • 2
4 Comments
 
LVL 16

Expert Comment

by:Chuck Wood
ID: 22723997
I had to use .Display in Outlook before adding the body to get the HTML to work. Perhaps there is something similar in MAPI?

-Chuck
0
 

Author Comment

by:fcoit
ID: 22724298
cwood-wm-com,

I found this but I do not know how to incorporate this into my code.

oMailItem.BodyFormat = OlBodyFormat.olFormatHTML

Thank you for your input.

As far as the Display method is not available.
0
 
LVL 16

Accepted Solution

by:
Chuck Wood earned 500 total points
ID: 22724637
In Outlook 12.0 (2007) there is a .BodyFormat property and the constant olFormatHTML is equal to 2, but I am not sure that will help you in MAPI. By the way, the .BodyFormat property is not available in Outlook 2000.

In case it might be useful, here is my code for a class I use with Outlook that does not seem to have a problem with profile resolution but Outlook must be open on the user's computer.

-Chuck
VERSION 1.0 CLASS

BEGIN

  MultiUse = -1  'True

END

Attribute VB_Name = "clsSendEmail"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = False

Attribute VB_Exposed = False

Option Explicit

'===================================================================

' version 1.0.2  6/12/2008

'===================================================================

'  requires:

'    reference(s) to:

'      Microsoft Outlook 9.0 or later

'===================================================================

Public Function Email(ByVal strTo As String, ByVal strSubject As String, _

  ByVal strBody As String, Optional ByVal strCC As String, Optional ByVal strAttachment As String, _

  Optional ByVal intImportance As Integer, Optional ByVal strVotingOptions As String, _

  Optional ByVal fDeliveryReq As Boolean, Optional ByVal fReadRecpt As Boolean) As Boolean

' Purpose: Email an Outlook mail item

    ' set the initial state of the function

    Email = False

    Dim outl As New Outlook.Application, intI As Integer

    ' create an email item

    Dim outMsg As Outlook.MailItem

    Set outMsg = outl.CreateItem(olMailItem)

    With outMsg

        ' display the message

        .Display

        ' set the message parts

        .To = strTo

        .Subject = strSubject

        .HTMLBody = strBody

        If Not IsNull(strCC) And Len(Trim(strCC)) > 0 Then .cc = strCC

        If Not IsNull(strAttachment) And Len(Trim(strAttachment)) > 0 Then .Attachments.Add strAttachment

        .OriginatorDeliveryReportRequested = fDeliveryReq

        .ReadReceiptRequested = fReadRecpt

        .VotingOptions = strVotingOptions

        ' importance: High=2, Normal=1, Low=0

        .Importance = intImportance

        ' send the message

        .Send

        ' set the final state of the function

        Email = True

    End With

End Function

Open in new window

0
 

Author Comment

by:fcoit
ID: 22724872
Thanks again.

I was hoping to stay away from Outlook.  The problem with Outlook is that if a session has not been started the user profile will not be resolved and that will not work.  So the user must open Outlook before running the code.  
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

Overview: This article:       (a) explains one principle method to cross-reference invoice items in Quickbooks®       (b) explores the reasons one might need to cross-reference invoice items       (c) provides a sample process for creating a M…
I see at least one EE question a week that pertains to using temporary tables in MS Access.  But surprisingly, I was unable to find a single article devoted solely to this topic. I don’t intend to describe all of the uses of temporary tables in t…
With Microsoft Access, learn how to specify relationships between tables and set various options on the relationship. Add the tables: Create the relationship: Decide if you’re going to set referential integrity: Decide if you want cascade upda…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

746 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

8 Experts available now in Live!

Get 1:1 Help Now