Nachum Barcohen nabaco

nabaco / Send email from Outlook to Joplin.bas

Last active March 3, 2024 00:27 — forked from ramisedhom/Send email from Outlook to Joplin.bas

	Public Sub SendToJoplin()
	Dim sToken As String, sURL As String
	Dim sURLNotes, sURLResources, sEscapedBody, sJSONString, sFolderID As String
	Dim objItem As Outlook.MailItem

	sToken = "REPLACE WITH YOUR TOKEN"
	sURL = "http://127.0.0.1:41184"
	sURLNotes = sURL & "/notes?token=" & sToken
	sURLResources = sURL & "/resources?token=" & sToken