?
Solved

Email generated via MS access not showing image within autosignature correctly

Posted on 2007-04-01
1
Medium Priority
?
380 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 1500 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

The Eight Noble Truths of Backup and Recovery

How can IT departments tackle the challenges of a Big Data world? This white paper provides a roadmap to success and helps companies ensure that all their data is safe and secure, no matter if it resides on-premise with physical or virtual machines or in the cloud.

Question has a verified solution.

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

This article helps those who get the 0xc004d307 error when trying to rearm (reset the license) Office 2013 in a Virtual Desktop Infrastructure (VDI) and/or those trying to prep the master image for Microsoft Key Management (KMS) activation. (i.e.- C…
When asking a question in a forum or creating documentation, screenshots are vital tools that can convey a lot more information and save you and your reader a lot of time
With the advent of Windows 10, Microsoft is pushing a Get Windows 10 icon into the notification area (system tray) of qualifying computers. There are many reasons for wanting to remove this icon. This two-part Experts Exchange video Micro Tutorial s…
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

770 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