With myItem
    ' The Address of the main message
    .To = Email_To_Addressee
    ' The address of any info copies
    .CC = Email_CC_Addressee
    ' Add the subject of the mail message
    .Subject = Email_Subject
    ' Create some body text
    .Body = Email_Body
    For j = 1 To UBound(AttachmentArray())
        If Len(AttachmentArray(j)) > 0 Then
            .Attachments.Add AttachmentArray(j)
            AttachmentArray(j) = ""' Blank when done
        End If
    Next
    'Send the mail message
    .Send
End With