Home
dbPix
Download
Order
Testimonials
Support
Tutorials
Samples
KnowledgeBase
Links
Revision History
Documentation
Search
Contact
Site Map

Graph: dbPix image storage vs OLE Embedding and Linking in Microsoft Access


DBPix Sample Source Code: frmImages
Back to sample
Option Compare Database
Option Explicit

Const strTempDir = "\email-temp\"

Private Sub btnSendEmail_Click()
    Dim strPath As String

    Dim oApp As Outlook.Application
    Dim oMsg As Outlook.MailItem

    ' Generate a tempoary path to save the image file for attching to the email
    strPath = CurrentProject.Path & strTempDir & [Id] & ".jpg"

    ' Save the image to a temporary file
    If DBPixCtrl.ImageSaveFile(strPath) Then
        Set oApp = New Outlook.Application
        Set oMsg = oApp.CreateItem(olMailItem)

        ' Add the attachment, then delete the temporary file
        oMsg.Attachments.Add strPath, olByValue, 1, "DBPix Email Sample"
        Kill strPath

        ' Set the To, Subject and Body fields
        
'        oMsg.to = "someone@somewhere.com"  ' Set the to: address here if applicable
        oMsg.Subject = [Description]    ' Use the Description field from the database
        oMsg.Body = "The image file is attached."

        ' Display the message for the user to review and send
        oMsg.Display

        ' Clean-up
        Set oApp = Nothing
        Set oMsg = Nothing
    End If

End Sub

Private Sub Form_Current()
    ' Only enable the send button if an image is present
    btnSendEmail.Enabled = IIf(LenB([Image]) > 0, True, False)
End Sub

Back to sample