论坛风格切换切换到宽版
  • 8210阅读
  • 3回复

vb引用mailto [复制链接]

上一主题 下一主题
离线s421600
 
发帖
2
金钱
0
威望
0
只看楼主 倒序阅读 0 发表于: 2007-03-17
我是VB初学者,自己编了一个程序,想在里面加一个邮件链接(使用者可以点击这个链接联系我),呵呵

代码应怎么写

Private Sub Command1_Click()
在这一行中怎么加代码?           假如我的邮箱为********@126.com
End Sub
离线tracky

发帖
1807
金钱
10
威望
1
只看该作者 1 发表于: 2007-03-17
CODE

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, "open", "mailto:tracky2002@163.com", "", "", SW_SHOW
End Sub

╭∩╮(︶︿︶)╭∩╮
离线wengjingqun
发帖
*
金钱
*
威望
*
只看该作者 2 发表于: 2010-06-16
可以不用API的。。用VB自带的就行了。
Private Sub Command1_Click()
Shell "explorer.exe mailto:shmilyweng@23sj.net "
End Sub
离线zzwjk
发帖
4
金钱
10
威望
1
只看该作者 3 发表于: 2010-06-29
Shell "explorer.exe mailto:shmilyweng@23sj.net "