如果是为了发送邮件,那就不要调用OUTLOOK了
直接使用System.Web.Mail中的类
Dim mailMsg As New MailMessage
With mailMsg
.From = txtFrom.Text.Trim
.To = txtTo.Text.Trim
.Cc = txtCC.Text.Trim
.Bcc = txtBCC.Text.Trim
.Subject = txtSubject.Text.Trim
.Body = sb.ToString
'设置优先级
.Priority = CType(cboPriority.SelectedIndex, MailPriority)
'追加附件
If Not IsNothing(arlAttachments) Then
Dim mailAttachment As Object
For Each mailAttachment In arlAttachments
.Attachments.Add(mailAttachment)
Next
End If
End With
SmtpMail.Send(mailMsg)
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Shell("explorer.exe mailto:musiclife@21cn.com", AppWinStyle.NormalFocus)
End Sub