I need to send a export table with a ACCESS macro, but all time appear this
message:
A program is trying to send mail using Item.Send

i make this macro:
Sub a()
Dim oOutlook As Object
Dim oMailItem As Object
Dim oRecipient As Object
Dim oNameSpace As Object
Dim sAttachment As String


sAttachment = "C:\autoexec.bat"

Set oOutlook = CreateObject("Outlook.Application")
Set oNameSpace = oOutlook.GetNameSpace("MAPI")
oNameSpace.Logon , , True
Set oMailItem = oOutlook.CreateItem(0)
oMailItem.to = "
oMailItem.subject = "Test"
oMailItem.Body = "Body Test"
'oMailItem.Display
oMailItem.Save
oMailItem.SEND
oNameSpace.LOGOFF

End Sub

but the warning pop up every time.

Some one can help me ?
and techeme how use redemption ????

You are on the right track - you need Redemption to bypass the security
dialog. There's some examples of how to use it on this page:

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

--
Eric Legault - Outlook MVP, MCDBA, MCTS (SharePoint programming, etc.)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"he.ll.cat" wrote:

I need to send a export table with a ACCESS macro, but all time appear this
message:
A program is trying to send mail using Item.Send

i make this macro:
Sub a()
Dim oOutlook As Object
Dim oMailItem As Object
Dim oRecipient As Object
Dim oNameSpace As Object
Dim sAttachment As String


sAttachment = "C:\autoexec.bat"

Set oOutlook = CreateObject("Outlook.Application")
Set oNameSpace = oOutlook.GetNameSpace("MAPI")
oNameSpace.Logon , , True
Set oMailItem = oOutlook.CreateItem(0)
oMailItem.to = "
oMailItem.subject = "Test"
oMailItem.Body = "Body Test"
'oMailItem.Display
oMailItem.Save
oMailItem.SEND
oNameSpace.LOGOFF

End Sub

but the warning pop up every time.

Some one can help me ?
and techeme how use redemption ????

Is htere any other method that doesn't require to install redemption? I have
an add-in to share among coworkers but it is combersomne to get installed
redepmtion in every computer and expensive.
Thank you

"Eric Legault [MVP - Outlook]" wrote:

You are on the right track - you need Redemption to bypass the security
dialog. There's some examples of how to use it on this page:

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

--
Eric Legault - Outlook MVP, MCDBA, MCTS (SharePoint programming, etc.)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"he.ll.cat" wrote:

I need to send a export table with a ACCESS macro, but all time appear this
message:
A program is trying to send mail using Item.Send

i make this macro:
Sub a()
Dim oOutlook As Object
Dim oMailItem As Object
Dim oRecipient As Object
Dim oNameSpace As Object
Dim sAttachment As String


sAttachment = "C:\autoexec.bat"

Set oOutlook = CreateObject("Outlook.Application")
Set oNameSpace = oOutlook.GetNameSpace("MAPI")
oNameSpace.Logon , , True
Set oMailItem = oOutlook.CreateItem(0)
oMailItem.to = "
oMailItem.subject = "Test"
oMailItem.Body = "Body Test"
'oMailItem.Display
oMailItem.Save
oMailItem.SEND
oNameSpace.LOGOFF

End Sub

but the warning pop up every time.

Some one can help me ?
and techeme how use redemption ????

See http://www.outlookcode.com/article.aspx?ID=52 for all your options.

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"LuisE" wrote in message ...
Is htere any other method that doesn't require to install redemption? I have
an add-in to share among coworkers but it is combersomne to get installed
redepmtion in every computer and expensive.
Thank you

"Eric Legault [MVP - Outlook]" wrote:

You are on the right track - you need Redemption to bypass the security
dialog. There's some examples of how to use it on this page:

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

--
Eric Legault - Outlook MVP, MCDBA, MCTS (SharePoint programming, etc.)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"he.ll.cat" wrote:

I need to send a export table with a ACCESS macro, but all time appear this
message:
A program is trying to send mail using Item.Send

i make this macro:
Sub a()
Dim oOutlook As Object
Dim oMailItem As Object
Dim oRecipient As Object
Dim oNameSpace As Object
Dim sAttachment As String


sAttachment = "C:\autoexec.bat"

Set oOutlook = CreateObject("Outlook.Application")
Set oNameSpace = oOutlook.GetNameSpace("MAPI")
oNameSpace.Logon , , True
Set oMailItem = oOutlook.CreateItem(0)
oMailItem.to = "
oMailItem.subject = "Test"
oMailItem.Body = "Body Test"
'oMailItem.Display
oMailItem.Save
oMailItem.SEND
oNameSpace.LOGOFF

End Sub

but the warning pop up every time.

Some one can help me ?
and techeme how use redemption ????