这么简单的问题不会没人知道吧
解决方案 »
- 怎么给listbox加垂直滚动条
- 自我感觉比较难的问题,请高手看看
- 一个奇怪的问题,对表做删除操作和插入操作都没有问题,但是选择操作结果集为空
- 用VB生成新Word后,关闭Word时弹出‘此文件正由应用程序或另一用户使用’
- 请教连接问题!
- 请问怎么设置 SetUp factory 7.0 安装完成后重新启动系统?
- 数据库高手请看?
- 一个非常简单的mmcontrol控件的问题,有分相送!!!
- vbs 修改excel列数据
- 怎么用宏操作Execl,把Execl中第一个表中的菜单批量链接到本Execl中的其他表
- 一个对SQL数据库进行SELECT操作的问题.
- 怎样把一个目录下底所有目录的路径都添加到listview中
'下面的以前某位高手的贴子,我未记下他的姓名
'==============================================================通过API函数ShellExecute再加上一些参数就可以实现发送带附件的邮件,下面是范例:
Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Const SW_SHOW = 5 Private Sub Command1_Click()
Debug.Print "[email protected]?subject=MySubject&Attach=""""c:\doc1.doc"""""
Call ShellExecute(Me.hwnd, "open", _
"[email protected]?subject=MySubject&Attach=""c:\doc1.doc""", _
vbNullString, vbNullString, SW_SHOW)
End Sub
上面的程序将 c:\doc1.doc 作为附件发送出去,上面的代码在OutLook 2000以及 Outlook Exress 5.5下运行通过