Этот макрос использует файл HTML, содержащий шаблон, который он будет использовать для отправки массовых писем.
Функция, которую я для него настроил, может вызывать столбец писем для заполнения для CC; Потребности изменились, и мне бы не хотелось создавать отдельный макрос, который объединяет 2 столбца в 1 - CC 2 разных человека.
Мой вопрос: я попробовал очень прямой подход к созданию второй функции и пытается добавить вторую переменную к CC, но не уверен, что ее синтаксис или способ добавить массив в функцию.
Оборвать; id, как для. Cc = email@email.com; email@email.com
Макрос извлекается из предварительно заполненного списка адресов электронной почты, поэтому у него есть диапазон в функции
У меня есть только общее набор навыков с кодом
Sub PreviewEmail(wsNew As Worksheet, looper As Range, month As Range, year As Range)
'Macro Purpose: To send an email through Outlook
Dim rng As Range
Dim ToEmailList As String
Dim CcEmailList As String
Dim CcEmailListT As String
Dim sSubject As String
Dim sName As String
Dim line As String
Dim oFSO
Dim oFs
Dim pathName As String
pathName = ActiveWorkbook.Path & "\template.htm"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFs = oFSO.OpenTextFile(pathName)
ToEmailList = setToEmail
CcEmailList = setCcEmail
CcEmailListT = setCcEmailT
sSubject = "This is a test"
sName = setSendName
Set OutApp = GetObject(, "Outlook.Application")
If OutApp Is Nothing Then Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
Set rng = wsNew.Range("A1:F" & wsNew.UsedRange.Rows.Count)
With OutMail
stext = oFs.readall
For Each cell In looper
line = line & cell.Text & " " & cell.Offset(0, 1).Text & " <br />"
Next
stext = Replace(stext, "%variable%", line)
stext = Replace(stext, "monthmonthmonth", month.Text)
stext = Replace(stext, "yearyearyear", year.Text)
.SentOnBehalfOfName = "JPMC Workforce Screening"
.To = ToEmailList
.Cc = CcEmailList, CcEmailListT
.Subject = sSubject
.HTMLBody = stext
.Display
End With
End Sub