Solved

Email generated via MS access not showing image within autosignature correctly

Posted on 2007-04-01
1
378 Views
Last Modified: 2013-11-28
I have Ms access database that we are usiing to email quotes to a clients.
We are using MS Outlook 2003, and have Autosignture configured.
when i use outlook the signature comes up correctly including the image.
However when i do that from within the MS Access, the email that gets generated show only the placeholder for the image, but shows the rest of the text correctly.
Inside the image placeholder i have the following text:
"The image can not be displayed. Your computer may not have enough memory to open the image,
the image may have been corupted. Restart your computer, and than open the the file again.
If the red x still appears, you may have to delete the image and then insert it again."
Here is the code it is using to generate it:
---------------------------------------------------------------------------------------------------------------------------------
Private Sub btnEmail_Click()

Dim vMessage As String
Dim vEmail As String
Dim vEmpEmail As String
Dim myOlApp As Object
Dim myItem As Object
Dim sSignatureFile As String
Dim iHandle As Integer
Dim sLine As String

Set myOlApp = CreateObject("Outlook.Application")
    Set myItem = myOlApp.CreateItem(0)

    vEmail = Nz(DLookup("[fldFirstClientEmail]", "[tblClient]", "[fldClientID] = " & Forms!frmD005Quote!fldClientID), "<enter_email_address>")
    vEmpEmail = Nz(DLookup("[fldEmployeeEmail]", "[tblEmployee]", "[fldEmployeeID] = " & Forms!frmD005Quote!fldEmployeeID), "<enter_email_address>")
    'vMessage = "!!! Please attach pdf report !!!"

    'I use Admin, better to use API but suffice's for this example
    'Name of my signature I defined in outlook is called test
    sSignatureFile = "C:\Documents and Settings\" & Environ("Username") & "\Application Data\Microsoft\Signatures\test.htm"
   
     'print to pdf and attach to email
    '----------------------------------------------------------------------------------------------
    Dim blRet As Boolean
    Dim sAttachmentFileName As String
   
    sAttachmentFileName = GetPdfFilePath() & "Quote Number " & Me.Text2
     
    If [fldClientType] = 2 Then
    blRet = ConvertReportToPDF("rptQuoteCompanyPrint", vbNullString, _
                                sAttachmentFileName & ".pdf", False, False, 0, "", "", 0, 0)
                               
    Else
    blRet = ConvertReportToPDF("rptQuotePrint", vbNullString, _
                                sAttachmentFileName & ".pdf", False, False, 0, "", "", 0, 0)
    End If
    If blRet = True Then
         myItem.Attachments.Add (sAttachmentFileName & ".pdf")
    Else
        vMessage = "!!! Please attach pdf report !!!"
    End If
    '---------------------------------------------------------
   
    With myItem
        .To = vEmail
        .Subject = "Quote Details"
        .SentOnBehalfOfName = vEmpEmail
        .CC = "archive@building.com"
        .HTMLBody = vMessage
        'Add signature - if signature file exists then
        If Dir$(sSignatureFile) <> "" Then
            'Add two blank lines
            .HTMLBody = .HTMLBody & vbCrLf & vbCrLf

            iHandle = FreeFile
            Open sSignatureFile For Input As #iHandle
            Do While Not EOF(iHandle)
                Line Input #iHandle, sLine
                .HTMLBody = .HTMLBody & sLine
            Loop
            Close #iHandle
        End If
        myItem.Display
       
    End With
   
    Set myItem = Nothing
    Set myOlApp = Nothing
End Sub
---------------------------------------------------------------------------------------------------------------------------------

Any idea whay this this is not coming through when generated via ms access.?

Thanks in advance...
cube
0
Comment
Question by:VilkoP
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
1 Comment
 
LVL 85

Accepted Solution

by:
Scott McDaniel (Microsoft Access MVP - EE MVE ) earned 500 total points
ID: 18832050
The error indicates that Outlook is expecting to find an Image file, not an HTML file ... perhaps this is the trouble? I'm not sure as I long ago gave up on using Outlook within Access, but perhaps this is the issue?
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article is a collection of issues that people face from time to time and possible solutions to those issues. I hope you enjoy reading it.
If you need a simple but flexible process for maintaining an audit trail of who created, edited, or deleted data from a table, or multiple tables, and you can do all of your work from within a form, this simple Audit Log will work for you.
This Micro Tutorial hows how you can integrate  Mac OSX to a Windows Active Directory Domain. Apple has made it easy to allow users to bind their macs to a windows domain with relative ease. The following video show how to bind OSX Mavericks to …
Do you want to know how to make a graph with Microsoft Access? First, create a query with the data for the chart. Then make a blank form and add a chart control. This video also shows how to change what data is displayed on the graph as well as form…

691 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