ACCESS/OUTLOOK Email Warning

[Surjer]

History -
I wrote the app in Access 2K and it sent email through Outlook97
We upgraded to Office 2003

I have a custome app in Access that utilizes the ability to send email through Outllook. It worked with Access2K and Outlook97 - it works in Access2K3 but Outlook gives a warning for every email that access is sending.

Outllook Warning: Another program is trying to send an email on your behalf. Do you want to let it? This may be a virus.

And then you have to wait like 5 seconds for the OK button to activate so you can let it send the mail. Is there any way around this? PLEASE TELL ME THERE IS


Here is how I am sending the mail...

Public Function SendEMail()
DoCmd.SendObject acSendNoObject, , , rs("Driver"), , , "TRUCK " & _
"UPDATE", EmailText, False
End Function

 

[a.sinatra]

You will need to find a setting in outlook that allows the email to be sent for another program, its mostliely going to be options or something.
________
Ford model tt picture

 

[jfgambit]

Actually, the option is not available at a user level anymore thanks to Microsoft’s new Security Service Pack.

You need to have your Administrator make changes to your account or you can use the following:

http://www.express-soft.com/mailmate/clickyes.html

I have found it extremely easy to install and use, and it will circumvent the Outlook warning. It is a program that sits on your taskbar and clicks the "YES" buttom for you automatically when prompted from Outlook.

HTH

 

[ghudson]

You will need to find a setting in outlook that allows the email to be sent for another program, its mostliely going to be options or something.

That security option is only available in Outlook "Express".

 

[Mile-O]

There's also Redemption. I don't have a link to it though.

 

[jfgambit]

Mile:

I have tried Redemption and found that there are bugs with the function:

With SafeItem
.send

Depending on the SP you have installed, somrtimes the item does not get sent and sits in your Drafts folder.

Also, there is all the registration and references that you have to add...

But it is a decent producat as well.

 

[Surjer]

Hmmm, never heard of Redemption. We aren't allowed to install 3rd party software to these machines. If thats what redemption is? Plus I can't get the secutity knocked down cause IT wont allow it. Guess I'm screwed on this one. O well, they can pay me to take the long route I guess.

 

[wrek]

Surjer,

Redemption isn't really 'third-party' software...basically it is a .dll file that registers itself as a command component in your registry...I'm under pretty strict IT 'constraints' myself, and I was able to update my registry with the dll...(note, it only works for each LanID and computer you register it for)

http://www.dimastr.com/redemption/Redemption.zip

Check it out. The function I use, looks something like this:

sample call: SendMail ("UserName", "Title", "Message",AttachmentPath)

Public Function SendMail(Optional strTo As String, Optional strSubject As String, Optional strBody As String, Optional strAttach As String)
Dim SafeMail As Object
Dim appOutlook As Object

Set appOutlook = CreateObject("Outlook.Application.10")
Set SafeMail = CreateObject("Redemption.SafeMailItem")

Set SafeMail.Item = appOutlook.CreateItem(0)

SafeMail.Recipients.Add strTo
SafeMail.Subject = strSubject
SafeMail.Body = strBody
If strAttach <> "" Then SafeMail.Attachments.Add strAttach

SafeMail.Send
Exit Function

End Function

 

[Calvin]

Smtp

You can circumvent Outlook and Exchange all together if you have access to an SMTP server whether internal or external.

Lookup/Search for SMTP and MAPI examples. It's definately faster and more reliable and doesn't require anything relating to Outlook.

The following is an excellent place to start http://www.winsockvb.com/