hi,
when "send" Email with activeX via Outlook i got a "Security"
Pop-Up
*** Quote ***
The "object model guard" feature of the patch imposes two
extreme
restrictions on automating Outlook from add-ins that use
either the Outlook
object model or Simple MAPI:
a.. If an add-in tries to send an Outlook message, the user
gets a
notification pop-up and must explicitly authorize or deny
each attempt to
send. The user must wait 5 seconds before the Yes button
becomes available
to click.
b.. If an add-in tries to access address information in an
Outlook item or
the address book or to save an Outlook item as a file, the
user gets a
notification pop-up and can deny access, authorize a
one-time access or
extend access for a period of several minutes. PDA sync
utilities are an
example of the kind of application that will be affected by
this
restriction.
The object model guard applies even if your code is digitally
signed or
running from a published Outlook form. The only way to turn
it off is via
the administrative options. Because of these restrictions,
some Outlook
features become virtually unusable, because of the number of
times the user
has to confirm the dialog boxes:
a.. Sequential routing from Word
b.. Mail merge to e-mail in Word
c.. Automated mailing programs that use the Outlook Send
method
*** eof ***
now i found
http://www.add-in-express.com/creating-addins-blog/2007/09/12/disable-outlook-security-warnings-sending-email-messages-in-access/*** Quote ***
Sub SendEmailMessageViaOutlookObjectModel()
Dim olApp As Outlook.Application
Set olApp = New Outlook.Application
'GetObject(,"Outlook.Application")
Dim email As Outlook.MailItem
Set email = olApp.CreateItem(olMailItem)
Dim SecurityManager As Object
Set SecurityManager =
CreateObject("AddInExpress.OutlookSecurityManager")
SecurityManager.ConnectTo olApp
SecurityManager.DisableOOMWarnings = True
On Error GoTo Finally
email.Recipients.Add "user@server.com"
email.Subject = "Message subject"
email.Body = "Message body"
email.Send
Finally:
SecurityManager.DisableOOMWarnings = False
Set SecurityManager = Nothing
Set email = Nothing
Set olApp = Nothing
End Sub
*** Eof ***
but i did not have "AddInExpress.OutlookSecurityManager" in
my Registry ...
so CreateObject() fail :(
did someone know what to do to get rid of the "Security"
Pop-Up ?
greetings by OHR
Jimmy