TITUS Skip Pop Up (Yes, No) Access to Outlook VBA (1 Viewer)

[Vagus14]

Hello everyone,

I'm trying to avoid the TITUS Version 3.5 pop up box, Yes or No because I know the automated message does not contain non confidential data.

Anyone know how to code in Access/Outlook to send a email message while automating this Yes and No Dialog?

You'll probably mention I need to get the code from the TITUS Company but I have yet to obtain any decent code from them. Anyone have any ideas?:banghead:

CmdEmail_Update_Click()
Dim oApp As Outlook.Application
Dim oMail As MailItem
Set oApp = CreateObject("Outlook.application")
Set oMail = oApp.CreateItem(olMailItem)


'Disable TITUS Addin
'oApp.COMAddIns.Item("TitusLabsMessageClassification.Connect").Connect = False ' Admin Use only :(

'Enable TITUS Addin
'oApp.COMAddIns.Item("TitusLabsMessageClassification.Connect").Connect = True ' Admin Use only :(

oMail.Display False
oMail.Send
Set oMail = Nothing
Set oApp = Nothing
End sub

Within the code above I tried disabling the Add-In but I don't have Admin rights...