Get Attachment Problem

[cuddles]

I am trying to code to allow users to attach a file however I am getting an error when I attempt to attach a .doc, .docx or .pdf. How do I make it so the me.txtpath allows for that?

Private Sub attachbtn_Click()
Dim dlgOpen As FileDialog
 Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
With dlgOpen
 .AllowMultiSelect = False
 .InitialFileName = "Z:\" 'Initial Path when explorer is opened
 .Show
     If .SelectedItems.Count = 0 Then
       msgbox ("No file Selected") 'No file selected
     Else
        Me.txtPath = .SelectedItems(1) 'sets textbox on the form to the path selected
        'Me.img.Picture = txtPath.Value
     End If
  End With
End Sub

[ItsMe]

Maybe you can adjust the Filter property of the FileDialog object. I usually clear it and then add back to it.

[pbaldy]

It looks like you're trying to populate a picture control. As far as I know you can only use image files there.