Excel VBA에서 Outlook 일정을 추가해 보았습니다.

새로 약속 만들기

새로 Outlook 약속을 등록하는 매크로

Sub 予定の作成() 
    Dim objOL        As Object
    Dim objApp       As Object
    Dim strSubject   As String
    Dim strStart     As String
    Dim strEnd       As String
    Dim strLocation  As String
    Dim lngRemind    As Long
    Dim strBody      As String
    Dim olAppointmentItem As Integer

    olAppointmentItem = 1

    Set objOL = CreateObject("Outlook.Application")
    strSubject = Sheet1.Range("B1")
    strLocation = Sheet1.Range("B2")
    strStart = Sheet1.Range("B3")
    strEnd = Sheet1.Range("B4")
    lngRemind = Sheet1.Range("B5")
    strBody = Sheet1.Range("B6")

    Set objApp = objOL.CreateItem(olAppointmentItem)
    With objApp
        .Subject = strSubject
        .Location = strLocation
        .Start = strStart
        .End = strEnd
        .Body = strBody
        .ReminderMinutesBeforeStart = lngRemind
        .ReminderSet = True
        .Save
    End With
    Set objApp = Nothing
    Set objOL = Nothing
End Sub

계속해서