Email sending VBscript doesn't work

[Philip_Hui]

I wrote a piece code for sending a email to somebody no matter who pos
a message in the company around one year ago. It worked well, but i
was no longer work since SP got updated. Every time people post messag
a warning would show said "A program is trying to access e-mai
addresses you have stored in Outlook. Do you want to allow this?"
after you click YES the message would disapper, but email couldn't b
sent out.

For fix this problem, I used Redemption Object in my code, message wa
no longer pop up, but email still couldn't be sent out, the test cod
is as follow:

Function Request_Click()

dim SafeItem, oItem
set SafeItem = CreateObject("Redemption.SafeMailItem")
set oItem = Application.CreateItem(0)
SafeItem.Item = oItem
SafeItem.Recipients.Add "Philip Hui"
SafeItem.Recipients.ResolveAll
SafeItem.Subject = "Testing"
SafeItem.Send

End Function

Anyone has experience on this? thanks

Phili

 

[Dmitry Streblechenko \(MVP\)]

Does
http://www.dimastr.com/redemption/faq.htm#1
apply?

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool