请教单击标签倥件(内容为邮箱地址),能够启动outlook并自动填上邮箱地址

mi6236 2003-12-09 01:41:51
问题1:当鼠标移移入标签时,标签变为红色,移出时返回默认色。
方法:在标签mouse move中设置forecolor=vbred
在fomr中的mouse move中设置forecolor=默认色
有无更好的方法
问题2:单击标签倥件(内容为邮箱地址),能够启动outlook并自动填上邮箱地址
...全文
80 5 打赏 收藏 举报
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
mi6236 2003-12-10
楼上说的方法不可行,应该是VBA的create object("?????"I)
但里面怎样写请教高手
集思广益
  • 打赏
  • 举报
回复
boydgmx 2003-12-10
Private Sub Label1_Click()
shell "mailto:aa@bb.com"
End Sub
  • 打赏
  • 举报
回复
mi6236 2003-12-10
对不起,您能提供一些注释吗
Private Sub Label1_Click()
ShellExecute Me.hwnd, "Open", "mailto:" & Label1.Caption & "&subject=您好&body=你好吗?", "", App.Path, 1
这一句我看不明白,我是想打开Outlook程序,在outlook中的邮箱地址框中自动填上邮箱地址
  • 打赏
  • 举报
回复
lxcc 2003-12-10

ShellExecute Me.hwnd, "Open", "mailto:" & Label1.Caption & "&subject=您好&body=你好吗?", "", App.Path, 1

ShellExecute Me.hwnd, "Open", "mailto:" ...

调用默认的邮件发送程序(一般默认为outlook)
  • 打赏
  • 举报
回复
lxcc 2003-12-09
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 Form_Load()
Label1.ForeColor = vbBlue
Label1.Alignment = 2
Label1.AutoSize = True
Label1.Caption = "test@test.com"
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbBlue
End Sub

Private Sub Label1_Click()
ShellExecute Me.hwnd, "Open", "mailto:" & Label1.Caption & "&subject=您好&body=你好吗?", "", App.Path, 1

End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbRed
End Sub
  • 打赏
  • 举报
回复
相关推荐
课程设计-基于C++的mfc框架的学生社团管理系统(源码+数据库+报告).zip 本系统实现的功能 本程序单文档应用程序,主程序界面能实现查询社团信息、修改社团信息、删除社团信息、添加社团信息、入团、退团、用户登录、和用户管理功能其中修改社团信息、删除社团信息、添加社团信息和用户管理需要用户登录后才能使用,未登录就点击使用的会会弹出对话框显示您还没有登录,点击登录按钮会弹出用户登录对话框输入正确的用户名称和密码若验证成功则会显示登录成功显示出您用有的权限高级管理员或者是普通管理员,高级管理员则可以对社团信息进行修改、删除、添加。点击入团按钮会弹出加入社团对话框,在对话框内相应的信息后点击确定成功加入后会有相关提示,若没有成功则有可能您输入的社团不存在,点击退团按钮弹出退出社团对话框,输入您要退出的社团名称和学号点击确定如果成功退出会显示成功的标志,否则的话就是您没有假如该社团活着您的信息不完全。在主程序对话框中可以直接在控件内输入要修改的社团信息,然后点击修改按钮,分别输入控件中的内容然后点击添加按钮,若要添加的社团当前没有的话则添加成功,否则会失败。登录了以后点击用户管理按钮则会弹出用户管理对话框,在该对话框内可以修改用户密码,高级管理员还能注册新用户。
发帖
VBA
加入

2156

社区成员

VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
申请成为版主
帖子事件
创建了帖子
2003-12-09 01:41
社区公告
暂无公告