Browse computer for attachment, email attachment.

[Ruegen]

I have

button attach file to email on a form

on click it should open file open dialog box and help the user locate the word or pdf file on their computer

then they click attach

there is a unbound text box on the form which I hope to display the filepath (to indicate an attachment is attached)

then do a docmd.sendobject and have that file as the attachment. (me.txtFilePath)

I've been looking around on the web for a guide but with no luck... so I have to ask.

[ItsMe]

Check this out. I can't remember exactly what the thread was about but I think it may at least get you started. I posted a sample DB on this here
https://www.accessforums.net/program...57/index2.html

[Ruegen]

Check this out. I can't remember exactly what the thread was about but I think it may at least get you started. I posted a sample DB on this here
https://www.accessforums.net/program...57/index2.html

Love the santa hat

[Ruegen]

Check this out. I can't remember exactly what the thread was about but I think it may at least get you started. I posted a sample DB on this here
https://www.accessforums.net/program...57/index2.html

I've had a read through - from what I see the onclick allows you to bring up the dialog using "application." however that is where I get the error. I don't need to save the information into any table field so I'm not sure if I have to deal with DAO?

[ItsMe]

No, the DAO function is for the other thing. But the file picker should work for you. Doesn't it save the path in a string? You could use that with your Email object.

[Ruegen]

I pasted (everything from the cmdPicker onclick event on your form) on the button onclick.

It comes up with this error



Am I missing something here?

[Ruegen]

I pasted (everything from the cmdPicker onclick event on your form) on the button onclick.

It comes up with this error



Am I missing something here?

I thought since I only need to save the path and take no other action

Your code copied

I added the dim

Dim strPath As String


' User asked to add a new photo
'Dim strPath As String
' Grab a copy of the Office file dialog
With Application.FileDialog(msoFileDialogFilePicker)
' Select only one file
.AllowMultiSelect = False
' Set the dialog title
.Title = "Locate a file to attach"
' Set the button caption
.ButtonName = "Choose"
' Make sure the filter list is clear




.Filters.Clear
' Add two filters
'.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "All Files", "*.*"




' Set the filter index to 2
'.FilterIndex = 2
' Set the initial path name
'.InitialFileName = CurrentProject.Path & "\Pictures"


.InitialFileName = "C:\"


' Show files as thumbnails
.InitialView = msoFileDialogViewThumbnail
' Show the dialog and test the return
If .SHOW = 0 Then
' Didn't pick a file - bail
Exit Sub
End If
' Should be only one filename - grab it
strPath = Trim(.SelectedItems(1))


' Set an error trap
On Error Resume Next
' Set the image
'Me.txtPhoto = strPath
' Set the message in case Image control couldn't find it
'Me.lblMsg.Caption = "Failed to load the file you selected." & _
'" Click Picker to try again."
End With
' Put focus in a safe place
Me.SetFocus

[ItsMe]

Reference
Microsoft Office XX.X Object Library

Not to be confused with Access Object Library

[Ruegen]

Reference
Microsoft Office XX.X Object Library

Not to be confused with Access Object Library

so XX.X is the version?

Since I have Office 2010....?


14.0 ?

dim refname as reference

refname = C:\Program Files\Microsoft Office\Office14\msacc.olb

I know nothing about reference...

[ItsMe]

In the VBA editor got to Tools>References and then tick

Microsoft Office 14.0 Object Library

from your available references list. Click OK. This is your library for early binding.

some more info
http://allenbrowne.com/ser-38.html

[Ruegen]

so XX.X is the version?

Since I have Office 2010....?


14.0 ?

dim refname as reference

refname = C:\Program Files\Microsoft Office\Office14\msacc.olb

I know nothing about reference...

found it - works thanks sorry

long learning curve of mine

[Ruegen]

In the VBA editor got to Tools>References and then tick

Microsoft Office 14.0 Object Library

from your available references list. Click OK. This is your library for early binding.

some more info
http://allenbrowne.com/ser-38.html

found it just as you were typing that - sorry! but thanking you kindly!

[Ruegen]

ahhh so nice to see

joy

[ItsMe]

Cool......