This message, "A program is trying to access e-mail addresses yo have stored
in Outlook.Do you want to allow this?" is very annoying. I am trying to
write a VB6 application at work that will bulk mail companies and let them
know which individuals are scheduled for class. We do not want to have to
purchase a third party piece of software. There should be an option in
Outlook or a registry setting to turn this security feature on or off. Thank
you.


----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm....program_v ba

Why would you want to leave Outlook in such an insecure state when there are ways to avoid the prompt completely by writing your code so that it doesn't use Outlook objects? See http://www.outlookcode.com/d/sec.htm
--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx


"Kenaso" wrote in message ...
This message, "A program is trying to access e-mail addresses yo have stored
in Outlook.Do you want to allow this?" is very annoying. I am trying to
write a VB6 application at work that will bulk mail companies and let them
know which individuals are scheduled for class. We do not want to have to
purchase a third party piece of software. There should be an option in
Outlook or a registry setting to turn this security feature on or off. Thank
you.


----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm....program_v ba

I only want to temporarily disable this feature to be able to send mass
mailings without the annoying dialog box. When finished, the feature would
be turned back on programaticaly. Example: Each mail has a list of names
only associated with one email address. I would be sending over 100 separate
emails at a time.

"Sue Mosher [MVP-Outlook]" wrote:

Why would you want to leave Outlook in such an insecure state when there are ways to avoid the prompt completely by writing your code so that it doesn't use Outlook objects? See http://www.outlookcode.com/d/sec.htm
--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx


"Kenaso" wrote in message ...
This message, "A program is trying to access e-mail addresses yo have stored
in Outlook.Do you want to allow this?" is very annoying. I am trying to
write a VB6 application at work that will bulk mail companies and let them
know which individuals are scheduled for class. We do not want to have to
purchase a third party piece of software. There should be an option in
Outlook or a registry setting to turn this security feature on or off. Thank
you.


----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm....program_v ba

The page I suggested explains ways to accomplish your goal of sending messages without prompts. I'd recommend you look into CDO for Windows.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx


"Kenaso" wrote in message news
I only want to temporarily disable this feature to be able to send mass
mailings without the annoying dialog box. When finished, the feature would
be turned back on programaticaly. Example: Each mail has a list of names
only associated with one email address. I would be sending over 100 separate
emails at a time.

"Sue Mosher [MVP-Outlook]" wrote:

Why would you want to leave Outlook in such an insecure state when there are ways to avoid the prompt completely by writing your code so that it doesn't use Outlook objects? See http://www.outlookcode.com/d/sec.htm


"Kenaso" wrote in message ...
This message, "A program is trying to access e-mail addresses yo have stored
in Outlook.Do you want to allow this?" is very annoying. I am trying to
write a VB6 application at work that will bulk mail companies and let them
know which individuals are scheduled for class. We do not want to have to
purchase a third party piece of software. There should be an option in
Outlook or a registry setting to turn this security feature on or off. Thank
you.


----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm....program_v ba

This code example did not work for me.

objMailItem.To = "

Is there something obvious that you can see? Here is an example of my code:

Set objMail = New Outlook.Application
Set objNameSpace = objMail.GetNamespace("MAPI")
objNameSpace.Logon
Set objExcel = New clsExcel
strMsgBody = GetMessageBody(strFileName)

' open the Excel workbook
If objExcel.OpenExcel(strExcelFile) Then
Do
strNameList = ""
strEmailAddr = ""
strEmailName = ""
strCtrlNo = ""

' read one complete Ctrl record from the Excel workbook
If objExcel.ReadExcel(aintCols(), lngRow, strCtrlNo, _
strEmailAddr, strEmailName, _
strNameList, blnAppendNames) Then

' if no more data then exit this loop
If Len(Trim$(strCtrlNo)) = 0 Then
Exit Do
End If

' format the email message body
Set objMailItem = objMail.CreateItem(olMailItem)

With objMailItem
.To = strEmailAddr
.Subject = strSubject
.Body = strMsgBody & strHeading & strNameList & vbCrLf

' attach files
If blnAttachFiles Then
' loop thru and attach the files
For lngIndex = 0 To UBound(avntData) - 1
.Attachments.Add (avntData(lngIndex))
Next lngIndex
End If

.Send
End With

Set objMailItem = Nothing
Else
Exit Do
End If
Loop
End If

' free objects from memory prevents Error 91
Set objMailItem = Nothing
Set objNameSpace = Nothing
Set objMail = Nothing
Set objExcel = Nothing


"Sue Mosher [MVP-Outlook]" wrote:

The page I suggested explains ways to accomplish your goal of sending messages without prompts. I'd recommend you look into CDO for Windows.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx


"Kenaso" wrote in message news
I only want to temporarily disable this feature to be able to send mass
mailings without the annoying dialog box. When finished, the feature would
be turned back on programaticaly. Example: Each mail has a list of names
only associated with one email address. I would be sending over 100 separate
emails at a time.

"Sue Mosher [MVP-Outlook]" wrote:

Why would you want to leave Outlook in such an insecure state when there are ways to avoid the prompt completely by writing your code so that it doesn't use Outlook objects? See http://www.outlookcode.com/d/sec.htm


"Kenaso" wrote in message ...
This message, "A program is trying to access e-mail addresses yo have stored
in Outlook.Do you want to allow this?" is very annoying. I am trying to
write a VB6 application at work that will bulk mail companies and let them
know which individuals are scheduled for class. We do not want to have to
purchase a third party piece of software. There should be an option in
Outlook or a registry setting to turn this security feature on or off. Thank
you.


----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm....program_v ba

What in particular didn't work? Errors? Other symptoms? What happens when you step through the code?

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx


"Kenaso" wrote in message ...
This code example did not work for me.

objMailItem.To = "

