Solved

Email generated via MS access not showing image within autosignature correctly

Posted on 2007-04-01
1
371 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

Courses: Start Training Online With Pros, Today

Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Some sers suddenly getting error popup msg 28 86
Installing trusted root certificate 12 45
Access 2016 7 33
Windows updates batch files 7 40
A simple tool to export all objects of two Access files as text and compare it with Meld, a free diff tool.
How to record audio from input sources to your PC – connected devices, connected preamp to record vinyl discs, streaming media, that play through your audio card: Vista, Windows 7, Windows 8, Windows 8.1 and Windows 10 – both 32 bit & 64.
In Microsoft Access, learn how to use Dlookup and other domain aggregate functions and one method of specifying a string value within a string. Specify the first argument, which is the expression to be returned: Specify the second argument, which …
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 …

808 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