First trial to create note from Outlook

Tekki · 2019-12-28T17:03:21.612Z

iknow79:

I`m not talking of images, but the last "destoryed code" above

@rami.sedhom Maybe you could create a Gist with the final code and link to it from the first message in this thread?

iknow79 · 2019-12-28T23:43:42.826Z

iknow79:

Public Sub SendToJoplin() Dim sToken As String Dim sURL, sURLNotes, sURLResources, sEscapedBody, sJSONString, sFolderID As String Dim objItem As Outlook.MailItem sToken = “REPLACE ME WITH YOUR TOKEN” sURL = “http://127.0.0.1:41184” sURLNotes = sURL & “/notes?token=” & sToken For Each objItem In ActiveExplorer.Selection sEscapedBody = EscapeBody( _ “Date: " & objItem.ReceivedTime & “
” _ & “To: " & objItem.To & “
” _ & objItem.HTMLBody) sFolderID = GetFoldersFromJoplin(sToken, “http://127.0.0.1:41184”) With CreateObject(“MSXML2.XMLHTTP”) .Open “POST”, sURLNotes, False .Send “{ ““title””: “”” & objItem.ConversationTopic & “””” _ & “, ““parent_id””: “”” & sFolderID & “”"" _ & “, ““body_html””: “”” & sEscapedBody & “”"" _ & " }" Do Until .ReadyState = 4: DoEvents: Loop sJSONString = .ResponseText End With Next 'Debug.Print sJSONString 'Uncomment to see joplin response End Sub Private Function EscapeBody(sText As String) EscapeBody = sText EscapeBody = Replace(EscapeBody, “”, “\”) 'Backslash is replaced with \ EscapeBody = Replace(EscapeBody, Chr(34), “” & Chr(34)) 'Double quote is replaced with " EscapeBody = Replace(EscapeBody, vbCr, “\r”) 'Carriage return is replaced with \r EscapeBody = Replace(EscapeBody, vbLf, “\n”) 'Newline is replaced with \n EscapeBody = Replace(EscapeBody, Chr(8), “\b”) 'Backspace is replaced with \b EscapeBody = Replace(EscapeBody, Chr(12), “\f”) 'Form feed is replaced with \f EscapeBody = Replace(EscapeBody, vbTab, “\t”) 'Tab is replaced with \t End Function Private Function GetFoldersFromJoplin(sToken As String, sURL As String) 'Input token, url 'Output folder id Dim sJSONString, sMessage, sTitle, sDefault, sMyChoice As String Dim vJSON As Variant Dim sState As String Dim aData(), aHeader() Dim i As Integer sURL = sURL & “/folders?token=” & sToken 'Get folders list With CreateObject(“MSXML2.XMLHTTP”) .Open “GET”, sURL, False .Send Do Until .ReadyState = 4: DoEvents: Loop sJSONString = .ResponseText End With 'Parse JSON response JSON.Parse sJSONString, vJSON, sState JSON.ToArray vJSON, aData(), aHeader() 'Dsiplay a choices of folders 'Set prompt sMessage = "Enter a value between " & LBound(aData) & " To " & UBound(aData) For i = LBound(aData) To UBound(aData) sMessage = sMessage & Chr(10) & i & " " & aData(i, 2) Next i sTitle = “Choose Joplin folder…” 'Set title sDefault = “1” 'Set default sMyChoice = InputBox(sMessage, sTitle, sDefault) GetFoldersFromJoplin = aData(sMyChoice, 0) End Function

This one...

tessus · 2019-12-29T13:38:55.914Z

@iknow79 Can you please put code in a proper code block? Don’t you see how messy your posts look like?

iknow79 · 2019-12-29T15:57:29.789Z

My post??? I posted it in the same way rami posted it above. That`s why I said it is “destroyed”. Take a look above. Please have a look first before creating comments like this…

tessus · 2019-12-29T19:58:59.289Z

I did, maybe you are blind, but your posts are the only ones that look like that.

rami.sedhom · 2019-12-30T09:00:49.294Z

Tekki:

Maybe you could create a Gist with the final code and link to it from the first message in this thread?

Here is the gist: Send email from Outlook to Joplin.bas · GitHub

