To make a start:

Sub M_snb()
    sn = ActiveSheet.Columns(1).CurrentRegion

    With CreateObject("Outlook.Application")
        For j = 2 To UBound(sn)
            c00 = "[Start] ='" & Format(sn(j, 3), "ddddd h:mm") & "' And [Subject]='" & sn(j, 1) & "'"
            If .GetNamespace("MAPI").GetDefaultFolder(9).Items.Find(c00).Start = "" Then
        
            With .createitem(1)
                 .Subject = sn(j, 1)
                .Location = sn(j, 2)
                .Start = sn(j, 3)
                .Duration = sn(j, 4)
                .BusyStatus = 2
                If sn(j, 5) <> "" Then .BusyStatus = sn(j, 5)
                .ReminderSet = False
                If sn(j, 6) > 0 Then
                    .ReminderSet = True
                    .ReminderMinutesBeforeStart = sn(j, 6)
                End If
                .Body = sn(j, 7)
                .Save
            End With
            End If
        Next
    End With
End Sub
You can find more over here: http://www.snb-vba.eu/VBA_Outlook_external_en.html#L6