Чего мне не хватает для работы с вложениями электронной почты?

Question

Я читал несколько статей и обращался на форум Microsoft и не получил ни одного ответа, только больше вопросов. Я не опытный программист и знаю только основную информацию по этому вопросу. следующий код частично написан мной, но большая часть его электронной почты была скопирована и вставлена. Я пытаюсь получить рабочую книгу, которая создается и закрывается в начале сценария, для загрузки в виде вложения в отправляемое электронное письмо. я заблокировал цитаты из тех частей, которые связаны с добавлением вложений, которые я добавил.

    Public Sub M_Emailer()

'creates the save file to send
Dim WBname As String
WBname = "BlackList" & ActiveSheet.Name & Format(Now(), "MMM dd, yyyy")

Workbooks.Add
ActiveWorkbook.SaveAs Filename:=WBname

Workbooks("blacklist system").Activate
Range("A1:F150").Select
Selection.Copy

Workbooks(WBname).Activate
Range("A1").Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close

'sends email to Marik for blacklisted devices
Dim CDO_Mail As Object
Dim CDO_Config As Object
Dim SMTP_Config As Variant
Dim strSubject As String
Dim strFrom As String
Dim strTo As String
Dim strCc As String
Dim strBcc As String
Dim strBody As String

Dim strAtch As String

strSubject = "Blacklist From CDR"
strFrom = ""
strTo = ""
strCc = ""
strBcc = ""
strBody = WBname

strAtch = "C: \ Users \ tabor \ Documents \" & WBname & ".xlsx"

Set CDO_Mail = CreateObject("CDO.Message")
On Error GoTo Error_Handling

Set CDO_Config = CreateObject("CDO.Configuration")
CDO_Config.Load -1

Set SMTP_Config = CDO_Config.Fields

With SMTP_Config
 .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
 .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""
 .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
 .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
 .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
 .Update
End With

With CDO_Mail
 Set .Configuration = CDO_Config
End With

CDO_Mail.Subject = strSubject
CDO_Mail.From = strFrom
CDO_Mail.To = strTo
CDO_Mail.TextBody = strBody

CDO_Mail.Attachment = strAtch

CDO_Mail.CC = strCc
CDO_Mail.BCC = strBcc
CDO_Mail.Send

Error_Handling:
If Err.Description <> "" Then MsgBox Err.Description

End Sub