Vb.net 当提供显示名称时，“发送电子邮件”将成为垃圾邮件

我正在使用smtp客户端从office 365帐户发送电子邮件。下面是我用来发送电子邮件的代码。电子邮件将进入outlook中的“垃圾邮件”文件夹，并且发件人地址显示为

EmployeeName@

而不是

EmployeeName@yyy.com

。那么，谁能给我一个解决方案来解决这个问题呢

Dim客户端作为新的SmtpClient（）
将消息变暗为新邮件消息（）
Dim par_ReplyName作为字符串=”noreply@xxx.com"
Dim par_ReplyAddress作为字符串=”EmployeeName@yyy.com"
message.From=新邮件地址（par_ReplyName，par_ReplyAddress）
message.ReplyToList.Add（par_ReplyAddress）
message.Priority=MailPriority.Normal
message.Subject=“测试电子邮件”
message.Body=“一些HTML内容”
message.IsBodyHtml=True
client.Host=“smtp.office365.com”
client.Port=587
client.Credentials=New System.Net.NetworkCredential（smtpUser，smtpPassword）
client.EnableSsl=True
客户端发送（消息）

以下是如何使用

邮件地址

构造函数：

message.From = New MailAddress(par_ReplyName, par_ReplyAddress)

以下是文档中该构造函数的声明：

'Declaration 
Public Sub New ( _
    address As String, _
    displayName As String _
)

---

你有没有发现什么不对劲的地方，比如你的参数可能有错误？

嗯，也许可以看看

MailAddress

构造函数的文档，并密切注意参数。