Tim Adye timadye

## Outlook Notes to Joplin.bas
Option Explicit
Private Declare PtrSafe Function CoCreateGuid Lib "ole32" (ByRef GUID As Byte) As Long
Private has_more As Boolean

Public Sub SendToJoplin()
    Dim sToken As String
    Dim sUrl As String
    Dim sMailFolderName As String
    Dim sNotesFolderName As String
	Option Explicit
	Private Declare PtrSafe Function CoCreateGuid Lib "ole32" (ByRef GUID As Byte) As Long
	Private has_more As Boolean

	Public Sub SendToJoplin()
	Dim sToken As String
	Dim sUrl As String
	Dim sMailFolderName As String
	Dim sNotesFolderName As String