I want to get an email when a new post is posted and I got that to work but I keep getting "A program is trying to access e-mail addresses" dialog box and I have to keep pressing Yes for it to send the email. Is there away to get around that?

Just so you know the "Show number of unread items" in properties is grayed out.

See http://www.outlookcode.com/article.aspx?ID=52 for your options with
regard to the "object model guard" security prompts. If you need more
assistance, tell us what kind of application this is (VBA, VSTO, VB6, etc.)
and show the relevant code.
--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"Daniel" donotreply2me[at]yahoo[dot]com wrote in message
...
I want to get an email when a new post is posted and I got that to work but
I keep getting "A program is trying to access e-mail addresses" dialog box
and I have to keep pressing Yes for it to send the email. Is there away to
get around that?

After reading that page I changed my code to this:

Sub Mail()
If Item.Userproperties("ID") = "" Then
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "New Post in HelpDesk Folder"
objMessage.From = "
objMessage.To = "
objMessage.TextBody = "There's a new Post in the HelpDesk Folder"
objMessage.Send --- I get the error on this line.
End IF
End Sub

But when I try to send I get this error:

The SendUsing configuration value is invalid.

I'm using outlook vbscript..
Submitted using http://www.outlookforums.com

That code assumes that you have an SMTP server running on your own machine.
If you want to send through a remote SMTP server, you need to add other
code, as described in the article at http://www.paulsadowski.com/WSH/cdo.htm
under the sections "Sending a text email using a remote server" and "Sending
a text email using authentication against a remote SMTP server."

It might be possible to modify your original code to work without trigging
security prompts, but since we don't know what that code was, that's only
speculation.

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


"Daniel" donotreply2me[at]yahoo[dot]com wrote in message
...
After reading that page I changed my code to this:

Sub Mail()
If Item.Userproperties("ID") = "" Then
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "New Post in HelpDesk Folder"
objMessage.From = "
objMessage.To = "
objMessage.TextBody = "There's a new Post in the HelpDesk Folder"
objMessage.Send --- I get the error on this line.
End IF
End Sub
But when I try to send I get this error:

The SendUsing configuration value is invalid.

I'm using outlook vbscript.. Submitted using http://www.outlookforums.com

Here's the original code:

Sub Mail()
Dim objOutlook
Dim objOutlookMsg

If Item.Userproperties("ID") = "" Then
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)

With objOutlookMsg
.To = "
.Subject = "New Post in HelpDesk"
.Send
End With

Set objOutlookMsg = Nothing
Set objOutlook = Nothing
End IF
End Sub

I had to scrap this because when I tried it on another computer that has outlook 2003. I got this error message:

'ActiveX' Component cannot create object: Outlook.Application.
Submitted using http://www.outlookforums.com

Never use this statement in Outlook form or VBA code:

Set objOutlook = CreateObject("Outlook.Application")

Instead, as the article I suggested explains, you should derive all Outlook
objects from the intrinsic Application object:

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


"Daniel" donotreply2me[at]yahoo[dot]com wrote in message
...
Here's the original code:

Sub Mail()
Dim objOutlook Dim objOutlookMsg
If Item.Userproperties("ID") = "" Then
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)

With objOutlookMsg
.To = "
.Subject = "New Post in HelpDesk"
.Send End With

Set objOutlookMsg = Nothing
Set objOutlook = Nothing
End IF
End Sub
I had to scrap this because when I tried it on another computer that has
outlook 2003. I got this error message:

'ActiveX' Component cannot create object: Outlook.Application. Submitted
using http://www.outlookforums.com