Titus classification pop up in VBA (outlook item)

[AutoMacroGuru]

Hello,
I am currently trying to send automatic emails in an excel workbook, but every time an email is sent, since my company is subject to TITUS classification, I have to manually select it in a pop up.

I use a regular outlook protocol to send emails
I have not been able to find anything to have the classification automatically selected. It would always be internal. There must be a solution but I don’t know where to look anymore.
Please find below a model of the code used to send the email.

Sub MailOutlook()
    Dim objOutlook As Object
    Set objOutlook = CreateObject("Outlook.Application")
    
    Dim objEmail As Object
    Set objEmail = objOutlook.CreateItem(olMailItem)

    With objEmail
        .To = "someone@somewhere.se"
        .Subject = "This is the subject"
        .Body = "This is the body of the email"
        .Send
    End With   
End Sub

Thanks, waiting for ANY insight :/
AutoMacroGuru

 

[cnmPlusUltra]

Evidently this solution has worked for some but not me: Excel VBA avoiding the TITUS pop up box in outlook

I need a solution to this problem as well :/

 

[delphi]

If your emails don't need a classification, just disable the plug-in for the email distribution.
The easiest is to do that through Outlook: File -> Options -> Add-ins -> Mange: COM Add-Ins -> Go remove the checkbox for the Titus plugin.
afterwards you can enable the plugin again.
If you need a better solution, let me know.