Outlinker-setup-form-code.bas

Option Explicit Const SettingsFormVersion = "20090418" Private Sub cancelButton_Click Unload OutLinkerSettings End Sub

Private Sub resetdefaultsButton_Click With OutLinkerSettings .mindreadernlpmacroTextBox.value = getdefaultsetting("mindreadernlpmacro") .mindreaderopenmacroTextBox.value = getdefaultsetting("mindreaderopenmacro") .gyroqpathTextBox.value = getdefaultsetting("gyroqpath") .usegyroqCheckBox.value = getdefaultsetting("usegyroq") = "1" .usemindreaderCheckBox.value = getdefaultsetting("usemindreader") = "1" .deletedprocessedCheckBox.value = getdefaultsetting("deletedprocessedtasks") = "1" .showstatsCheckBox.value = getdefaultsetting("showstats") = "1" .trackskipsCheckBox.value = getdefaultsetting("trackskips") = "1" End With End Sub Private Sub saveButton_Click If Not archivefolder1 Is Nothing Then sset "ArchiveFolderID", archivefolder1.EntryID sset "ArchiveStoreID", archivefolder1.StoreID End If       If Not archivefolder2 Is Nothing Then sset "ArchiveFolder2ID", archivefolder2.EntryID sset "ArchiveStore2ID", archivefolder2.StoreID End If   With OutLinkerSettings sset "mindreadernlpmacro", .mindreadernlpmacroTextBox.value sset "mindreaderopenmacro", .mindreaderopenmacroTextBox.value setboolean "usemindreader", .usemindreaderCheckBox.value setboolean "usegyroq", .usegyroqCheckBox.value sset "gyroqpath", .gyroqpathTextBox.value sset "context1", .context1TextBox.value sset "context2", .context2TextBox.value sset "context3", .context3TextBox.value sset "context4", .context4TextBox.value sset "context5", .context5TextBox.value sset "context6", .Context6TextBox.value sset "context7", .Context7TextBox.value sset "context8", .Context8TextBox.value sset "context9", .Context9TextBox.value OutLinkerForm.context1Button.Caption = gset("context1") OutLinkerForm.context2button.Caption = gset("context2") OutLinkerForm.context3Button.Caption = gset("context3") OutLinkerForm.context4Button.Caption = gset("context4") OutLinkerForm.context5Button.Caption = gset("context5") OutLinkerForm.Context6Button.Caption = gset("context6") OutLinkerForm.Context7Button.Caption = gset("context7") OutLinkerForm.Context8Button.Caption = gset("context8") OutLinkerForm.Context9Button.Caption = gset("context9") setboolean "trimsubject", .TrimSubjectCheckBox.value sset "tag1", .tagTextBox1.value sset "tag2", .tagTextBox2.value sset "tag3", .tagTextBox3.value sset "tag4", .tagTextBox4.value sset "tag5", .tagTextBox5.value sset "tag6", .tagTextBox6.value sset "tag7", .TagTextBox7.value sset "tag8", .TagTextBox8.value sset "tag9", .TagTextBox9.value sset "tag10", .TagTextBox10.value sset "tag11", .TagTextBox11.value sset "tag12", .TagTextBox12.value sset "tag13", .TagTextBox13.value sset "tag14", .TagTextBox14.value sset "tag15", .TagTextBox15.value sset "tag16", .TagTextBox16.value sset "tag17", .TagTextBox17.value sset "tag18", .TagTextBox18.value sset "tag19", .TagTextBox19.value sset "tag20", .TagTextBox20.value OutLinkerForm.tag1CheckBox.Caption = gset("tag1") OutLinkerForm.tag2CheckBox.Caption = gset("tag2") OutLinkerForm.tag3CheckBox.Caption = gset("tag3") OutLinkerForm.tag4CheckBox.Caption = gset("tag4") OutLinkerForm.tag5CheckBox.Caption = gset("tag5") OutLinkerForm.tag6CheckBox.Caption = gset("tag6") OutLinkerForm.Tag7CheckBox.Caption = gset("tag7") OutLinkerForm.tag8CheckBox.Caption = gset("tag8") OutLinkerForm.Tag9CheckBox.Caption = gset("tag9") OutLinkerForm.Tag10CheckBox.Caption = gset("tag10") OutLinkerForm.Tag11CheckBox.Caption = gset("tag11") OutLinkerForm.Tag12CheckBox.Caption = gset("tag12") OutLinkerForm.tag13CheckBox.Caption = gset("tag13") OutLinkerForm.tag14CheckBox.Caption = gset("tag14") OutLinkerForm.Tag15CheckBox.Caption = gset("tag15") OutLinkerForm.Tag16CheckBox.Caption = gset("tag16") OutLinkerForm.Tag17CheckBox.Caption = gset("tag17") OutLinkerForm.Tag18CheckBox.Caption = gset("tag18") OutLinkerForm.tag19CheckBox.Caption = gset("tag19") OutLinkerForm.Tag20CheckBox.Caption = gset("tag20") setboolean "showstats", .showstatsCheckBox.value setboolean "trackskips", .trackskipsCheckBox.value setboolean "deleteprocessedtasks", .deletedprocessedCheckBox.value End With Unload OutLinkerSettings End Sub

Private Sub UserForm_Click

End Sub

Private Sub versioncheckButton_Click olversioncheck True End Sub End Sub