利用VBA挑选附件并发送邮件

Slowton

用代码【.Attachments.Add Application.FindFile】系统提示出错，
想请教这样的代码应该要如何来写？
想要实现的效果是：附件可以让发送人自行在磁盘内任意选择需要打开的文件，然后作为邮件的附件添附。

tyxvba7529

Application.FindFile是打开一个文件， 现在需要的是返回用户选择的文件的fullname。

1. 
   
2. Sub test()
   
3. Set dlgx = Application.FileDialog(msoFileDialogOpen)  '创建filedialog对象，这是你要的
   
4. dlgx.InitialFileName = "c:"    '指定路径，文件名和过滤字符也在此指定，如C:\*.xls
   
5. 
   
6. If dlgx.Show = -1 Then    'SHOW方法弹出选择窗口，如果用户选了文件，会返回-1，放弃是0
   
7.   .Attachments.Add dlgx.SelectedItems(1)
   
8. End If
   
9. 
   
10. End Sub
    
11. 
    
12. 
    

复制代码