Mail: Configure new settings within HAC

Author: ocdtrekkie

modConverse.vb

@@ -102,6 +102,8 @@ Module modConverse
                             strCommandResponse = "Local queue mode disabled"
                         Case "mail"
                             strCommandResponse = modMail.Disable()
+                        Case "mailchecks"
+                            strCommandResponse = modMail.DisableChecks()
                         Case "mapquest"
                             strCommandResponse = modMapQuest.Disable()
                         Case "matrixlcd"
@@ -164,6 +166,8 @@ Module modConverse
                             strCommandResponse = "Local queue mode enabled"
                         Case "mail"
                             strCommandResponse = modMail.Enable()
+                        Case "mailchecks"
+                            strCommandResponse = modMail.EnableChecks()
                         Case "mapquest"
                             strCommandResponse = modMapQuest.Enable()
                         Case "matrixlcd"

modMail.vb

@@ -193,13 +193,27 @@ Module modMail
         Return "Mail module disabled"
     End Function
 
+    Function DisableChecks() As String
+        Unload()
+        modDatabase.AddOrUpdateConfig("Mail_ScheduledChecks", "disabled")
+        Load()
+        Return "Scheduled mail checks disabled"
+    End Function
+
     Function Enable() As String
         My.Settings.Mail_Enable = True
         My.Application.Log.WriteEntry("Mail module is enabled")
         Load()
         Return "Mail module enabled"
     End Function
 
+    Function EnableChecks() As String
+        Unload()
+        modDatabase.AddOrUpdateConfig("Mail_ScheduledChecks", "enabled")
+        Load()
+        Return "Scheduled mail checks enabled"
+    End Function
+
     ''' <summary>
     ''' This function returns the CmdKey of a CmdAllowlist email.
     ''' </summary>
@@ -358,6 +372,13 @@ Module modMail
 
             CreateMailkeysDb()
 
+            If My.Settings.Mail_SMTPHost = "smtp.purelymail.com" AndAlso modDatabase.GetConfig("Mail_PurelyMailAPIKey") = "" Then
+                My.Application.Log.WriteEntry("SMTP is PurelyMail, but no API key set, asking for it")
+                Dim strNewPurelyMailAPIKey As String = InputBox("Enter an API key for your PurelyMail account to monitor remaining funds", "PurelyMail API Key")
+                If strNewPurelyMailAPIKey = "" Then strNewPurelyMailAPIKey = "(skipped)"
+                modDatabase.AddOrUpdateConfig("Mail_PurelyMailAPIKey", strNewPurelyMailAPIKey)
+            End If
+
             oClient.Host = My.Settings.Mail_SMTPHost
             oClient.Port = My.Settings.Mail_SMTPPort
             If oClient.Port = 465 OrElse oClient.Port = 587 Then