Change SharePoint View According to Active Directory Job Title.

I want to change a Form Library View according to the Job Title of an AD user. I cannot understand how to do that!
Could someone please explain how should I do that?
Thanks,
Chiranthaka

You can achieve this by adding three web parts on the page and change the view on all three of them to represent the individual role. Then you will use the audience targetting on each of those web part. You will need three different audience, one for each
role. When users go to Library dedicated page then they will only see the default view configured at the library level. You should also know that Audience targetting hides the data and do not secure the data.
Amit

Similar Messages

AD Group membership not updating in Sharepoint Foundation when adding Active Directory group to Sharepoint group

I have Sharepoint Foundation installed with the latest CU updates. It is running on a VMware box (Windows Server 2008 R2 Standard) with its backend on a SQL Server 2008 R2 vmware box. The farm account is a domain user and has been given all appropriate
replication rights, etc to active directory.
Everything seems to be working fine except for security integrated with AD groups. When I go to edit permissions I can add individual AD users just fine and remove them just fine and their access is taken away right away or given to them right away.
I can also find AD groups in the people picker and add them to the site. When I add new groups to AD, they are found immediately within Sharepoint, and when I delete groups from AD, they are taken out of the people picker right away. Now comes
the weird part. When I add an AD group to the site, all users currently within that AD group are given access to the Sharepoint Site. This works for the first time only. Now when I add or remove users from the AD groups, it does not update
in SharePoint. For example, I have an AD testuser1 in the AD Group "All Users". testuser1 does not have access to SharePoint. So I add the AD group to the Sharepoint group "Visitors". testuser1 now has read access to the sharepoint
site. Now, I remove testuser1 from the AD group, but testuser 1 still has access to the site even though he is not part of the AD group, nor does he have any individual permissions to the site. Now, I add testuser2 to the ad group. testuser2
does not have access to the site, even though he is part of the ad group.
It seems that the only time AD group security is working for me is when I first initially add the AD group to the site. From then on, it's like sharepoint is caching the members of the group and not updating any new adds or deletes from the groups.
Any ideas? I am lost on where to go from here as I have tried everything from clearing cache files, rebooting servers, iisresets....

I think I have at least cornered the problem, but am not 100% sure yet that it is the correct answer. I think it could be 1 of the following 2 scenarios.
Scenario 1: We have 3 web applications setup on our web server ports 80 - Our sharepoint Web app, 2020 - Our My Site Web App, 2040 - Our Search Web app. We are using host headers (http://sharepoint.***.com) instead of a server name. So
we setup our access mappings (Central Admin -> Application Management -> Configure Alternate access mappings) to use the host header (http://sharepoint.***.com) as the default mapping and the server name as the intranet access mapping. By
setting the default access mapping to host headers, i noticed that Sharepoint automatically assumes that all web apps are on port 80. You can see this by going to (Central Admin -> Manage Web Applications). The port listed all 3 web apps on
port 80. So I think when I was doing a profile sync and using mysites, it was messing with my AD security because of this. What I did was the following. I went to Central Admin -> Manage Service Applications -> [Name of your user profile
service] -> Setup my sites. I made sure that my preferred search center had the correct port number on it (mine originally had no port number), that my my site host had a port (again no port number originally), as well as the personal site location.
I then saved this.
Scenario 2: Our user profile sync had 2 BDC connections that were corrupt and throwing errors. I rebuilt the connections, remapped them to the proper user profile property.
I did both of these scenarios above around the same time. I then restarted all my servers, and at last the AD Group security is now functioning appropriately. I have done multiple IIS resets and server restarts. The issue has only reappeared
once. After restarting the machine again, we were back to the AD groups functioning correctly. Because we had the issue reappear once after doing the above, I still do not feel 100% sure that either one of the above corrected the issue completely.
As long as we are up and running currently, I am moving on to other tasks with this project. My only concern that it will break again and I will have to revisit it is when we restart the servers....which is never fun. I will update as I find
a "true" answer to this issue.... Let me know if any of the above helped you or if you find something I may not have thought of.

Change user's OU in Active Directory (AD) from Tabbed User Form

Hi all,
In Tabbed User Form, when I create a user or assign AD as a new resource for the user, I can choose the OU where to create the user in AD by modifying +accounts[AD].accountId+ in cn=Lastname Firstname,ou=xxx,ou=yyy,dc=zzz,dc=ttt
So creation is not an issue.
But I would like to be able to move the user to another OU in Tabbed User Form.
Does anybody know how to do it ?
Thanks in advance,
Ben

Hi,
You can follow the following approach
1) Save OU as extended attribute in IDM
2) Modify Update user workflow to check if the ou vale has changed from old to new.
3) If No, follow normal path.
4) If yes, follow move user sub process.
5) Move user sub process needs account ID and New Ou value for moving the user to new ou.
please send your email address so that i can send you sample workflow.
Regards,
Ajay.

