Home > Mobile >  I want to add "CC" and Text in the body of this code. What should I do to add it?
I want to add "CC" and Text in the body of this code. What should I do to add it?

Time:11-15

I have been able to create an automated email reply as I wanted. However, I wanted to add text in the body of the email and cc to add email address. How should I add it?

Sub FwdSelToAddr()
    Dim objOL As Outlook.Application
    Dim objItem As Object
    Dim objFwd As Outlook.MailItem
    Dim strAddr As String
    Dim objRecip As Outlook.Recipient
    Dim objReply As MailItem
    On Error Resume Next
    Set objOL = Application
    Set objItem = objOL.ActiveExplorer.Selection(1)
    If Not objItem Is Nothing Then
        strAddr = ParseTextLinePair(objItem.Body, "Email:")
        If strAddr <> "" Then
            Set objFwd = objItem.Forward
            objFwd.To = strAddr
            objFwd.Display
        Else
            MsgBox "Could not extract address from message."
        End If
    End If
    Set objOL = Nothing
    Set objItem = Nothing
    Set objFwd = Nothing
End Sub

This is what I have done so far. I just want to be able to add CC email address and text in the body in the automated reply.

CodePudding user response:

You need to modify the code a bit by setting the Cc property and the HTMLBody one if you need to modify or update the message body:

If strAddr <> "" Then
  Set objFwd = objItem.Forward
  objFwd.To = strAddr
  objFwd.Cc = "[email protected]"
  objFwd.HTMLBody = "<b>Hello world</b>"
  objFwd.Display
Else

Be aware, to preserve the message body from the original email you need to insert your content between the opening <body> and closing </body> tags. If you need to add in the beginning of the message paste your additional text right after the opening tag, if you intend to paste it in the end of message - paste right before the closing tag.

Also you may find the Recipients property of the MailItem class helpful. It allows a more convenient way for setting up recipients for the Outlook items. You can read more about that property in the article that I wrote for the technical blog - How To: Fill TO,CC and BCC fields in Outlook programmatically.

  • Related