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

[mi6236]

问题1：当鼠标移移入标签时，标签变为红色，移出时返回默认色。
方法：在标签mouse move中设置forecolor=vbred
在fomr中的mouse move中设置forecolor=默认色
有无更好的方法
问题2：单击标签倥件（内容为邮箱地址），能够启动outlook并自动填上邮箱地址

[lxcc]

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 = "[e-mail]"
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

• 打赏
• 举报

回复 赞

[lxcc]

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

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

调用默认的邮件发送程序（一般默认为outlook）

• 打赏
• 举报

回复 赞

[mi6236]

对不起，您能提供一些注释吗
Private Sub Label1_Click()
ShellExecute Me.hwnd, "Open", "mailto:" & Label1.Caption & "&subject=您好&body=你好吗？", "", App.Path, 1
这一句我看不明白，我是想打开Outlook程序，在outlook中的邮箱地址框中自动填上邮箱地址

• 打赏
• 举报

回复 赞

[boydgmx]

Private Sub Label1_Click()
shell "mailto:[e-mail]"
End Sub

• 打赏
• 举报

回复 赞

[mi6236]

楼上说的方法不可行，应该是VBA的create object("?????"I)
但里面怎样写请教高手
集思广益

• 打赏
• 举报

回复 赞