Changes in Active Directory not reflected in SharePoint user info

I have change the manager & name in Active directory but it's not reflecting in sharepoint. I found one command
stsadm -o migrateuser
   -oldlogin <domain\name>
   -newlogin <domain\name>
   [-ignoresidhistory]
But i don't want to do one by one i have many users is there any command for migrate all updated user information

The migrateuser command is really only when a user's ID changes. Making changes such as name and manager should still be reflected under the original ID. If the changes doesn't propagate, ensure that your User Profile Service Sync completed successfully.
Check for errors and address any you find. A successful sync will propagate the changes properly.
Start here:
http://technet.microsoft.com/en-us/library/ff382639(v=office.15).aspx
I trust that answers your question...
Thanks
C
|
RSS |
http://crayveon.com/blog |
SharePoint Scripts | Twitter |
Google+ | LinkedIn |
Facebook | Quix Utilities for SharePoint

How to populate a sharepoint 2010 list from the active directory. How to populate a sharepoint 2010 list with all sharepoint user profiles

How to populate a sharepoint 2010 from the active directory.
I want a list of all the computers in the active directory,
another one with all users.
I want also to populate a sharepoint 2010 list from the sharepoint user profiles.
Thanks
sz

While
the contacts list is usually filled out for contacts that are outside the company, there are times when you would use a contacts list to store internal and external resources. Wouldn’t it be nice if you didn’t have to re-type your internal contacts’
information that are already in the system? Now you can with a little InfoPath customization on the contacts list.
Here’s our plan:
Create the contacts list, and open in InfoPath
Create a data connection to the User Profile web service
Customize the form adding some text, a people picker and a button
Create InfoPath rules that will populate the contact fields from the user fields in the User Profile store
Let’s get going! Before we begin, make sure you have InfoPath 2010 installed locally on your computer. I also want to give credit Laura
Rogers and Darvish Shadravan’s book Using
Microsoft InfoPath 2010 with Microsoft SharePoint 2010 Step by Step. I know it looks like a lot of steps, but it’s easy once you get the hang of it.
So obviously we need a contacts list. If you don’t already have one, go to the SharePoint site where it will live, and create a contacts list.
From the list, click the List tab on the ribbon, then click Customize form:
So now we have our form open in InfoPath 2010. Let’s add our elements to the form.
Above all the fields, let’s add some text instructing users what to do with the the field we’re about to add (.e.g To enter an existing user’s information, choose the user below).
Insert a people picker control by clicking the Person/Group Picker control in the Controls section of the ribbon. This will add a column to the contacts list called group.
Below the people picker, insert a button control from the same section of the ribbon as above. With the button still highlighted, click the Control Tools|Properties tab on the ribbon.
Then in the Label box, change the text to something more appropriate to our task (e.g. Click here to load user data!).
You can drag the button control a little larger to account for the text.
We should end up with something like this:
Before we can populate the fields with user data, we need to create a connection to the User Profile Service.
Add a data connection to the User Profile Service
Click the Data tab on the ribbon, and click the option From Web Service, and From SOAP Web Service.
For the location, enter the URL of your SharePoint site in the following format – http://<site url>/_vti_bin/UserProfileService.asmx?WSDL. Click Next.
Note - for the URL, it can be any SharePoint site URL, not just to the site where your list is.
For the operation, choose GetUserProfileByName. Click Next.
Click Next on the next two screens.
On the final screen, uncheck the box for “Automatically retrieve data when form is opened”. This is because we are going to retrieve the data when the button is clicked, also for performance reasons.
Now we need to wire up the actions on our button to populate the fields with the information for the user in the people picker control.
Tell the form to read the user from the people picker control
Click the Home tab on the ribbon.
Click the button control we created, and under the Rules section of the ribbon, click Manage Rules. Notice the pane appear on the far right.
In the Rules pane, click New –> Action. Change the name to something like “Query and load user data”.
Leave the condition to default (none – rule runs when button is clicked).
Click the Add button next to “Run these actions:”, and choose “Set a field’s value”.
For Field, click the button on the right to load the select a field dialog. Click the Show advanced view on the bottom. At the top, click the drop down and choose the GetUserProfileByName
(Secondary) option. Expand myFields and queryFields to the last option and highlightAccountName. Click ok.
For Value, click the formula icon. On the formula screen, click the Insert Field or Group button. Again click the show advanced view link, but this time leave the data
connection as Main. Expand dataFields, then mySharePointListItem_RW. At the bottom you should see a folder called group (the people picker control we just added to the form). Expand this, then pc:Person,
and highlightAccountId. Click Ok twice to get back to the Rules pane.
If we didn’t do this and just queried the user profile service, it would load the data of the currently logged in user. So we need to tell the form what user to load the data for. We take the AccountID field from the people
picker control and inject into the AccountName query field of the User Profile Service data connection.
Load the user profile service information for the chosen user
Click the Add button next to “Run these actions:”, and choose Query for data.
In the popup, for Data connection, click the one we created earlier – GetUserProfileByName and clickOk.
We’re closing in on our goal. Let’s see our progress. We should see something like this:
Now that we have the user’s data read into the form, we can populate the fields in the contact form. The number of steps to complete will depend on how many fields you want to populate. We need to add an action step for
each field. I’ll show you one example and then you will just repeat the steps for the other fields. Let’s update the Job Title field.
Populate the contact form fields with existing user’s data
Click the Add button next to “Run these actions:”, and choose “Set a field’s value”.
For Field, click the button on the right to load the select a field dialog. Highlight the field Job Title.
For Value, click the formula icon. On the formula screen, click the Insert Field or Group button. Click the Show advanced view on the bottom. At the top, click the
drop down and choose theGetUserProfileByName (Secondary) option. Expand the fields all the way down until you see the Value field. Highlight it but don’t click ok, but click the Filter
Data button, then Add.
For the first dropdown that says Value, choose Select a field or group. The value field will be highlighted, but click the field Name field
under PropertyData. Click Ok.
In the blank field after “is equal to”, click in the box and choose Type text. Then type the text Title.
Click ok until you get back to the Manage Rules pane. The last previous screen will look like this.
We’re going to update common fields that are in the user’s profile, and likely from Active Directory. You can update fields like first and last name, company, mobile and work phone number, etc. For the other fields, the
steps are the same except the Field you choose to update from the form, and the very last step where you enter the text will change. Here’s what the rules look like when we’re done:
We’re all done, good work! You can preview the form and try it now. Click Ctrl+Shift+B to preview the form. Once you’re satisfied, you can publish the form back to the library. Click File –> Quick
Publish. Once it’s done, you will get confirmation:
Now open your form in SharePoint. From the contact list, click Add new item. Type in a name, and click the button and watch the magic happen!

