Sub mailing_OPER()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range
    Dim asTo, asSubject, asBody, asAttachment

    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon

    asTo = Range("B2:B36").Value
    asSubject = Range("C2:C36").Value
    asBody = Range("D2:D36").Value
    asAttachment = Range("E2:E36").Value

    For i = 1 To UBound(asTo, 1)
        Set OutMail = OutApp.CreateItem(0)
        On Error Resume Next
        With OutMail
            .To = asTo(i, 1)
            .Subject = asSubject(i, 1)
            .body = asBody(i, 1)
            .Attachments.Add asAttachment(i, 1)
            .Send 'Display
        End With
        On Error GoTo 0
        Set OutMail = Nothing
    Next i

cleanup:
    Set OutApp = Nothing
    Application.ScreenUpdating = True
End Sub