Ron2006 wrote:
[color=blue]
> 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[/color]
Thanks Ron,
I knew about fms's Total Access Emailer but I did particularly want to
part with the $299 that it costs and if they can do it there must be a
way.
I was thinking that a simple VB.NET app should be enough.
But I am not sure of the code that would be necessary.
Could you explain the code that was contained in your answer?
Thanks Nick
