Evernoteのノートを列挙する(VBS)

Evernoteのノートを列挙するVBScriptです。
※ 要Evernote for Windows

                    Option Explicit

                    

                    Call GetEvernoteNote

                    

                    Public Sub GetEvernoteNote()

                    'Evernoteのノートを列挙する

                      Dim en

                      Dim nb

                      Dim n

                      

                      '----------------------------------------

                      'Evernoteのユーザー名とパスワード(要変更)

                      '----------------------------------------

                      Const user = "kinuasa"

                      Const pass = "pochama"

                      '----------------------------------------

                      

                      On Error Resume Next

                      'Set en = GetObject("new:{B58F31CA-DF43-4BEF-B800-E0B0F99CFF84}")

                      Set en = CreateObject("enapi.Evernote.1")

                      If Err.Number <> 0 Then

                        MsgBox "エラーが発生しました。" & vbCrLf & "処理を中止します。", vbCritical

                        Exit Sub

                      End If

                      On Error GoTo 0

                      

                      On Error Resume Next

                      en.Login user, pass, vbNullString

                      If Err.Number <> 0 Then

                        MsgBox "ログインに失敗しました。" & vbCrLf & "処理を中止します。", vbCritical

                        Exit Sub

                      End If

                      On Error GoTo 0

                      

                      For Each nb In en.Notebooks

                        Wscript.Echo "■ " & nb.Name

                        For Each n In nb.Notes

                          Wscript.Echo n.Title

                        Next

                      Next

                      Set en = Nothing

                    End Sub
Evernoteのノートを列挙する(VBS)

関連記事
