加上“；抄送收件人“；到Outlook 2010 VBA_Vba_Outlook

加上“；抄送收件人“；到Outlook 2010 VBA

vba outlook

加上“；抄送收件人“；到Outlook 2010 VBA,vba,outlook,Vba,Outlook,有人能告诉我如何将“抄送收件人”添加到此代码中吗？“收件人”和代码按照预期完成所有工作。谢谢你抽出时间 Sub ForwardEmail(item As Outlook.MailItem) ' Dim oExplorer As Outlook.Explorer Dim oMail As MailItem ' Set oExplorer = Application.ActiveExplorer On Error GoTo Release ' If oExplorer.Selection.ite

有人能告诉我如何将“抄送收件人”添加到此代码中吗？“收件人”和代码按照预期完成所有工作。谢谢你抽出时间

Sub ForwardEmail(item As Outlook.MailItem)
' Dim oExplorer As Outlook.Explorer
Dim oMail As MailItem
' Set oExplorer = Application.ActiveExplorer

On Error GoTo Release

' If oExplorer.Selection.item(1).Class = olMail Then

Set oMail = item.Forward
oMail.Subject = oMail.Subject
oMail.HTMLBody = "Have a nice day." & vbCrLf & oMail.HTMLBody
oMail.Recipients.Add "email address here"

' oMail.Save
oMail.Send

' End If

Release:
Set oMail = Nothing
' Set oExplorer = Nothing
End Sub

或

您试过oMail.CC吗？非常感谢。非常有用。我很感激你的时间。如果这篇文章回答了你的问题，请把它标记为答案。谢谢。我会投赞成票，但我刚刚开始，还没有足够的代表分数。如果您需要直接参考这些值，特别是针对收件人。

set oRecip = oMail.Recipients.Add("email address here")
oRecip.Type = olCC

oMail.CC = "email address here"