@Tekki How to link it from the first post? It seems I can't edit old posts!

Tekki · 2019-12-30T09:50:16.601Z

rami.sedhom:

@Tekki How to link it from the first post? It seems I can't edit old posts!

Don't know, I thought it is possible. When I go to my older posts I have an edit this post button.
Thanks for all your work! This was my most missed feature from OneNote.

235462849350 · 2019-12-30T12:15:14.617Z

@rami.sedhom:
Great work, thanks a lot. But running the code I only get 5 notebooks as a clipping destination. But I have created a lot more:)
Where can this be changed?

rami.sedhom · 2019-12-30T12:33:39.841Z

Tekki:

When I go to my older posts I have an edit this post button

May be because you are an old member with lot of badges

235462849350:

But running the code I only get 5 notebooks as a clipping destination. But I have created a lot more:)
Where can this be changed?

This is true, I create 6 notebooks and api GET folders returned only 5!
There is noting in the code limiting the number of folders, and there is nothing in the api documentation about limitation in response. So I'm not sure what's the solution.

@laurent, @Tekki, @tessus any advice about this limitation?

235462849350 · 2019-12-30T13:58:05.625Z

@rami.sedhom:
Another question:
Right now it seems, that only “to” , the date and the mail text are sent to Outlook.
Would it be possible to sent the whole header, like this:

From: xy xy xy.xy@domain.com
Sent: Samstag, 9. November 2019 22:29
An: aa.bb@domain.com
Subject: bla bla

This is the mail text

Tekki · 2019-12-30T14:12:47.209Z

235462849350:

Right now it seems, that only "to" , the date and the mail text are sent to Outlook.

This is just an example I've made. In one of the above posts I've already added a link to the docs for the MailItem props. You can add to your script whatever you like to see.

laurent · 2019-12-30T14:14:27.957Z

rami.sedhom:

This is true, I create 6 notebooks and api GET folders returned only 5!

A screenshot and corresponding JSON might help. Note that /folders return a tree of folders so sub-folders won't be at the root.

rami.sedhom · 2020-01-03T15:29:13.128Z

235462849350:

But running the code I only get 5 notebooks as a clipping destination. But I have created a lot more:)

I tried today and works fine
Would you try and confirm?

235462849350 · 2020-01-05T14:16:58.604Z

Don`t know why, I did not change anything, but no I can select all my notebooks. Strange, but it works:)

rain · 2021-03-03T03:18:56.404Z

Thank you very much for this great plugin. It works like a magic, but can be nicer if the two places can be improved (in my opinion):

The attached file of the email will not be imported to Joplin (no matter pdf or photos), don't know if I missed something here?
It will pop up folder selection for each file when I have many files to be imported to Joplin. It can be nicer if only one selection is asked for one import action (no matter how many files are going to be imported to Joplin) .

skim1124 · 2021-03-03T08:44:15.924Z

How do I find the sToken for Joplin? I can't seem to find any answers here or through Google. Can someone help?

JackGruber · 2021-03-03T09:13:37.433Z

Tools > Options > Web Clipper there you can find the Token.

skim1124 · 2021-03-03T09:25:25.260Z

Thanks! But even using that token, I can't seem to get this to work. Not surprising since VBA/code/json are all completely alien to me. I pasted the "SendtoJoplin" code into ThisOutlookSession in VBA. And I imported the json.bas so that it shows up under Modules. And I added a shortcut to the macro in the Quick Access Toolbar in Outlook (2019). But when I click on the shortcut, nothing happens. Did I miss something or make a common error that I'm not aware of?

rain · 2021-03-03T23:02:24.189Z

Have you put the parent_id of your notebook into the field it should be? You can find the parent_id in you cloud drive fold, for instance i use onedrive. I find one parent_id in one of my *.md files that are stored in my Onedrive fold.

I make it worked yesterday, but it suddenly doesn't work, don't know why. Strange to me.

skim1124 · 2021-03-04T00:59:15.964Z

~~I use Dropbox to sync, but can you tell me how to find the parent_id?~~
Never mind. I found it. But I must not be placing it in the right place. Can someone show me exactly where I should put the parent_id?