Ok... I have a work around for this. I think to over come the original error message where it was telling me to register the ole server I needed to re-install the program that was set up to open the graphic file. But since I don't have admin rights to this machine that was not an option. Plus I don't want to have to deal with that error if the routine is run on other machines. So after the code export code runs I close the ole object. This however screws up the chart. So I copy the chart to the clipboard, do the export, close the object and then paste the chart back. This seems to work fine...
Public Function fncEmailChart_01(strFormName As String, strChartName As String)
'Save jpg part
Dim objChart As Chart
Set objChart = Forms(strFormName)(strChartName).Object
Forms(strFormName)(strChartName).Action = acOLECopy
objChart.Export FileName:="c:\localfiles\temp_email.gif"
Forms(strFormName)(strChartName).Action = acOLEClose
Set objChart = Nothing
Forms(strFormName)(strChartName).Action = acOLEPaste
DoEvents
'Send email part
Dim mess_body As String
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.Attachments.Add "c:\localfiles\temp_email.gif"
.To = "340364"
.Subject = "Test"
.HTMLBody = "<html><p>Sales Results</p>" & "<img src='cid:temp_email.gif'>"
.Display
End With
Set appOutLook = Nothing
Set MailOutLook = Nothing
End Function