使用下列宏代码,FOXMAIL收件人,主题,正文都可以顺利打开并调用,CC抄送人确无法完成调用,寻求大神指导下。
Sub 发邮件2()
Dim MailBody As String
Dim SelectedRange As Range
Dim rng As Range
Dim Recipient As String, CC As String, BCC As String
Dim Subject As String, Body As String
Dim FoxmailPath As String, cmd As String
'设置Foxmail安装路径(根据实际安装位置修改)
FoxmailPath = """C:\Foxmail 7.2\Foxmail.exe"""
'获取收件人和主题(假设在A1和B1单元格)
Recipient = Range("A2").Value
CC = Range("B2").Value
Subject = Range("C2").Value
MailBody = Range("D2").Value
'构建Foxmail命令行
cmd = FoxmailPath & " /mailto:" & Recipient & _
"?subject=" & Subject & _
"&body=" & MailBody
'发送邮件
Shell cmd, vbNormalFocus
MsgBox "邮件已准备就绪,请检查Foxmail中的待发邮件", vbInformation
End Sub
相似问题