EMail VBA Code

  • Hi,


    I have the following macro:


    Private Sub cmdFinish_Click()
    AllFormsUnload
    ActiveWorkbook.SaveAs Filename:="F:\Project Proformas" & Range("title").Value & ".xls", _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False
    On Error Resume Next
    Application.Dialogs(xlDialogSendMail).Show _
    arg1:="[email protected]", _
    arg2:="Project Proforma"
    If Err <> 0 Then
    MsgBox "Sorry, an error has occured, please notify [email protected]"
    End
    End If
    End Sub



    with the above:


    Arg1 is for "To"
    Arg2 is for "Subject"


    I need help as to the what the code for the "cc" section.
    I am using Microsoft Outlook.


    Jay