Отправка рассылок вместо строк

Question

Я пытаюсь пропустить лист 2 книги Excel в диапазоны электронной почты для клиентов.

Диапазоны: A1: B30, C1: D30, E1: F30 и т. Д. Со своим номером счета в A1 & электронной почты в B1 и нижеуказанной информацией.

Каждый раз, когда я пытаюсь запустить электронную почту он приходит с:

Run Time Error 1004

, а затем переходит к ошибкам

Object has been moved or deleted

Есть еще один способ отправки по электронной почте диапазонов или способ изменить это код?

Sub EmailRanges() 
Dim cr As Range 
Set cr = [b1] 
ActiveWorkbook.EnvelopeVisible = True 
Do While cr <> "" 
    cr.Offset(, -1).Resize(30, 2).Select 
    With ActiveSheet.MailEnvelope 
     .Introduction = " Good Morning" 
     .Item.To = cr 
     .Item.Subject = "Just testing, sorry for filling you inbox ^_^ " 
     .item.Send         ' to send 
     .Item.Display        ' to test 
    End With 
    MsgBox cr & " receives " & Selection.Address 
    Set cr = cr.Offset(, 2) 
Loop 
Application.ScreenUpdating = True 
MsgBox "The Customers Have Been Notified" 
End Sub 

Answer 1

Необходимо более подробно рассказать о своих рекомендациях (книга, лист, ...).

Thx в @Ralph:

A range can be only selected if the sheet is activated first. Otherwise, you'll get an error.

Этот пробег гладко на моем компьютере:

Sub Email_Ranges() 
    Dim rG As Range 
    Dim RangeToSend As Range 
    Dim CustomerMail As String 

    Set rG = ActiveWorkbook.ActiveSheet.[b1] 

    ActiveWorkbook.EnvelopeVisible = True 

    Do While rG.Value <> vbNullString 
     CustomerMail = rG.Value 
     Set RangeToSend = rG.Offset(, -1).Resize(30, 2) 

     'With RangeToSend.Parent.MailEnvelope 

     ''Uncomment below if you get an error 
     rG.Parent.Activate 
     RangeToSend.Select 
     With Selection.Parent.MailEnvelope 

      .Introduction = "Good Morning" 
      With .Item 
       .To = CustomerMail 
       .Subject = "Just testing, sorry for filling your inbox ^_^ " 
       .display 'to test 
       .Send  'to send 
      End With 
     End With 
     Debug.Print CustomerMail & " receives " & RangeToSend.Address 
     Set rG = rG.Offset(, 2) 
    Loop 

    ActiveWorkbook.EnvelopeVisible = False 
End Sub