使用VBA发送电子邮件的For循环:仅发送第一封电子邮件

Sub SendEmails()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim i As Integer
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    
    ' 循环发送电子邮件
    For i = 1 To 1 ' 这里设置循环次数为1，即只发送第一封邮件
        ' 创建邮件对象
        Set OutlookMail = OutlookApp.CreateItem(0)
        
        ' 设置邮件的收件人、主题和正文内容
        With OutlookMail
            .To = "recipient@example.com"
            .Subject = "邮件主题"
            .Body = "邮件正文内容"
        End With
        
        ' 发送邮件
        OutlookMail.Send
        
        ' 释放邮件对象
        Set OutlookMail = Nothing
    Next i
    
    ' 释放Outlook应用程序对象
    Set OutlookApp = Nothing
End Sub