Solved

Email generated via MS access not showing image within autosignature correctly

Posted on 2007-04-01
1
367 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
1 Comment
 
LVL 84

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

IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

The use of stolen credentials is a hot commodity this year allowing threat actors to move laterally within the network in order to avoid breach detection.
Our Group Policy work started with Small Business Server in 2000. Microsoft gave us an excellent OU and GPO model in subsequent SBS editions that utilized WMI filters, OU linking, and VBS scripts. These are some of experiences plus our spending a lo…
In Microsoft Access, learn how to “cascade” or have the displayed data of one combo control depend upon what’s entered in another. Base the dependent combo on a query for its row source: Add a reference to the first combo on the form as criteria i…
With Microsoft Access, learn how to start a database in different ways and produce different start-up actions allowing you to use a single database to perform multiple tasks. Specify a start-up form through options: Specify an Autoexec macro: Us…

747 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

16 Experts available now in Live!

Get 1:1 Help Now