Modify Code Using Outlook Redemption to bypass security prompts

**mhgreene** · August 30th 07, 12:46 AM posted to microsoft.public.outlook.program_vba

D. Lee was kind enough to provide the original code that I adapted to my
environment which executes perfectly (shown below).

I am trying modify the code, as suggested, in order to bypass the Outlook
security prompts using Outlook Redemption in order to fully automate the rule
that uses the script. Due to my lack of VB programing skills, my attempts
have failed.

Can anyone help?

Sub SaturnFirstResponse(Item As Outlook.MailItem)
Dim objRespond As Outlook.MailItem, _
objTemplate As Outlook.MailItem
Set objRespond = Item.Reply

'Change the template name and path on the following line
Set objTemplate = Application.CreateItemFromTemplate("C:\Documents and
Settings\greenemi.HARRISAUTO\application
data\Microsoft\Templates\OneSourceSalesSaturnFirst Response.oft")

objTemplate.Recipients.Add objRespond.Recipients.Item(1).Address
objTemplate.Recipients.ResolveAll
objTemplate.Send

Set objRespond = Nothing
Set objTemplate = Nothing

End Sub

**Dmitry Streblechenko** · August 30th 07, 01:05 AM posted to microsoft.public.outlook.program_vba

Off the top of my head:

Sub SaturnFirstResponse(Item As Outlook.MailItem)
Dim objRespond As Outlook.MailItem, _
objTemplate As Outlook.MailItem

'Change the template name and path on the following line
Set objTemplate = Application.CreateItemFromTemplate("C:\Documents and Settings\greenemi.HARRISAUTO\application data\Microsoft\Templates\OneSourceSalesSaturnFirst Response.oft")

objTemplate.Save

set sTemplate = CreateObject("Redemption.SafeMailItem")
sTemplate.Item = objTemplate
set sItem= CreateObject("Redemption.SafeMailItem")
sItem.Item = Item

sTemplate.Recipients.Add sItem.SenderEmailAddress
sTemplate.Recipients.ResolveAll
sTemplate.Send

Set sTemplate = Nothing
Set objTemplate = Nothing

End Sub

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

"mhgreene" wrote in message ...
D. Lee was kind enough to provide the original code that I adapted to my
environment which executes perfectly (shown below).

I am trying modify the code, as suggested, in order to bypass the Outlook
security prompts using Outlook Redemption in order to fully automate the rule
that uses the script. Due to my lack of VB programing skills, my attempts
have failed.

Can anyone help?

Sub SaturnFirstResponse(Item As Outlook.MailItem)
Dim objRespond As Outlook.MailItem, _
objTemplate As Outlook.MailItem
Set objRespond = Item.Reply

'Change the template name and path on the following line
Set objTemplate = Application.CreateItemFromTemplate("C:\Documents and
Settings\greenemi.HARRISAUTO\application
data\Microsoft\Templates\OneSourceSalesSaturnFirst Response.oft")

objTemplate.Recipients.Add objRespond.Recipients.Item(1).Address
objTemplate.Recipients.ResolveAll
objTemplate.Send

Set objRespond = Nothing
Set objTemplate = Nothing

End Sub

**mhgreene** · August 30th 07, 05:38 AM posted to microsoft.public.outlook.program_vba

Thanks! Your code ran without a security prompt. However, the reply is sent
to the **Sender's** email address. I am trying to reply to the sender's
**Reply-To** email address which is a different email address. None of my
attempts at a fix have worked. Can you suggest something I can try?

"Dmitry Streblechenko" wrote:

Off the top of my head:

Sub SaturnFirstResponse(Item As Outlook.MailItem)
Dim objRespond As Outlook.MailItem, _
objTemplate As Outlook.MailItem

'Change the template name and path on the following line
Set objTemplate = Application.CreateItemFromTemplate("C:\Documents and Settings\greenemi.HARRISAUTO\application data\Microsoft\Templates\OneSourceSalesSaturnFirst Response.oft")

objTemplate.Save

set sTemplate = CreateObject("Redemption.SafeMailItem")
sTemplate.Item = objTemplate
set sItem= CreateObject("Redemption.SafeMailItem")
sItem.Item = Item

sTemplate.Recipients.Add sItem.SenderEmailAddress
sTemplate.Recipients.ResolveAll
sTemplate.Send

Set sTemplate = Nothing
Set objTemplate = Nothing

End Sub

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

"mhgreene" wrote in message ...
D. Lee was kind enough to provide the original code that I adapted to my
environment which executes perfectly (shown below).

I am trying modify the code, as suggested, in order to bypass the Outlook
security prompts using Outlook Redemption in order to fully automate the rule
that uses the script. Due to my lack of VB programing skills, my attempts
have failed.

Can anyone help?

Sub SaturnFirstResponse(Item As Outlook.MailItem)
Dim objRespond As Outlook.MailItem, _
objTemplate As Outlook.MailItem
Set objRespond = Item.Reply

'Change the template name and path on the following line
Set objTemplate = Application.CreateItemFromTemplate("C:\Documents and
Settings\greenemi.HARRISAUTO\application
data\Microsoft\Templates\OneSourceSalesSaturnFirst Response.oft")

objTemplate.Recipients.Add objRespond.Recipients.Item(1).Address
objTemplate.Recipients.ResolveAll
objTemplate.Send

Set objRespond = Nothing
Set objTemplate = Nothing

End Sub

**Dmitry Streblechenko** · August 30th 07, 07:53 AM posted to microsoft.public.outlook.program_vba

You can check if there is an entry in the ReplyRecipients collection. If
not, use SenderEmailAddress

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

"mhgreene" wrote in message
...
Thanks! Your code ran without a security prompt. However, the reply is
sent
to the **Sender's** email address. I am trying to reply to the sender's
**Reply-To** email address which is a different email address. None of
my
attempts at a fix have worked. Can you suggest something I can try?

"Dmitry Streblechenko" wrote:

Off the top of my head:

Sub SaturnFirstResponse(Item As Outlook.MailItem)
Dim objRespond As Outlook.MailItem, _
objTemplate As Outlook.MailItem

'Change the template name and path on the following line
Set objTemplate = Application.CreateItemFromTemplate("C:\Documents and
Settings\greenemi.HARRISAUTO\application
data\Microsoft\Templates\OneSourceSalesSaturnFirst Response.oft")

objTemplate.Save

set sTemplate = CreateObject("Redemption.SafeMailItem")
sTemplate.Item = objTemplate
set sItem= CreateObject("Redemption.SafeMailItem")
sItem.Item = Item

sTemplate.Recipients.Add sItem.SenderEmailAddress
sTemplate.Recipients.ResolveAll
sTemplate.Send

Set sTemplate = Nothing
Set objTemplate = Nothing

End Sub

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

"mhgreene" wrote in message
...
D. Lee was kind enough to provide the original code that I adapted to
my
environment which executes perfectly (shown below).

I am trying modify the code, as suggested, in order to bypass the
Outlook
security prompts using Outlook Redemption in order to fully automate
the rule
that uses the script. Due to my lack of VB programing skills, my
attempts
have failed.

Can anyone help?

Sub SaturnFirstResponse(Item As Outlook.MailItem)
Dim objRespond As Outlook.MailItem, _
objTemplate As Outlook.MailItem
Set objRespond = Item.Reply

'Change the template name and path on the following line
Set objTemplate = Application.CreateItemFromTemplate("C:\Documents and
Settings\greenemi.HARRISAUTO\application
data\Microsoft\Templates\OneSourceSalesSaturnFirst Response.oft")

objTemplate.Recipients.Add objRespond.Recipients.Item(1).Address
objTemplate.Recipients.ResolveAll
objTemplate.Send

Set objRespond = Nothing
Set objTemplate = Nothing

End Sub

**user defined type not defined** · October 3rd 07, 12:52 AM posted to microsoft.public.outlook.program_vba

I tried to execute this code...but gernerated a "user defined type not
defined" error.
Is there something obvious I'm doing wrong to get this result ?

"Dmitry Streblechenko" wrote:

Off the top of my head:

Sub SaturnFirstResponse(Item As Outlook.MailItem)
Dim objRespond As Outlook.MailItem, _
objTemplate As Outlook.MailItem

'Change the template name and path on the following line
Set objTemplate = Application.CreateItemFromTemplate("C:\Documents and Settings\greenemi.HARRISAUTO\application data\Microsoft\Templates\OneSourceSalesSaturnFirst Response.oft")

objTemplate.Save

set sTemplate = CreateObject("Redemption.SafeMailItem")
sTemplate.Item = objTemplate
set sItem= CreateObject("Redemption.SafeMailItem")
sItem.Item = Item

sTemplate.Recipients.Add sItem.SenderEmailAddress
sTemplate.Recipients.ResolveAll
sTemplate.Send

Set sTemplate = Nothing
Set objTemplate = Nothing

End Sub

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

"mhgreene" wrote in message ...
D. Lee was kind enough to provide the original code that I adapted to my
environment which executes perfectly (shown below).

I am trying modify the code, as suggested, in order to bypass the Outlook
security prompts using Outlook Redemption in order to fully automate the rule
that uses the script. Due to my lack of VB programing skills, my attempts
have failed.

Can anyone help?

Sub SaturnFirstResponse(Item As Outlook.MailItem)
Dim objRespond As Outlook.MailItem, _
objTemplate As Outlook.MailItem
Set objRespond = Item.Reply

'Change the template name and path on the following line
Set objTemplate = Application.CreateItemFromTemplate("C:\Documents and
Settings\greenemi.HARRISAUTO\application
data\Microsoft\Templates\OneSourceSalesSaturnFirst Response.oft")

objTemplate.Recipients.Add objRespond.Recipients.Item(1).Address
objTemplate.Recipients.ResolveAll
objTemplate.Send

Set objRespond = Nothing
Set objTemplate = Nothing

End Sub

**Dmitry Streblechenko** · October 3rd 07, 10:50 PM posted to microsoft.public.outlook.program_vba

Which line?
I did not declare the variables for the brevity reasons:

Dim sTemplate As Object
Dim sItem As Object

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

"user defined type not defined" user defined type not
wrote in message
...
I tried to execute this code...but gernerated a "user defined type not
defined" error.
Is there something obvious I'm doing wrong to get this result ?

"Dmitry Streblechenko" wrote:

Off the top of my head:

Sub SaturnFirstResponse(Item As Outlook.MailItem)
Dim objRespond As Outlook.MailItem, _
objTemplate As Outlook.MailItem

'Change the template name and path on the following line
Set objTemplate = Application.CreateItemFromTemplate("C:\Documents and
Settings\greenemi.HARRISAUTO\application
data\Microsoft\Templates\OneSourceSalesSaturnFirst Response.oft")

objTemplate.Save

set sTemplate = CreateObject("Redemption.SafeMailItem")
sTemplate.Item = objTemplate
set sItem= CreateObject("Redemption.SafeMailItem")
sItem.Item = Item

sTemplate.Recipients.Add sItem.SenderEmailAddress
sTemplate.Recipients.ResolveAll
sTemplate.Send

Set sTemplate = Nothing
Set objTemplate = Nothing

End Sub

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

"mhgreene" wrote in message
...
D. Lee was kind enough to provide the original code that I adapted to
my
environment which executes perfectly (shown below).

I am trying modify the code, as suggested, in order to bypass the
Outlook
security prompts using Outlook Redemption in order to fully automate
the rule
that uses the script. Due to my lack of VB programing skills, my
attempts
have failed.

Can anyone help?

Sub SaturnFirstResponse(Item As Outlook.MailItem)
Dim objRespond As Outlook.MailItem, _
objTemplate As Outlook.MailItem
Set objRespond = Item.Reply

'Change the template name and path on the following line
Set objTemplate = Application.CreateItemFromTemplate("C:\Documents and
Settings\greenemi.HARRISAUTO\application
data\Microsoft\Templates\OneSourceSalesSaturnFirst Response.oft")

objTemplate.Recipients.Add objRespond.Recipients.Item(1).Address
objTemplate.Recipients.ResolveAll
objTemplate.Send

Set objRespond = Nothing
Set objTemplate = Nothing

End Sub

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
code to bypass security	Michelle Hanan	Outlook and VBA	5	March 29th 07 08:22 PM
get reed of security prompts	Kan Kan	Outlook - General Queries	7	August 28th 06 02:27 PM
Outlook security bypass when network cable unplugged	John	Outlook - Installation	0	March 22nd 06 10:43 PM
Another question about security prompts	ML	Outlook - Using Forms	1	March 22nd 06 04:45 PM
Redemption Doesn't ByPass Outllok 2003 Security	zbud	Add-ins for Outlook	15	February 1st 06 05:59 PM