Send a Mime Multipart email from Access 2003

[IgaJim]

Hi, I've trawled the web for a solution to this:

I need to send a text and HTML multipart email from Access 2003 intefacing
with Outlook 2003 methods. I've tried .textbody and various others. Please
help.

Here's a sample of what I have so far:
Public Sub SendOutlook(NotifyId As Integer, strFrom As String, strTo As
String, Subject As String, HTMLBody As String, SendUsing As String, Server As
String, ServerPort As String, AttachmentPath As String, Retries As Integer,
ErrorBit As Boolean, ErrorDesc As String)
On Error GoTo ErrorHandler:
Dim objOutlook As Object
Dim MAPISession As Outlook.NameSpace
Dim MAPIFolder As Outlook.MAPIFolder
Dim MAPIMailItem As Outlook.MailItem
Dim oRecipient As Outlook.Recipient

Dim blnSuccessful As Boolean

Set objOutlook = CreateObject("Outlook.Application")
If objOutlook Is Nothing Then
'Outlook isn't already running - create a new instance...
Set objOutlook = CreateObject("Outlook.Application")
End If

Set MAPISession = objOutlook.Session
If Not MAPISession Is Nothing Then
strFrom = MAPISession.CurrentUser

MAPISession.Logon , , True, False
Set MAPIFolder = MAPISession.GetDefaultFolder(olFolderDrafts)
If Not MAPIFolder Is Nothing Then

Set MAPIMailItem = MAPIFolder.Items.Add(olMailItem)
If Not MAPIMailItem Is Nothing Then
With MAPIMailItem
If Not IsNull(strFrom) And Len(strFrom) > 0 Then
.SentOnBehalfOfName = strFrom
End If
.To = strTo
.Subject = Subject
.HTMLBody = HTMLBody
If Not IsNull(AttachmentPath) And Len(AttachmentPath) > 0 Then
.Attachments.Add AttachmentPath
End If
.Send
End With
End If
End If
End If
blnSuccessful = True

ExitRoutine:
Set MAPISession = Nothing
Set objOutlook = Nothing
MAPISession.Logoff
Exit Sub

ErrorHandler:
MsgBox "An error has occured in the user defined Outlook VBA function" &
vbCrLf & vbCrLf & _
"Error Number: " & CStr(Err.Number) & vbCrLf & _
"Error Description: " & Err.Description, vbApplicationModal +
vbCritical
Set MAPISession = Nothing
Set objOutlook = Nothing
MAPISession.Logoff
End Sub