Sharepoint 2013 Active Directory Import- Manager field not updating

Hi,
SharePoint 2013 Active directory import -Manager field not updating
Concern/Issue-
We are using SharePoint and configured the Active Directory Import .First import it seems everything is working fine and OOB Organization chart built using User profile data is coming out right.
Now the user is moved from one Organization Unit to Another.
Now our Manager field is not Updating .There is change in AD manager attribute but not reflecting in the SharePoint User profile.
Manger field is mapped to "manager" attribute in SharePoint.
We tried removing the user and Re-Import using Incremental import but no luck.
Thanks for help in advance
Sachin

Moving a user from one OU to another in AD won't normally change the Manager attribute in AD. You would need to edit the user's organization settings to change the manager value in AD. I've also seen these changes not be picked up unless something
other than just the manager field in AD changing. Try changing something like Office location and see if the manager change is picked up by AD Import.
Paul Stork SharePoint Server MVP
Principal Architect: Blue Chip Consulting Group
Blog: http://dontpapanic.com/blog
Twitter: Follow @pstork
Please remember to mark your question as "answered" if this solves your problem.

SharePoint, Active Directory and GMail

Dears,
I have SharePoint 2013 connected to Active Directory with <MyDomain> as domain name, i also have gmail domain <MyDomain> - same name-, we are creating users on our firm to have the same id and email address on both domains,
my questions are:
1- how can i sync this process automatically?
2- SharePoint is not sending email to users on Gmail, knowing that i used the following code to send email from my sharepoint server and it's working fine,
sing (SPSite site = new SPSite("http://onlinesrv/"))
using (SPWeb web = site.RootWeb)
bool sent = SPUtility.SendEmail(web, true, false, "user@<MyDomain>.com", "Test gmail", "From SharePoint Portal using gmail account as smtp");
Console.WriteLine(sent.ToString());
Any help ??!

