用默认电子邮件程序的问题
Private Sub LblEmail_Click(Index As Integer)
Dim strMail As String
Dim intResult As Integer
strMail = "mailto:" & LblEmail(Index).Caption & "&subject=" & App.Title & "发现一个虫子&body=失落的彩虹:" _
& "在" & App.Title & lblVersion & "发现一个大虫子,"
intResult = ShellExecute(Me.hwnd, "open", strMail, vbNullString, vbNullString, SW_SHOW)
If intResult = 0 Then
MsgBox "打开邮件程序出错,请检查邮件程序是否正常!", vbInformation, "邮件发送失败"
End If
End Sub
上面这个代码,如果默认程序是oe,肯定没有问题,点击标签出来的就是我想要的内容,地址是我的地址,主题,内容位置都对。
如果换一个邮件程序,比如foxmail,比如lotus。上面程序运行的结果是整个字符串全部填到subject里面了,也就是主题被写成App.Title & "发现一个虫子&body=失落的彩虹:" _
& "在" & App.Title & lblVersion & "发现一个大虫子,"
难道微软对oe还有特别照顾?还是我什么地方写错了?希望大家指点。
不要告诉我只用oe,我就是用不了oe才这么干的