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:
Within the code above I tried disabling the Add-In but I don't have Admin rights...
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:
Code:
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...