Блог

 Sub ProbationEmailGeneral() Dim r как диапазон Dim cell как диапазон


 Set r = Range("CI:CI")


For Each cell In r

    If cell.Value = Date Then

        Dim Email_Subject, Email_Send_From, Email_Send_To, _
        Email_Cc, Email_Bcc, Email_Body As String
        Dim Mail_Object, Mail_Single As Variant

        Email_Subject = "TEXT"
        Email_Send_From = "email"
        Email_Send_To = "email"
        Email_Cc = ""
        Email_Bcc = ""
        Email_Body = "TEXT"

        On Error GoTo debugs
        Set Mail_Object = CreateObject("Outlook.Application")
        Set Mail_Single = Mail_Object.CreateItem(0)
        With Mail_Single
        .Subject = Email_Subject
        .To = Email_Send_To
        .cc = Email_Cc
        .BCC = Email_Bcc
        .Body = Email_Body
        .send
        End With

    End If

Next


Exit Sub
  

отладки:
Если ошибка.Description <> «», то ошибка MsgBox.Description

End Sub

Это код. вчера это работало без проблем, но когда я пытаюсь запустить его, он возвращает мне ошибку 2015 и делает эту строку «Если ячейка.Значение = Дата, затем «желтый.