Skip to content

Instantly share code, notes, and snippets.

@timendum

timendum/obsidian.vbs

Created March 18, 2025 10:30
Download ZIP

Revisions

  1. timendum created this gist Mar 18, 2025.
    63 changes: 63 additions & 0 deletions obsidian.vbs
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,63 @@
    Sub ExtractMeetingInfoToObsidian()
    Dim objApp As Outlook.Application
    Dim objSelection As Outlook.Selection
    Dim objItem As Object
    Dim objMeeting As Outlook.AppointmentItem
    Dim strMarkdown As String
    Dim strAttendees As String
    Dim arrAttendees() As String
    Dim i As Integer
    Dim strFileName As String
    Dim strFilePath As String
    Dim sAttendee As String
    Dim intFileNum As Integer

    Set objApp = Outlook.Application
    Set objSelection = objApp.ActiveExplorer.Selection

    If objSelection.Count = 0 Then
    MsgBox "No items selected.", vbExclamation
    Exit Sub
    End If

    Set objItem = objSelection.Item(1)

    If Not TypeOf objItem Is Outlook.AppointmentItem Then
    MsgBox "Please select a meeting item.", vbExclamation
    Exit Sub
    End If

    Set objMeeting = objItem

    ' Extract meeting information
    strMarkdown = "## " & objMeeting.Subject & vbCrLf
    strMarkdown = strMarkdown & "- Orario: " & Format(objMeeting.Start, "hh:mm") & " - " & Format(objMeeting.End, "hh:mm") & vbCrLf
    strMarkdown = strMarkdown & "- Partecipanti:" & vbCrLf

    ' Extract attendees
    strAttendees = objMeeting.RequiredAttendees & ";" & objMeeting.OptionalAttendees
    arrAttendees = Split(strAttendees, ";")

    For i = LBound(arrAttendees) To UBound(arrAttendees)
    sAttendee = Trim(arrAttendees(i))
    If sAttendee <> "" Then
    If Right(sAttendee, 4) = ", IT" Then
    sAttendee = Left(sAttendee, Len(sAttendee) - 4)
    End If
    strMarkdown = strMarkdown & vbTab & "- " & sAttendee & vbCrLf
    End If
    Next i

    strMarkdown = strMarkdown & vbCrLf

    ' Determine file name and path
    strFileName = Format(objMeeting.Start, "yyyy-mm-dd") & ".md"
    strFilePath = Environ("USERPROFILE") & "\Documents\Obsidian\Daily\" & strFileName

    ' Write to file
    intFileNum = FreeFile
    Open strFilePath For Append As #intFileNum
    Print #intFileNum, strMarkdown
    Close #intFileNum

    End Sub