通过VBA自定义outlook日历

最新推荐文章于 2024-10-17 13:01:42 发布

felonyxce

最新推荐文章于 2024-10-17 13:01:42 发布

阅读量1.9k

点赞数 1

CC 4.0 BY-SA版权

分类专栏：其他文章标签： outlook vba 日历

本文链接：https://blog.youkuaiyun.com/felonyxce/article/details/82734429

其他专栏收录该内容

0 篇文章

订阅专栏

本文介绍如何利用VBA编程在Outlook中批量创建带有编号的周期性日历条目，例如教学周安排，并提供了具体的VBA代码实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

outlook日历功能很强大，设置了账号后，能在手机端进行同步，经常使用。且outlook能周期性的定义会议或者约会，比如设置每周一次的例会等。但是，有一个小的遗憾，就是不能对每次的重复进行编号，查看不方便。于是，从网上找了一段vba代码，能通过脚本自己设定日历。比如，9月2号开学，设定每周是第几教学周，具体代码如下：

Sub SetAppt()
    Dim olApp As Outlook.Application
    Dim olApt As AppointmentItem
    Dim a As Variant

    Set olApp = New Outlook.Application

    begin = CDate("2018-09-02") '设置开始时间

    For i = 1 To 20 
        Set olApt = olApp.CreateItem(olAppointmentItem)
        With olApt
            .Start = begin + TimeValue("8:00:00") '新建日历的开始时间
            .End = .Start + TimeValue("00:30:00") '新建日历的结束时间
            .Subject = "教学第" + Str(i) + "周"      '新建日历的主题
            .Location = ""   '新建日历的地点
            .Body = ""      '新建日历的内容
            .BusyStatus = olBusy
            .ReminderMinutesBeforeStart = 5   '新建日历提醒时间
            .ReminderSet = True
            .Save
        End With
        begin = begin + 7 '每7天循环一次，也就是每周一次
    Next

    Set olApt = Nothing
    Set olApp = Nothing
End Sub