vba 发邮件如何显示发件人

daqinqin

这个vba就是将“列表”中B列的邮箱地址作为发件人发出去。
发邮件倒是没什么问题，但是没有显示发件人，就很不完美。。如下图所示。。发件人那一块是空的。但对方确实收到了邮件。
红色的那一段是网上找的方法，但是不会用。。打没有大佬帮忙解决下


Option Base 1
Sub Send_Email_Macro()

Dim n%

n = ThisWorkbook.Sheets("列表").[B65536].End(3).Row


For i = 2 To n
    Call Send_Email_By_Outlook(i)
Next i

End Sub
Sub Send_Email_By_Outlook(ByVal i As Integer)
    'On Error Resume Next
Start = Timer
    Application.ScreenUpdating = False
    Dim Temp As Object, Newmail As Object, strg$
    Set Temp = CreateObject("Outlook.Application")
    Set Newmail = Temp.CreateItem(olMailItem)

    Email_From = "xx@outlook.com"

    Email_To = ThisWorkbook.Sheets("列表").Cells(i, 1)  '"2@outlook.com"


    Email_Subject = "Intermediate supplier"

    Email_Body = ThisWorkbook.Sheets("发邮件").Cells(1, 1)

        With Newmail
            .To = Email_To
            .Recipients.Add (ThisWorkbook.Sheets("列表").Cells(i, 1))

            '.CC = Email_Cc
            .Subject = Email_Subject
            .Body = Email_Body
           ' .Attachments.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name  '添加附件
            .Send
        End With

    Application.ScreenUpdating = True

    Set Temp = Nothing
    Set Newmail = Nothing

'MsgBox Format(Timer - Start, "0.00")

End Sub

sj15627581616

说得很清楚，必须有一个，从代码来看，你把抄送人注释掉了

daqinqin

sj15627581616 发表于 2024-3-6 16:04
说得很清楚，必须有一个，从代码来看，你把抄送人注释掉了

没注释掉也是这个提醒，这个邮件是发的出去的，接受的人也收得到，就是发出去后，我邮箱显示的发件人那地方是空的，群发才会这样。如果只是单个发件人.to = "1@outlook.com"的话，那个收件人的位置才有显示。