How to CC a person on an email with VBA code

[robtech4]

I have this code, curtisy of Twinnyfo but I am looking to add another recipient email address as a "cc". Can you please advise on the addition to the code...

Private Sub cmdSubmit_Click() 
On Error GoTo EH 
    Dim strSubject As String 
    Dim strAddressees As String 
    Dim strEMailBody As String 
    strSubject = "Changes Requested" 
    strAddressees = "your.name@company.com" 
    strEMailBody = "Test Message" 
    DoCmd.SendObject acSendNoObject, , acFormatTXT, strAddressees, , , strSubject, strEMailBody, True 
    Exit Sub 
EH: 
    MsgBox "There was an error sending this note!  Please contact your Database Administrator.", vbCritical, "Error!" 
    Exit Sub 
End Sub

[twinnyfo]

Rob, the CC is the argument after the strAddressees. Just set a variable as strCC or something similar or just add the e-mail ddress...

[robtech4]

On Error GoTo EH
    Dim strSubject As String
    Dim strAddressees As String
    [B]Dim strCC As String[/B]    
    Dim strEMailBody As String
    strSubject = "Changes Requested"
    strAddressees = "yourname@company.com"
    [B]strCC = "yourname@company.com"[/B]    strEMailBody = "Please look at changes. Thank you."
    DoCmd.SendObject acSendNoObject, , acFormatTXT, strAddressees, , , strSubject, strEMailBody, True
    Exit Sub
EH:
    MsgBox "There was an error sending this note!  Please contact your Database Administrator.", vbCritical, "Error!"
    Exit Sub
End Sub

Like so?

[twinnyfo]

That should do it... don't forget to include it in your arguments:

DoCmd.SendObject acSendNoObject, , acFormatTXT, strAddressees, strCC, , strSubject, strEMailBody, True

I'm gonna start coming to you for help, next! :-)

[robtech4]

I really hope in some way I will eventually be able to help you or start answering some of the other questions on here!

[twinnyfo]

Also, for a reference for this method, you can brush up on other details concerning it here:

http://msdn.microsoft.com/en-us/library/office/bb214075(v=office.12).aspx