在Excel-VBA中进行邮件循环是可能的，以下是一个解决方法的示例代码：

Sub EmailLoop()
    Dim i As Integer
    Dim lastRow As Integer
    Dim outlookApp As Object
    Dim outlookMail As Object
    Dim emailAddr As String

    ' 获取最后一行的行数
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row

    ' 创建Outlook应用程序对象
    Set outlookApp = CreateObject("Outlook.Application")

    ' 遍历每一行发送邮件
    For i = 2 To lastRow
        ' 获取收件人的邮箱地址
        emailAddr = Cells(i, 1).Value
        
        ' 创建邮件对象
        Set outlookMail = outlookApp.CreateItem(0)
        
        ' 设置邮件属性
        With outlookMail
            .To = emailAddr
            .Subject = "邮件主题"
            .Body = "邮件内容"
            ' .Attachments.Add "文件路径"   ' 添加附件（可选）
            .Send   ' 发送邮件
        End With
        
        ' 释放邮件对象的内存
        Set outlookMail = Nothing
        
        ' 添加延迟，避免频繁发送邮件被拦截
        Application.Wait (Now + TimeValue("0:00:01"))
    Next i

    ' 释放Outlook应用程序对象的内存
    Set outlookApp = Nothing
End Sub

在这个示例中，首先获取最后一行的行数以确定循环范围。然后，使用CreateObject函数创建Outlook应用程序对象。在循环中，获取每一行的收件人邮箱地址，并使用CreateItem方法创建邮件对象。设置邮件的收件人、主题、内容等属性，然后调用Send方法发送邮件。发送完毕后，释放邮件对象的内存，并使用Application.Wait方法添加一个延迟，避免频繁发送邮件被拦截。最后，释放Outlook应用程序对象的内存。

请注意，为了使上述代码正常工作，你需要将邮件主题、邮件内容以及可选的附件路径进行修改。另外，你还需要确保你的计算机上已安装了Outlook应用程序。