Android Question Let app do things even if it's not launched

#Region  Service Attributes
    #StartAtBoot: True
    #StartCommandReturnValue: android.app.Service.START_STICKY
#End Region

Sub Process_Globals
    'KONNEKTIVITÄTSVARIABLEN
    Dim ConnectionString As String
    Dim Zugangscode As String
    Dim ConnectionStringDisponent As String
   
    'DATENBANKVARIABLEN
    Dim Auftragsarchiv As SQL
   
    'EMAILVARIABLEN
    Dim POP As POP3
    Dim SMTP As SMTP
    Dim ANR As String
    Dim ÄnderungsBoolean As Boolean
   
    'BENACHRICHTIGUNG
    Dim N As Notification
    Dim MP As MediaPlayer
    Dim PV As PhoneVibrate
End Sub

Sub Service_Create
    'Datenbank
    Auftragsarchiv.Initialize(File.DirInternal, "Auftragsarchiv.db", True)
    If File.Exists(File.DirInternal, "ArchiveCreated.txt") = False Then
        File.WriteString(File.DirInternal, "ArchiveCreated.txt", "Archive.db has been created.")   
        Auftragsarchiv.ExecNonQuery("CREATE TABLE Aufträge (Auftragsnummer TEXT, Adresse TEXT, Details TEXT, Status TEXT)")
    End If
       
    'Konnektivitätseinstellungen
    Dim TR As TextReader
    If File.Exists(File.DirInternal, "ConnectionString.txt") = True Then
        TR.Initialize(File.OpenInput(File.DirInternal, "ConnectionString.txt"))
        ConnectionString = TR.ReadLine
        TR.Close
    End If
    If File.Exists(File.DirInternal, "Zugangscode.txt") = True Then
        TR.Initialize(File.OpenInput(File.DirInternal, "Zugangscode.txt"))
        Zugangscode = TR.ReadLine
        TR.Close
    End If
    If File.Exists(File.DirInternal, "ConnectionStringDisponent.txt") = True Then
        TR.Initialize(File.OpenInput(File.DirInternal, "ConnectionStringDisponent.txt"))
        ConnectionStringDisponent = TR.ReadLine
        TR.Close
    End If
       
    'Email - nur, wenn Konnektivitätseinstellungen vorgenommen wurden.
    If File.Exists(File.DirInternal, "RanFirstTime.txt") = True Then
        SMTP.Initialize("smtp.gmail.com", 587, ConnectionString, Zugangscode, "SMTP")
        SMTP.StartTLSMode = True
        POP.Initialize("pop.gmail.com", 995, ConnectionString, Zugangscode, "pop")
           POP.UseSSL = True
    End If
   
    'Benachrichtigungston
    MP.Initialize
    MP.Load(File.DirAssets, "q96-schleife1.wav")
   
   
End Sub

Sub Service_Start (StartingIntent As Intent)
    StartServiceAt(Null, TimeToNextMinute, True) 'Service will restart every minute
    CallSub(Null, CheckForMails)
End Sub

Sub Service_Destroy
   
End Sub

Sub POP_ListCompleted (Success As Boolean, Messages As Map)
    If Success = False Then
       
    Else
        For i = 0 To Messages.Size - 1
            POP.DownloadMessage(Messages.GetKeyAt(i), True)
        Next       
    End If
    POP.Close
End Sub

Sub POP_DownloadCompleted (Success As Boolean, MessageId As Int, MessageText As String)
    If Success = False Then
        Log(LastException.Message)
        POP.ListMessages
    Else
        Dim m As Message
        m = MailParser.ParseMail(MessageText, File.DirRootExternal)
        If m.FromField.Contains(ConnectionStringDisponent) = True Then
            ANR = m.Subject.Replace(" ", "")
            Dim ListOfMaps As List
            ListOfMaps.Initialize
            Dim Map As Map
            Map.Initialize
            Map.Put("Auftragsnummer", ANR)
            Map.Put("Details", m.Body)
            Map.Put("Status", "erhalten")
            ListOfMaps.Add(Map)
            Dim Cursor As Cursor
            Cursor = Auftragsarchiv.ExecQuery("SELECT Auftragsnummer FROM Aufträge WHERE Auftragsnummer LIKE " & "'" & ANR & "%'")
            If Cursor.RowCount = 0 Then
                DBUtils.InsertMaps(Auftragsarchiv, "Aufträge", ListOfMaps)
                SMTP_erhalten
                ÄnderungsBoolean = False
                N.Initialize
                N.Icon = "icon"
                N.SetInfo2("Neuer Einsatzauftrag", "Auftragsnummer: " & ANR, ANR, Main)
                N.Sound = False
                N.Vibrate = False
                N.AutoCancel = True
                N.Notify(1)
                MP.Play
                PV.Vibrate(1500)
            Else
                Dim WhereFields As Map
                WhereFields.Initialize
                WhereFields.Put("Auftragsnummer", ANR)
                DBUtils.UpdateRecord(Auftragsarchiv, "Aufträge", "Details", m.Body, WhereFields)
                SMTP_Anderungerhalten
                ÄnderungsBoolean = True
                N.Initialize
                N.Icon = "icon"
                N.SetInfo2("Änderung von Einsatzdaten", "Auftragsnummer: " & ANR, ANR, Main)
                N.Sound = False
                N.Vibrate = False
                N.AutoCancel = True
                N.Notify(1)
                MP.Play
                PV.Vibrate(1500)
            End If
        End If
    End If
   
End Sub

Sub SMTP_erhalten
    SMTP.To.Add(ConnectionStringDisponent)
    SMTP.Subject = ANR
    SMTP.Body = "erhalten"
    SMTP.Send
End Sub

Sub SMTP_Anderungerhalten
    SMTP.To.Add(ConnectionStringDisponent)
    SMTP.Subject = ANR
    SMTP.Body = "Änderung erhalten"
    SMTP.Send
End Sub

Sub SMTP_MessageSent(Success As Boolean)
      Log(Success)
      If Success = False Then
        Log(LastException.Message)
        If ÄnderungsBoolean = False Then
            SMTP_erhalten
        Else
            SMTP_Anderungerhalten
        End If
     End If
End Sub

Sub CheckForMails
    'SERVICE WIRD NUR GESTARTET, WENN DIE KONNEKTIVITÄTSEINSTELLUNGEN BEREITS VORGENOMMEN WURDEN.
    If File.Exists(File.DirInternal, "RanFirstTime.txt") = True Then
        POP.ListMessages
    End If
End Sub

Sub TimeToNextMinute As Long
    Dim NextMin As Long
        NextMin = DateTime.Now + DateTime.TicksPerMinute
        NextMin = NextMin - (NextMin Mod DateTime.TicksPerMinute)
    Return NextMin
End Sub