Hi Omar,
According to your description, my understanding is that you want to send email to users that have Gmail in AD.
Whether you have installed SMTP. You need to install SMTP for using Gmail , more information, please refer to the link:
Configuring Outgoing email settings in SharePoint with Gmail SMTP
Also, you need to create a User Profile Service Application, then start a full sync to sync the user profile.
More information, please take a look at:
http://maxteo.wordpress.com/2013/01/16/configure-sharepoint-2013-outgoing-email-using-gmail-smtp-and-resolving-user-profile-synchronization/
I hope this helps.
Thanks,
Wendy
Wendy Li
TechNet Community Support

Active directory, SSGD and password change

Hi everybody, we have some problems with SSGD, active directory and password change
Scenario:
We have 2 different perfectly working Active directory called "Gruppo" and "Eracle";
We have 2 different tarantella installations called "Sgd" and "Tlv";
Sgd servers are working servers and users authenticate against Eracle, used by our customer.
We made 2 basic different test with Tlv:
1. we configure Tlv to authenticate users against Gruppo (that is our real need)---> we can't change pasword using kpasswd or ttakpasswd
2. we configure Tlv to authenticate users against Eracle ---> everything was ok
There are NO DIFFERENCE beetween Sgd and Tlv, they have same configuration, same krb5.conf etc..
There is ONE DIFFERENCE beetween Eracle and Gruppo:
Eracle Active Directory's properties:
Domain functional level: Windows 2000 mixed
Forest functional level: Windows 2000
Gruppo Active Directory's properties:
Domain functional level: Windows 2000 native
Forest functional level: Windows 2000
SSGD documentation doesn't speak about different Active Directory properties. The SSGD documentation says that you can authenticate users against Active directory, so, IT HAS TO WORK even if the domain functional level of active directory is different.
Can someone help us^Hi Simon
I'll try again to explain you our problem, because it seems that I wasn't so clear.
Scenario:
We have 2 different perfectly working Active directory called "Gruppo" and "Eracle";
We have 2 different tarantella installations called "Sgd" and "Tlv";
Sgd servers are working servers and users authenticate against Eracle, used by our customer.
We made 2 basic different test with Tlv:
1. we configure Tlv to authenticate users against Gruppo (that is our real need)---> we can't change pasword using kpasswd or ttakpasswd
2. we configure Tlv to authenticate users against Eracle ---> everything was ok
There are NO DIFFERENCE beetween Sgd and Tlv, they have same configuration, same krb5.conf etc..
There is ONE DIFFERENCE beetween Eracle and Gruppo:
Eracle Active Directory's properties:
Domain functional level: Windows 2000 mixed
Forest functional level: Windows 2000
Gruppo Active Directory's properties:
Domain functional level: Windows 2000 native
Forest functional level: Windows 2000
SSGD documentation doesn't speak about different Active Directory properties. The SSGD documentation says that you can authenticate users against Active directory, so, IT HAS TO WORK even if the domain functional level of active directory is different.
Can someone help us?
Many thank
Patrizia

