Question

我想创建一个会议邀请，只能通过Excel在Outlook中预订房间。

这是我正在使用的代码，

Private Sub CommandButton2_Click()
Set myOutlook = CreateObject("Outlook.Application")
Set myApt = myOutlook.CreateItem(1)
myApt.Subject = "Training"
myApt.Start = Now
myApt.RequiredAttendees = "B 101-Training Room-24 <B101-TrainingRoom-24.IOC@cummins.com>"
myApt.End = Now + 30
myApt.MeetingStatus = olMeeting
myApt.send
MsgBox ("Meeting Invite Sent")
Set myOutlook = Nothing
Set myApt = Nothing
End Sub

此代码不会创建任何会议邀请，但也不会产生错误。请告诉我什么可能是遗漏的东西？

感谢。

Answer 1

我认为你最好使用收件人，试试这个

myApt.Recipients.Add（“B 101-Training Room-24＆lt; B101-TrainingRoom-24.IOC@cummins.com>”）

Answer 2

RequiredAttendees属性仅包含所需与会者的显示名称。应使用Recipients集合设置与会者列表。

Answer 3

资源通常作为BCC收件人添加：

@RunWith(SpringJUnit4ClassRunner.class)
@ContextConfiguration(classes = {TestRepositoryConfig.class})
@Transactional
public class ServiceTest {

    @Autowired
    private UserRepository userRepository;

    @Autowired
    private Service service;

static {
   initTestUser();
}

public void setUp() { 
   userRepository.seve(testUser);
}

public void test1() { ... }

public void test2() { ... }

您是否在“已发送邮件”文件夹中看到会议请求？

Answer 4

给定的代码添加除了与会者之外的所有字段。我希望对“邀请与会者”选项进行编码。

Set recip = myApt.RequiredAttendees("B 101-Training Room-24 <B101-TrainingRoom-24.IOC@cummins.com>")

有没有其他方法可以添加被邀请者？仅供参考，我使用的是Outlook 2013。

通过Excel推动Outlook

4 个答案: