object variable or with block variable not set

[sergt78]

помоги доразобраться с кодом, пожалуйста..

сам код:

Sub ggg()

FN1 = Sheets("Лист1").Range("J11").Value
FN11 = Sheets("Лист1").Range("I11").Value
FN2 = Sheets("Лист1").Range("J12").Value
FN21 = Sheets("Лист1").Range("I12").Value
FN3 = Sheets("Лист1").Range("M1").Value

Dim o_Mess As Object, v_Conf As String, email As String
v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
Set o_Mess = CreateObject("CDO.Message")

If FN1 = 1 And FN3 > 0 And FN11 = 1 Then

    Sheets("Лист1").Select
    Range("M2:M100").Copy
    Sheets("Лист1").Select
    Range("N2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    
    FN4 = Sheets("Лист1").Range("N1").Value

    For i = 1 To FN4
    
        FN5 = Sheets("Лист1").Range("O1").Value
    
        FN6 = Sheets("Лист1").Range("L" & FN5).Text
        FN7 = Sheets("Лист1").Range("G33").Text
        FN8 = Sheets("Лист1").Range("H" & FN5).Text
        FN9 = Sheets("Лист1").Range("J6").Text
        FN10 = Sheets("Лист1").Range("J4").Text

        With o_Mess
            .To = FN6
            .From = FN7
            .Subject = "ПО СНГ"
            .TextBody = "Ежедневный отчет по объекту " & FN8 & " за " & FN9 & " на " & FN10 & " не предоставлен."
            .AddAttachment ""
            With .Configuration.Fields
                .Item(v_Conf & "sendusing") = 2
                .Item(v_Conf & "smtpserver") = "smtp.yandex.ru"
                .Item(v_Conf & "smtpauthenticate") = 1
                .Item(v_Conf & "sendusername") = "ддддддддддддд
                .Item(v_Conf & "sendpassword") = "дддддддддд"
                .Item(v_Conf & "smtpserverport") = 25
                .Item(v_Conf & "smtpusessl") = False
                .Item(v_Conf & "smtpconnectiontimeout") = 60
                .Update
            End With
            .send
        End With
        Set o_Mess = Nothing
        
        Sheets("Лист1").Select
        Range("N" & FN5).Select
        Selection.ClearContents
    
    Next i
 
End If


End Sub

выбрасывает с ошибкой "object variable or with block variable not set" в строке ".To = FN6"

на одном адресе работает, и в цикле работало еще позавчера и прекрасно работало, с сегодняшего дня ни в какую. хотя код то и не ворочал добавил только проверку на ранее проведенную отсылку ("And FN11 = 1 ").

Вообщем цикл не получается организовать. Библиотека CDО подключена.

[kalbasiatka]

Сообщение от sergt78

помоги

Кто-то конкретно или от множественного числа рвотный рефлекс даёт о себе знать?

[sergt78]

Сообщение от kalbasiatka

Кто-то конкретно или от множественного числа рвотный рефлекс даёт о себе знать?

прошу прощения, писал торопился... и описался.
Хотел конечно же написать "Помогите, кто чем может.. пожалуйста"

[AndVGri]

Ещё бы не выбрасывало после первого прохода цикла что стоит?
Правильно

Set o_Mess = Nothing

"...вот и нету таракана, и усов от него не осталося"

[sergt78]

Сообщение от AndVGri

Ещё бы не выбрасывало после первого прохода цикла что стоит?
Правильно

Set o_Mess = Nothing

"...вот и нету таракана, и усов от него не осталося"

ООООООООО Огромное спасибо.... Заработало.. Я уж честно думал что эта строка очищает параметры объекта, а не убивает его.

Все заработало Большущее спасибо.