Added question.
Do you guys know if changing the password will change the password on their Active directory access.
Thanks,
helmut

Active directory change question regarding affects on exchange 2013

Good day,
I have some universal security groups that are meant to be distribution groups in a 2008 R2 active directory forest. These groups are being utilized by exchange 2013, I plan on turning these groups into global distribution groups in active
directory (all changes will be made in active directory only, not in exchange).
Question is; What will happen to the mail boxes using this group? Will it break the mailbox? How will users be affected?
I plan on doing testing of my own but if someone else has already done this and has ran into issues this will help me out greatly.

Hi ,
Mail enabled security groups can be used for two purposes.
1.Used to distribute emails to its members.
2.Unlike mail enabled Distribution groups , Mail enabled security groups will have SID value , so it can be mapped on any resources (for eg : share folder ) to get the access permissions to it members.
In your case ,You would like to change the scopes for the mail enabled security groups ,Before changing the group scopes just have a look in to the following link which states clearly about the group scopes and its usage.
http://technet.microsoft.com/en-us/library/cc755692(v=ws.10).aspx
Please feel to reply me if you have any queries.
Thanks & Regards S.Nithyanandham

Organization chart with Active directory AD in Sharepoint 2013

Dear All,
I need to create organizational chart with sharepoint 2013 through the Active directory. Is there any opensource webpart for 2013 please confirm me
Regards
RB

Any one know about it?
RB

Project Server 2010 Active Directory Synchronization - duplicate Windows Name - Event ID 7734

Environment: SharePoint Server 2010, Project Server 2010, SP2, DEC 2013 CU (Farm Build number: 14.0.7113.5001)
Scenario:
Domain user has been added to the Active Directory group being synchronized with Project Server for the Team Members group.
That user has participated as a team member in numerous projects, added documents, been assigned tasks, typical project stuff...
Employee quits.
AD account is deleted. (NOT deactivated or moved into another OU)
Time passes...
Employee gets rehired. NEW AD account is set up: same display name, SamAccountName, email address, different GUID of course.
Daily Active Directory job runs again and throws event ID 7734 and the sync ends with a partial fail.
I understand why this is happening. Solutions I've found point me to deleting the Enterprise Object resource in Project Server and then rerunning the sync. Sure, this works BUT won't all of the previous documents, tasks,
etc. be disassociated from that user? If so, this is not ideal.
2 questions:
Is there a better way to deal with the fixing of the resource in Project Server to somehow link the old resource to the new resource allowing the sync to run successfully while still leaving the association to all old content intact?
How are other organizations dealing with rehires when they have been added as resources in Project Server? What is the best practice guidance from Microsoft on this? Are other companies not actually deleting AD accounts when users leave organizations
or are they putting them into a "ARCHIVE" OU or something like that? This happens at least half a dozen times a year at my company. We would like to keep our AD as clean as possible, but this appears to change our approach.
Any suggestion/guidance is appreciated.

For the question to relink the new account to the account which is already available in Project Server. You will have to update the WRES_AD_GUID to Null for the the Resource in MSP_RESOURCES table in the published database.
Whenever a users gets synchronized to the PWA his ADGUID, SAMAccountName, Display Name, Email Address and DepartmentName is Synchronized from AD to Project Server. When the user was deleted and recreated the ADGUID got changed. During the next sync, project
found the user with similar properties but different ADGUID which was updated in WRES_AD_GUID column in MSP_RESOURCES table. Hence it says that there is a duplicate account in the table with the same properties but a different ADGUID
Nullifying the WRES_AD_GUID column value in MSP_RESOURCES table should get the user synchronized to Project server in the next sync.
Cheers! Happy troubleshooting !!! Dinesh S. Rai - MSFT Enterprise Project Management Please click Mark As Answer; if a post solves your problem or Vote As Helpful if a post has been useful to you. This can be beneficial to other community members reading
the thread.

Yet another active directory problem

