G
Guest
When I run this script it works, but I get a warning that stats someone is trying to access outlook address book how long do you want to allow access 1min etc. blah blah blah.... ok or cancel. How can I avoid this? This is just a test script what will happen is that the user will be able to selelct from a userform to select the people that they want to have at the meeting. So haveing this message will cause useres to have a problem. I want to add this as a menu bar/button and then start the script
TI
Public Sub meeting(
On Error GoTo line
Set myOlApp = CreateObject("Outlook.Application"
Set myItem = myOlApp.CreateItem(olAppointmentItem
myItem.MeetingStatus = olMeetin
myItem.Subject = "Strategy Meeting
myItem.Location = "TBD
myItem.Start = #3/21/1997 1:30:00 PM
myItem.Duration = 9
Set myRequiredAttendee = myItem.Recipients.Add("Name, One"
myRequiredAttendee.Type = olOptiona
Set myOptionalAttendee = myItem.Recipients.Add("Name, Two"
myOptionalAttendee.Type = olRequire
myItem.Displa
line1
End S
TI
Public Sub meeting(
On Error GoTo line
Set myOlApp = CreateObject("Outlook.Application"
Set myItem = myOlApp.CreateItem(olAppointmentItem
myItem.MeetingStatus = olMeetin
myItem.Subject = "Strategy Meeting
myItem.Location = "TBD
myItem.Start = #3/21/1997 1:30:00 PM
myItem.Duration = 9
Set myRequiredAttendee = myItem.Recipients.Add("Name, One"
myRequiredAttendee.Type = olOptiona
Set myOptionalAttendee = myItem.Recipients.Add("Name, Two"
myOptionalAttendee.Type = olRequire
myItem.Displa
line1
End S