嘿，我来帮你搞定这个VBA发邮件的问题！你遇到的重复邮箱只发一封的情况，大概率是代码里藏了去重逻辑，或者没有每次循环都新建独立的邮件对象导致的，下面给你具体的修改方案：

一、先检查并移除邮箱去重代码 #

很多人为了避免重复发送会加字典去重，这正是导致重复邮箱只发一次的原因！如果你的代码里有类似下面的内容，直接删掉就行：

' 这类去重代码要删掉
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")

' 循环里的判断逻辑也要删掉
If Not dict.Exists(emailAddr) Then
    dict.Add emailAddr, True
    ' ... 发送邮件的代码
End If

删掉这段后，循环就会逐个处理每个单元格的邮箱，不管是否重复。

二、确保每次循环都新建Outlook邮件对象 #

如果你的代码是在循环外面创建了一次邮件对象，复用同一个对象修改内容发送，这会导致后续的邮件覆盖前面的，最终可能只发了最后一封（或者你看到的第一封是因为后续操作出了问题）。你需要把创建邮件对象的代码放到循环内部：

Dim olMail As Outlook.MailItem
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("你的数据工作表")

' 遍历每行的邮箱单元格（假设邮箱在第A列，从第2行开始）
For i = 2 To ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    ' 每次循环都新建一个独立的邮件对象
    Set olMail = Outlook.Application.CreateItem(olMailItem)
    
    ' 填充当前行的邮箱
    olMail.To = ws.Cells(i, "A").Value
    ' 填充邮件主题、正文（或者加载你的模板）
    olMail.Subject = "来自Excel的批量邮件"
    olMail.HTMLBody = "您好，这是针对" & ws.Cells(i, "B").Value & "的专属内容"
    
    ' 如果是用现成的Outlook模板，就换成下面的代码加载模板
    ' Set olMail = Outlook.Application.CreateItemFromTemplate("C:\Templates\你的模板.oft")
    ' olMail.To = ws.Cells(i, "A").Value
    ' 再填充其他需要替换的字段
    
    ' 发送邮件（或者用olMail.Display预览）
    olMail.Send
    ' 释放对象，避免内存占用
    Set olMail = Nothing
Next i

这样每次循环都会生成一个全新的邮件，不会和之前的内容冲突。

三、如果单元格里有多个邮箱（用分号/逗号分隔） #

如果你的单元格里是多个邮箱用分号或逗号隔开的，还需要拆分后逐个发送，避免把多个邮箱塞进同一封邮件：

Dim emailArr As Variant
Dim singleEmail As String
Dim i As Long
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("你的数据工作表")

For i = 2 To ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    ' 拆分单元格中的多个邮箱（这里用分号，逗号的话换成","）
    emailArr = Split(ws.Cells(i, "A").Value, ";")
    ' 遍历每个拆分出来的邮箱
    For Each singleEmail In emailArr
        Set olMail = Outlook.Application.CreateItem(olMailItem)
        ' 去掉邮箱前后的空格
        olMail.To = Trim(singleEmail)
        ' 填充其他内容
        olMail.Subject = "专属邮件"
        olMail.Send
        Set olMail = Nothing
    Next singleEmail
Next i

总结一下：核心就是去掉邮箱去重的逻辑，并且每次循环都新建独立的邮件对象，这样每个含邮箱的单元格（甚至单元格里的每个单独邮箱）都会对应发送一封邮件。

内容的提问来源于stack exchange，提问作者Yogwhatup