1. Forum
  2. Usenet
  3. MICROSOFT.PUBLIC.OUTLOOK

  • Re: [half solved] Re: [2021] follow up SENT mails

    From Ammammata@21:1/5 to All on Tue Aug 23 08:13:21 2022
    Il giorno Tue 23 Aug 2022 09:45:30a, *Ammammata* ha inviato su microsoft.public.outlook il messaggio news:XnsAEFC634452ABBammammatatiscalineti@127.0.0.1. Vediamo cosa ha
    scritto:


    I think I must write some VBA code to remove the category... :/


    thank you to <https://www.slipstick.com/developer/code-samples/macro-add- remove-category/> for the idea





    Sub MyPurple()

    Dim StrCat As String
    StrCat = "To Do"

    Dim Mail As Object
    Set Mail = Application.ActiveExplorer.Selection.item(1)

    Debug.Print Mail.Categories
    arr = Split(Mail.Categories, ",")
    If UBound(arr) >= 0 Then

    ' Check for Category
    For i = 0 To UBound(arr)
    If Trim(arr(i)) = StrCat Then
    ' remove it
    arr(i) = ""
    Mail.Categories = Join(arr, ",")
    Mail.Save
    ' Category Removed, exit
    Exit Sub
    End If
    Next
    End If

    ' Category not found, add it
    Mail.Categories = StrCat & "," & Mail.Categories

    End Sub

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Ammammata@21:1/5 to All on Tue Aug 23 07:45:30 2022
    Il giorno Fri 19 Aug 2022 11:32:43a, *Ammammata* ha inviato su microsoft.public.outlook il messaggio news:XnsAEF87571C7CA8ammammatatiscalineti@127.0.0.1. Vediamo cosa ha
    scritto:

    I have a rule

    well, I tried something different, using Categories (purple) to identify my
    "To do" mails.

    it works fine, for both incoming and sent mails, but...

    The oddity is that Outlook does NOT allow me to set (or reset) manually the category because, it says, the account has been configured as IMAP (and
    until the end of the year I cannot change this, later the mail will be Esxchange server)

    So now I have mails categorized in purple but I can't remove it when I
    complete the task :)

    I think I must write some VBA code to remove the category... :/

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)