Here's one method, very good, but it's not free:
Total Access Emailer
http://www.fmsinc.com/products/Emailer/index.asp
Tom Wickerath
Microsoft Access MVP
http://www.access.qbuilt.com/html/ex...tributors.html http://www.access.qbuilt.com/html/search.html
============================================
You may wish to use CDO. Here is a sample.
Public Sub VerySimpleSendMailWithCDOSample()
Dim iCfg As Object
Dim iMsg As Object
Set iCfg = CreateObject("CDO.Configuration")
Set iMsg = CreateObject("CDO.Message")
With iCfg.Fields
..Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
..Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
..Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"smtp.aim.com"
..Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
= 1
..Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =
"MyUserName"
..Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
"MyPassord"
..Item("http://schemas.microsoft.com/cdo/configuration/sendemailaddress")
= "Lyle Fairfield <lylefairfi...@aim.com>"
..Update
End With
With iMsg
..Configuration = iCfg
..Subject = "Temp.xls"
..To = "lfairfi...@cogeco.ca"
..TextBody = "This is the latest!"
..AddAttachment "C:\Program Files\Backup Scripts\Temp.xls"
..Send
End With
Set iMsg = Nothing
Set iCfg = Nothing
End Sub
===============================================
There is also a product call "Yes Click" that will do the response for
you
BUT
There is still a 5 second delay that you cannot get around.
And also
===============================================
Here is the address of the write up at Microsoft for the original
security update release:
(At the end he mentions that the administrator can set up overrides for
it when it is a network type of email server situation.)
http://www.microsoft.com/presspass/f...08outlook.mspx
At roughtly Paragraph 10 it says:
"Two other features should greatly diminish the spread of worm viruses
by warning users before they unknowingly spread a virus via email. If a
program tries to access your Outlook Address Book, you will be notified
by a dialog warning box and given the choice to let it access your
Outlook Address Book. "No" will be the default option. Owners of Pocket
PCs and other personal digital assistants such as Palm Pilots, or who
have other legitimate uses, will be able to select "Yes." The update
also warns you by a dialog warning box if a program is trying to send
email on your behalf. You will have the option to let the program send
email on your behalf, because there are legitimate business scenarios
where this is useful, but the default answer is "No" . This will help
curb the spread of certain viruses by putting users in control of their
desktop. With worm viruses, people usually don't know they are sending
an infected email to 500 of their closest friends. This update puts
customers in control of their address books and of programs that
attempt to send mail on their behalf. "
Later on in the same article he says:
Sinofsky: We have added administrative options to the update for
organizations that rely on server-based security settings, thus
enabling customization without sacrificing a high level of security.
Administrators will be able to choose which attachments cannot be
accessed or must be saved to a hard drive before opening. They will
also be able to choose when and if the warning dialog boxes appear.
Ron