Hi,
I'm trying to bind a few Macs in my Windows 2003 Active Directory Domain, they're the first that comme with Lion 10.7.2 out of the box. I'va had my share of problems with AD binding of Macs, but I already have a lot of 10.6.8 Macs, and a few other that got upgraded from 10.6 to 10.7 without much problems and those work fine with my AD.
That, of course, couldn't last and I now have a new problemes with my 10.7.2 Macs. The binding process in itself seems to work fine, I've got the green light in front of my AD domain and I can log with my AD accounts on my Macs. The problem start when I try to access the directory utility to change the default settings for "active directory" (any settings will do, create mobile acount for example) : this creates another AD binding in "network account server", I can still login with my ad accounts but none of the settings I set in the directory utility are effective.
Both of those AD binding are shown with a green light, but the second one has a comment stating that it is not present in the auth scope rules. My AD DNS domain name is something like "domainname.com" (no .local), but the short netbios name is something like "dom" : the original AD binding on my 10.7.2 Macs is "dom", and the one created after I change some settings is "domainname". On my other Lion or SL Macs correctly joined to my domain, the domain only appears with the name "domainname" : it seems that for some reason Lion is now troubled by the fact that my netbios name is not the dns name minus the extension...
If I unbind one of my correctly working upgraded 10.7.2 Macs, it exhibits the same issue when I try to rebind it.
Does anyone else has a similar AD configuration, and does it work with 10.7.2 ? Does anyone has any idea of how to work around it ?
Thanks

Hi there,
I have experienced the same problem with Macs in my Windows environment. I have found a work-around for it, but it is a little bit tedious. What I have found is that if you reinstall Lion (10.7 or 10.7.1) and bind it to the domain before patching to 10.7.2 it will bind correctly with only one entry in the network account server dialog. From there you can updagte to 10.7.2 and it will work correctly. There is a catch, though. If for any reason you need to unbind the machine from the domain, you will run into the same problem when you try to bind it again. I know it is not much of a fix, but it is what I have been doing to get around the problem. I hope this helps you out.
Regards

Active Directory SSL Problem

Hi everyone,
I installed SSL certificate according to Active Directory Connector Guide(part 2.2.3.4.).
But I have an error :
ConnectorServer.exe Error: 0 : Error processing request
System.NotSupportedException: The server mode SSL must use a certificate with the associated private key.
Dou you have any idea ?
Thanks.
Best regards.

Hi,
I did all requirements but I have an error.
In Connector Server log :
ConnectorServer.exe Error: 0 : Error processing request
System.NotSupportedException: The server mode SSL must use a certificate with the associated private key.
In OIM diagnostic log :
org.identityconnectors.framework.common.exceptions.ConnectorException: javax.net.ssl.SSLHandshakeException: Remote host closed connection during handshake
Do you have any idea ?
Thanks.

ISE 1.2 Admin Access via Active Directory

Hi Experts,
Good Day!
I want to configure my ISE 1.2 to authenticate (for admin) against the active directory. I know it is possible but our AD doesn't have any groups named for admins.
Is it possible for the ISE 1.2 to configure a local user ID and check it to the AD for the password of the UserID?
Thanks for your great help.
niks

Niks,
I just got done doing this. First of all you have to have the Active Directory setup as an external data source. Once you do that Click on Administration - - Admin Access.
For the Authentication Type ensure that Password Based is toggled and change your data source to Active Directory (or whatever you named it).
Then click in Administrators - - Admin Users. Click Add a user - - Create Admin User. Ensure to check the External box and you will notice the Password field goes away. Fill out the appropriate information and then assign them to an Admin Group.
Once you are done with that you can test that user by logging out of your ISE session. You will notice that when you try to log back in you will have a choice of the data sources used to authenticate the user. Change the selection to Active Directory and enter the AD user/password for the newly created account you should be good to go.
Make sure that you don't delete or disable your original admin account in this process. (Change the password if you like.)

BPC Excel VBA Code to change Current View ios broken, please help

