如何用VB在应用程序中使用本地默认的电子邮件程序发送邮件??望高手指教

acup 2000-08-11 02:13:00
谢谢
...全文
261 15 打赏 收藏 转发到动态 举报
写回复
用AI写文章
15 条回复
切换为时间正序
请发表友善的回复…
发表回复
OLD_VB_FAN 2001-06-04
  • 打赏
  • 举报
回复
TechnoFantasy 2001-06-03
  • 打赏
  • 举报
回复
附件名称须要加引号:
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 Sub Command1_Click()
ShellExecute Me.hwnd, "", "mailto:vbcode@21cn.com?subject=hello&body=student&attachment= ""c:\temp.htm""", "", "", 0
End Sub
OLD_VB_FAN 2001-06-03
  • 打赏
  • 举报
回复
兄弟,再加分嘛!
OLD_VB_FAN 2001-06-03
  • 打赏
  • 举报
回复
高手们,快来呀!!!
@_@ @_@ @_@ @_@
@_@ @_@ @_@
@_@ @_@
@_@
OLD_VB_FAN 2001-06-02
  • 打赏
  • 举报
回复
In details!
OLD_VB_FAN 2001-06-02
  • 打赏
  • 举报
回复
In detair!
OLD_VB_FAN 2001-06-02
  • 打赏
  • 举报
回复
HOW TO?
HelloAllen 2001-06-02
  • 打赏
  • 举报
回复
引用Outlook对象
OLD_VB_FAN 2001-06-02
  • 打赏
  • 举报
回复
附件呢?如果我指定一个已有的HTML文件作为正文呢?如何写代码?
turbo 2001-06-02
  • 打赏
  • 举报
回复
shell "explorer mailto:邮件地址",vbnormalfocus
我试过了,没有问题的
unruledboy 2001-06-02
  • 打赏
  • 举报
回复
基本同意prefix(MtSC) 的说法
OLD_VB_FAN 2001-06-02
  • 打赏
  • 举报
回复
关注
prefix 2000-08-11
  • 打赏
  • 举报
回复
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

然后使用类似这样的语句:
ShellExecute Me.hwnd, vbNullString, "mailto:yourmail", vbNullString, vbNullString, 0&

或者可以用更简单的方法:
shell "start.exe mailto:yourmail",vbNormalFocus



Cheers?
yiwei 2000-08-11
  • 打赏
  • 举报
回复
你不笨,你的方法是最好的方法。该得分。
huntout 2000-08-11
  • 打赏
  • 举报
回复
用api函數ShellExecute吧!
我很笨,不會更簡單的方法!︰)

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