Excel with outlook - attachments

Hello dntel123,

You need to pass the file string to the Attachments collection object. You can do this buy changing your Sub into a Function.

Function Get_Data() As String

FileToOpen = Application.GetOpenFilename _
(Title:="Please choose a file to import", _
FileFilter:="Excel Files *.xls (*.xls),")
''
If FileToOpen = False Then

MsgBox "No file specified.", vbExclamation, "Duh!!!"

Exit Sub

Else

Workbooks.Open Filename:=FileToOpen
GetData = FileToOpen

End If

End Function