Hi,
I inherited a macro set to cycle through a list of paramenters, change current view accordingly and print the reports. It was working fine in the prior version of BPC, but stopped when we transferred to BPC 7. The code stops when it's trying to make the Current View visible (in the prior version it was an option, in BPC 7 it's always visible). I also think it does not recognize the "OutlookSoft CPM CurrentView" name. I am not a VBA expert. Woudl appreciate any ideas. The place where the code stops is in bold below.
Thank you!
Sub cmdRun_Click()
Dim strColHead As String, strRowHead As String, strDataRange As String
Dim I As Integer, j As Integer, k As Integer
Dim blnOldStatusBar As Boolean, blnOSBarStartVis As Integer, intOSBarStartPosit As Integer
Dim strPL As String, strTabName As String
Dim intTotalPrintingPages As Integer, intPageCountStart As Integer
Dim dteStartTime As Date, dteEndTime As Date, intRunTimeSeconds As Integer, intRunTimeMinutes As Integer
'Record the start time
dteStartTime = Time
'Get the current status bar setting. Then, make sure the bar is visible
blnOldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
If Test_Ranges = False Then
    Exit Sub
End If
strColHead = refColHeader.Value
strRowHead = refRowHeader.Value
strDataRange = refDataRange.Value
'Find and store the starting position for the OutlookSoft Currentview toolbar
'Then, make the entire OutlookSoft CurrentView toolbar visible
Application.StatusBar = "Storing CurrentView toolbar data"
blnOSBarStartVis = Application.CommandBars("OutlookSoft CPM CurrentView").Visible
Application.CommandBars("OutlookSoft CPM CurrentView").Visible = True
intOSBarStartPosit = Application.CommandBars("OutlookSoft CPM CurrentView").Position
Application.CommandBars("OutlookSoft CPM CurrentView").Position = 4
'Hide the form
frmParameters.Hide
'Cycle through the combinations of P&Ls and tab names
For I = 1 To Range(strRowHead).Rows.Count
    'Change the currentview P&L
    Application.StatusBar = "Changing the CurrentView..."
    strPL = Range(strRowHead).Rows(I).Columns(1).Value
    ChangeCurrentView "P_L", strPL
    'Refresh and Expand
    'Application.Calculation = xlCalculationManual                      'temporarily turn off Excel's automatic calculation
    Application.Run "MNU_eTOOLS_EXPAND"
    'Application.Calculation = xlCalculationAutomatic                   'turn the automatic calculation back on
    Application.Run "MNU_eTOOLS_REFRESH"
    Application.CalculateFullRebuild
    'Get the total number of pages to be printed for the selected P&L
    Application.StatusBar = "Counting pages to be printed for this P&L..."
    intTotalPrintingPages = 0
    For j = 1 To Range(strColHead).Columns.Count
        If Range(strDataRange).Rows(I).Columns(j).Value = "x" Then
            strTabName = Range(strColHead).Rows(1).Columns(j).Value
            For Each pb In Sheets(strTabName).HPageBreaks
                If pb.Extent = xlPageBreakPartial Then
                    intTotalPrintingPages = intTotalPrintingPages + 1 'add one sheet to the count for each page break
                End If
            Next
            intTotalPrintingPages = intTotalPrintingPages + 1          'each sheet will print 1 more page than there are page breaks
        End If
    Next j
    Application.StatusBar = intTotalPrintingPages & " total pages for " & strRowHead
    'Cycle through each of the tabs (only if it is marked with an 'x')
    intPageStartCount = 0
    For j = 1 To Range(strColHead).Columns.Count
        If Range(strDataRange).Rows(I).Columns(j).Value = "x" Then
            strTabName = Range(strColHead).Rows(1).Columns(j).Value
            'Set the footer
            Application.StatusBar = "Building the page footer for " & strTabName & "..."
            Sheets(strTabName).PageSetup.CenterFooter = " Page &P+" & intPageStartCount & " of " & intTotalPrintingPages
            'Print the current sheet
            Application.StatusBar = "Printing " & strTabName & " for " & strRowHead & "..."
            Sheets(strTabName).PrintOut Copies:=1, Collate:=True
            'Bump up the start value for page numbering
            For Each pb In Sheets(strTabName).HPageBreaks
                If pb.Extent = xlPageBreakPartial Then
                    intPageStartCount = intPageStartCount + 1          'add one sheet to the count for each page break
                End If
            Next
            intPageStartCount = intPageStartCount + 1                  'each sheet will print 1 more page than there are page breaks
        End If
    Next j
