Question

我正在使用以下VBA脚本从outlook发送电子邮件。工作顺利。唯一的问题是我也想设置我的发件人。我使用了两个名为“Marc”和一个名为“bedrijfsbureau”（见图：http://www.flickr.com/photos/112983354@N05/12344745935/）

有人知道如何设置它吗？下面的代码在我的.from

中给出了错误

Sub SendMessage()

Dim OutApp As Object
Dim OutMail As Object
Dim var1 As String
Dim sentto As String

sentto = "Referentenrapportage"


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)


var1 = InputBox("Zet hier neer welke maand het is")

    With OutMail
    .From = Bedrijfsbureau
    .To = sentto
    .CC = ""
    .BCC = ""
    .Subject = "SENS referentenrapportage Maand" & var1
    .Body = "Beste SDM'er, Bijgevoegd de SENS sterrenrapportage van maand" & var1


    .Display
    End With
    End Sub

Answer 1

您看到该错误，因为.From不是MailItem对象的有效属性。（See this获取MailItem属性的完整列表。）

如果您要发送电子邮件on behalf of Bedrijfsbureau，则需要使用MailItem对象属性SentOnBehalfOfName。例如，您可以像这样使用它：

With OutMail
    .SentOnBehalfOfName = "Bedrijfsbureau@yourcompany.com"
    'Other code
End With

如果您有两个不同的帐户，并且您想使用第二个帐户，则需要知道Bedrijfsbureau的帐号。 Ron de Bruin有一篇很好的文章详细介绍了这一点（以及一些示例代码）。我强烈建议你看一下。

VBA展望 - 从框中设置

1 个答案: