SharePoint Document Workflow with Visual Studio

This Blog have excelents videos and Workflows examples, if you need some code this site can help you in you develomp.

Site

How to: Extracting document details with SharePoint Workflow

How to: (Creating a User Task) SharePoint Document Workflow

How to: Programmatically Escalate a Task in SharePoint 2007

Visual Basic Manual

Microsoft put a nice Manual of Visual Basic Language Specification 9.0.

If you are a beginner this can be a way to start with visual studio and old visual basic code, still my favorite but now i develomp everything with C#.

Good luck....

Integrating Siebel CRM with Microsoft SharePoint Server

I was looking on google for web services for sharepoint and found this, great, have friends working with siebel and this can help you workers of siebel, i now is hard working with Oracle sometimes...

Hope this manual will help you

Integrating Siebel CRM with Microsoft SharePoint Server

Sync File from Sharepoint 3.0 site Offline Online

Oh my good, my praids are answer, but the best of all everything work´s well.
THANK YOU "Chris Johnson".
Site

How this Work.

Very easy
Donwload SyncToy v1.4
This litle software will make the sync.

But Before you have to create a network connection to you sharepoint site where are the folder you want to sync, there are 2 ways to do this.
Justo open explorer and create the new network unit.



Or create by msdos, like i show in other post you can create network folder with authentication to you sharepoint like this:
net use http://[site]/document /user:[Username] [Password]

After create the network folder verify if are there the documents.
After this you configure SyncToy.
The 1 folder(Left) where will be the offline Folder with Documents.
The 2 folder(right) will be to the network connection (Z:) where are Documents of sharepoint site.
Just simple like that, then after this you will only have to run or preview and it´s done...

Sharepoint web part Quick quote

Hello again, When you install Office 2003 webpart will come a new webpart that call quotes from company you already now like Microsoft (MSFT), google(GOOG) or ORACLE (ORCL), this is are the tags you have to put to retrive some info. If you are in stock this can help you...

Virtual Earth and Sharepoint 3.0

This video show you how with few code can use Virtual Earth in sharepoint.

There is more complex examples in http://www.codeplex.com/ the examples use sharepoint Data integration, explore the site you will see.

If you want to explore more of Virtual Earth you can see this examples:
Nice... http://dev.live.com/virtualearth/sdk/


Video: Virtual Earth & SharePoint 2007

Script

VBscript Reference

Hi, this weekend i was exploring my folder and i found a file very interesting...
People can use to develomp in VBscript, This is a litle manual of develomp Vbscript

Display Output:

• DISPLAY TO STANDARD OUTPUT
  Wscript.Echo “Display this text”
  
• DISPLAY TO MESSAGE BOX
  MsgBox(“Prompt”, vbOKCancel, “Title”)
  
• DISPLAY TO POPUP DIALOG BOX
  WshShell.Popup(“Message”, 5, “Title”, 1)
  5: number of seconds to display popup box

Error Handling:

• IGNORE RUNTIME ERRORS
  On Error Resume Next
• FORCE VARIABLE DECLARATION
  Option Explicit
• CHECK FOR AN ERROR
  If Err.Number Then
  ‘ an error occurred
  End If
• CLEAR THE ERROR CACHE
  Err.Clear
  (execute this statement each time you check the Err object)

WMI:

• COMPUTER VARIABLE (local computer)
  strComputer = “.”
• CONNECT TO WMI
  Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
• QUERY: RETRIEVE ALL PROCESSES
  Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process")
• QUERY: RETRIEVE ALL SERVICES
  Set colServiceList = objWMIService.ExecQuery("Select * from Win32_Service")

ADSI:

• COMPUTER VARIABLE (local computer)
  strComputer = “localhost”
• RETRIEVE AN OU
  Set objOU = GetObject("LDAP://ou=finance,dc=fabrikam,dc=com")
• RETRIEVE A USER ACCOUNT~
  Set objUser = GetObject("LDAP://cn=ken myer, ou=Finance, dc=fabrikam,
• BIND TO THE LOCAL COMPUTER
  Set colAccounts = GetObject("WinNT://" & strComputer)

FileSystemObject:

• OPEN TEXT FILE FOR READING
  Const ForReading = 1
  
  Set objFSO = CreateObject _
  ("Scripting.FileSystemObject")
  Set objTextFile = objFSO.OpenTextFile _
  ("c:\scripts\servers.txt", ForReading)
• OPEN TEXT FILE FOR WRITING
  Const ForWriting = 2
  
  Set objFSO = CreateObject _
  ("Scripting.FileSystemObject")
  Set objTextFile = objFSO.OpenTextFile _
  ("c:\scripts\servers.txt", ForWriting)

Search Active Directory:

On Error Resume Next

Const ADS_SCOPE_ONELEVEL = 1

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_ONELEVEL

objCommand.CommandText = _
"SELECT Name FROM 'LDAP://OU=finance,dc=fabrikam,dc=com'“
Set objRecordSet = objCommand.Execute


Microsoft Office:

• Excel
  Set objExcel = CreateObject("Excel.Application")
  objExcel.Visible = True
  Set objWorkbook = objExcel.Workbooks.Add
• Word
  Set objWord = CreateObject("Word.Application")
  objWord.Visible = True
  Set objDoc = objWord.Documents.Open("c:\scripts\test.doc")
• Access
  Set objAccess = CreateObject("Access.Application")
  objAccess.OpenCurrentDatabase "C:\Scripts\Test.mdb"
• Outlook
  Set objOutlook = CreateObject("Outlook.Application")
  Set objNamespace = objOutlook.GetNamespace("MAPI")

VbScript Syntax

• CONDITIONAL STATEMENTS
  If Then
  
  If x = 4 Then
  …
  ElseIf x = 5 Then
  …
  Else
  ...
  End If
  
  
  Select Case
  
  Select Case x
  Case 1
  ...
  Case 2
  ...
  Case Else
  …
  End Select

• ARRAYS
  arrItems = Array("a","b","c")
  
  Dim arr(2)
  arr(0) = 20
  arr(1) = 30
  
  ReDim Preserve arr(3)
  arr(2) = 40

• LOOPS
  For Loops
  
  For Each x in arr
  ...
  Next
  
  For i = 1 to 10
  ...
  Next
• While Loops
  
  While x < 5 …
  Wend
• Do Loops
  
  Do Until x > 5
  ...
  Loop
  
  Do While x <> 5
  
  Do
  ...
  Loop While x <5

• FUNCTIONS AND SUBROUTINES
  
• Function
  
  Function TestFunc
  …
  TestFunc = 10
  End Function
  
• Subroutine
  
  Sub TestSub
  …
  End Sub

Run Scripts:

• SEND OUTPUT TO COMMAND WINDOW
  C:\> cscript test.vbs
• SET DEFAULT TO CSCRIPT
  C:\> cscript //H:cscript
• SEND OUTPUT TO MESSAGE BOX
  C:\> wscript test.vbs
• SET DEFAULT TO WSCRIPT
  C:\> cscript //H:wscript

Convert Quick Campaign Response

Hello, Microsoft CRM 3.0 can be a useful tool when you create campaigns and everything you need, but quick campaigns, cool one activity, but when you make a campagin response in a letter you say huuuummm.... what "Template letter" i have to response?...

Well to answer that question i just create this simples steps

1 Step:
Go to your "isv.config.xml"
<entity name="letter">
<toolbar>
<button title="Quick Campaign Response" tooltip="Quick Campaign Response" icon="/_imgs/ico_18_4401.gif">
</toolbar>
</entity>

2 Step:
Go to customize Letter Entity Form and select OnLoad():

try
{
document.getElementById("ISV_New_1_2_QuickCampaignResponse").onclick=FnOpenWindow;
}
catch(err)
{
}

function FnOpenWindow()
{
window.open('http://[server]/ma/campaignresponse/edit.aspx?_CreateFromType=4207&_CreateFromId='+gup( 'id' ),'Campanha','width=800,height=1024,top=30,left=30,toolbar=0,location=0,status=0,menubar=0,scrollbars=0,resizable=1');
}

function gup( name ){ name = name.replace(/[\[]/,'\\\[').replace(/[\]]/,'\\\]'); var regexS = '[\\?&]'+name+'=([^&#]*)'; var regex = new RegExp( regexS ); var results = regex.exec( window.location.href ); if( results == null ) return ''; else return results[1];}

3 Step:
Go to customize Campaign Response Entity Form and select OnLoad


var CRM_FORM_TYPE_CREATE = 1;

var Qcampaign = new Array;
var lookupItem = new Array;

switch (crmForm.FormType)
{
case CRM_FORM_TYPE_CREATE:
try
{
lookupItem = window.opener.document.all['to'].DataValue;
Qcampaign= window.opener.document.all['regardingobjectid'].DataValue;

if (Qcampaign[0].type == 4406)
{
if (lookupItem[0] != null)
{
crmForm.all.customer.DataValue =lookupItem;
}
}
}
catch(err)
{}
break;
}