Excel VBA - 您可以将Outlook电子邮件中的“发件人”设置为已定义的文本吗？

Question

我有以下rondebruin电子邮件代码，它创建一个临时文件，将文件附加到电子邮件，发送电子邮件，并删除临时文件。

一切都很好，但是，当收到电子邮件时，＆＃39;来自＆＃39;始终是发件人的电子邮件地址...是否有办法更改＆＃39;来自＆＃39;是一个定义的文本，如我的公司名称（不是电子邮件地址）？

    With OutMail
        .to = Replace(UserForm4.TextBox1.Value, ",", ";")
        .CC = ""
        .BCC = ""
        .Subject = "BBC FOD Component Parts " & Format(Now, "dd-mmm-yyyy")
        .Body = "Please find attached BBC FOD Component part data for net stock from " & UserForm1.TextBox1.Value & " to " & UserForm1.TextBox2.Value
        .Attachments.Add Destwb.FullName
        .Send
    End With

由于

SMORF