Next I
'Put the OutlookSoft CurrentView toolbar back to where the user had it.
Application.StatusBar = "Resetting the CurrentView toolbar"
Application.CommandBars("OutlookSoft CPM CurrentView").Position = intOSBarStartPosit
Application.CommandBars("OutlookSoft CPM CurrentView").Visible = blnOSBarStartVis
'Alert the user that the process is complete
Application.StatusBar = "Processing complete...notifing user"
dteEndTime = Time
intRunTimeSeconds = DateDiff("s", dteStartTime, dteEndTime)
intRunTimeMinutes = intRunTimeSeconds \ 60
If intRunTimeMinutes > 0 Then
    intRunTimeSeconds = intRunTimeSeconds Mod (intRunTimeMinutes * 60)
End If
For k = 1 To 3
    Beep
Next k
Application.DisplayStatusBar = blnOldStatusBar
MsgBox "The report generation process is complete." & Chr(10) & _
    "Total retreival and printing time:" & Chr(10) & _
    "    Minutes: " & intRunTimeMinutes & Chr(10) & _
    "    Seconds: " & intRunTimeSeconds, vbOKOnly + vbInformation, "Process Complete"
End Sub

Sub cmdRun_Click()
Dim strColHead As String, strRowHead As String, strDataRange As String
Dim I As Integer, j As Integer, k As Integer
Dim blnOldStatusBar As Boolean, blnOSBarStartVis As Integer, intOSBarStartPosit As Integer
Dim strPL As String, strTabName As String
Dim intTotalPrintingPages As Integer, intPageCountStart As Integer
Dim dteStartTime As Date, dteEndTime As Date, intRunTimeSeconds As Integer, intRunTimeMinutes As Integer 'Record the start time
For I = 1 To Range(strRowHead).Rows.Count 'Change the currentview P&L
    Application.StatusBar = "Changing the CurrentView..."
    strPL = Range(strRowHead).Rows(I).Columns(1).Value
    ChangeCurrentView "P_L", strPL 'Refresh and Expand
    'Application.Calculation = xlCalculationManual 'temporarily turn off Excel's automatic calculation
    Application.Run "MNU_eTOOLS_EXPAND"
    'Application.Calculation = xlCalculationAutomatic 'turn the automatic calculation back on
    Application.Run "MNU_eTOOLS_REFRESH"
    Application.CalculateFullRebuild 'Get the total number of pages to be printed for the selected P&L
    Application.StatusBar = "Counting pages to be printed for this P&L..."
    intTotalPrintingPages = 0
    For j = 1 To Range(strColHead).Columns.Count
        If Range(strDataRange).Rows(I).Columns(j).Value = "x" Then strTabName = Range(strColHead).Rows(1).Columns(j).Value
            For Each pb In Sheets(strTabName).HPageBreaks
                If pb.Extent = xlPageBreakPartial Then intTotalPrintingPages = intTotalPrintingPages + 1 'add one sheet to the count for each page break
                End If
            Next
        intTotalPrintingPages = intTotalPrintingPages + 1 'each sheet will print 1 more page than there are page breaks
        End If
    Next j
    Application.StatusBar = intTotalPrintingPages & " total pages for " & strRowHead 'Cycle through each of the tabs (only if it is marked with an 'x')
    intPageStartCount = 0
-> Displays the line as programming code is not workin!
Edited by: Sam Patel on Aug 27, 2009 12:45 PM
Edited by: Sam Patel on Aug 27, 2009 12:45 PM
Edited by: Sam Patel on Aug 27, 2009 12:46 PM
Edited by: Sam Patel on Aug 27, 2009 12:47 PM
Edited by: Sam Patel on Aug 27, 2009 12:47 PM
Edited by: Sam Patel on Aug 27, 2009 12:49 PM
Edited by: Sam Patel on Aug 27, 2009 12:49 PM
Edited by: Sam Patel on Aug 27, 2009 12:50 PM

Change SharePoint View According to Active Directory Job Title.

Similar Messages

Maybe you are looking for