Is there something obvious that you can see? Here is an example of my code:

Set objMail = New Outlook.Application
Set objNameSpace = objMail.GetNamespace("MAPI")
objNameSpace.Logon
Set objExcel = New clsExcel
strMsgBody = GetMessageBody(strFileName)

' open the Excel workbook
If objExcel.OpenExcel(strExcelFile) Then
Do
strNameList = ""
strEmailAddr = ""
strEmailName = ""
strCtrlNo = ""

' read one complete Ctrl record from the Excel workbook
If objExcel.ReadExcel(aintCols(), lngRow, strCtrlNo, _
strEmailAddr, strEmailName, _
strNameList, blnAppendNames) Then

' if no more data then exit this loop
If Len(Trim$(strCtrlNo)) = 0 Then
Exit Do
End If

' format the email message body
Set objMailItem = objMail.CreateItem(olMailItem)

With objMailItem
.To = strEmailAddr
.Subject = strSubject
.Body = strMsgBody & strHeading & strNameList & vbCrLf

' attach files
If blnAttachFiles Then
' loop thru and attach the files
For lngIndex = 0 To UBound(avntData) - 1
.Attachments.Add (avntData(lngIndex))
Next lngIndex
End If

.Send
End With

Set objMailItem = Nothing
Else
Exit Do
End If
Loop
End If

' free objects from memory prevents Error 91
Set objMailItem = Nothing
Set objNameSpace = Nothing
Set objMail = Nothing
Set objExcel = Nothing

No errors. Everything generates a good email. Just that annoying dialog
message box keeps popping up and I have to wait 5 seconds at the end of each
email before I can click YES. That Is what I want to disable, send my mail,
reenable. Can you image having to do this over a hundred times each time you
want to send a bulk email? Some of these emails have to do with billing,
education, or sales.

"Sue Mosher [MVP-Outlook]" wrote:

What in particular didn't work? Errors? Other symptoms? What happens when you step through the code?

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx


"Kenaso" wrote in message ...
This code example did not work for me.

objMailItem.To = "

Is there something obvious that you can see? Here is an example of my code:

Set objMail = New Outlook.Application
Set objNameSpace = objMail.GetNamespace("MAPI")
objNameSpace.Logon
Set objExcel = New clsExcel
strMsgBody = GetMessageBody(strFileName)

' open the Excel workbook
If objExcel.OpenExcel(strExcelFile) Then
Do
strNameList = ""
strEmailAddr = ""
strEmailName = ""
strCtrlNo = ""

' read one complete Ctrl record from the Excel workbook
If objExcel.ReadExcel(aintCols(), lngRow, strCtrlNo, _
strEmailAddr, strEmailName, _
strNameList, blnAppendNames) Then

' if no more data then exit this loop
If Len(Trim$(strCtrlNo)) = 0 Then
Exit Do
End If

' format the email message body
Set objMailItem = objMail.CreateItem(olMailItem)

With objMailItem
.To = strEmailAddr
.Subject = strSubject
.Body = strMsgBody & strHeading & strNameList & vbCrLf

' attach files
If blnAttachFiles Then
' loop thru and attach the files
For lngIndex = 0 To UBound(avntData) - 1
.Attachments.Add (avntData(lngIndex))
Next lngIndex
End If

.Send
End With

Set objMailItem = Nothing
Else
Exit Do
End If
Loop
End If

' free objects from memory prevents Error 91
Set objMailItem = Nothing
Set objNameSpace = Nothing
Set objMail = Nothing
Set objExcel = Nothing

If I remember correctly, you've already been pointed to a list of solutions. Using CDO for Windows, for example, to create the message would avoid security prompts and it comes with WIndows. So would using Redemption. We can't make that choice for you.
--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx


"Kenaso" wrote in message ...
No errors. Everything generates a good email. Just that annoying dialog
message box keeps popping up and I have to wait 5 seconds at the end of each
email before I can click YES. That Is what I want to disable, send my mail,
reenable. Can you image having to do this over a hundred times each time you
want to send a bulk email? Some of these emails have to do with billing,
education, or sales.

"Sue Mosher [MVP-Outlook]" wrote:

What in particular didn't work? Errors? Other symptoms? What happens when you step through the code?

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx


"Kenaso" wrote in message ...
This code example did not work for me.

objMailItem.To = "

Is there something obvious that you can see? Here is an example of my code:

Set objMail = New Outlook.Application
Set objNameSpace = objMail.GetNamespace("MAPI")
objNameSpace.Logon
Set objExcel = New clsExcel
strMsgBody = GetMessageBody(strFileName)

' open the Excel workbook
If objExcel.OpenExcel(strExcelFile) Then
Do
strNameList = ""
strEmailAddr = ""
strEmailName = ""
strCtrlNo = ""

' read one complete Ctrl record from the Excel workbook
If objExcel.ReadExcel(aintCols(), lngRow, strCtrlNo, _
strEmailAddr, strEmailName, _
strNameList, blnAppendNames) Then

' if no more data then exit this loop
If Len(Trim$(strCtrlNo)) = 0 Then
Exit Do
End If

' format the email message body
Set objMailItem = objMail.CreateItem(olMailItem)

With objMailItem
.To = strEmailAddr
.Subject = strSubject
.Body = strMsgBody & strHeading & strNameList & vbCrLf

' attach files
If blnAttachFiles Then
' loop thru and attach the files
For lngIndex = 0 To UBound(avntData) - 1
.Attachments.Add (avntData(lngIndex))
Next lngIndex
End If

.Send
End With

Set objMailItem = Nothing
Else
Exit Do
End If
Loop
End If

' free objects from memory prevents Error 91
Set objMailItem = Nothing
Set objNameSpace = Nothing
Set objMail = Nothing
Set objExcel = Nothing