Database Search

match allmatch any Look in all areasLook in current areas Check all datesPrevious dayPrevious 3 daysPrevious weekPrevious fortnightPrevious monthPrevious 2 monthsPrevious 3 monthsPrevious half-yearPrevious year

TechHome

Redemption

• Add Attachment to Journal Item
• Adding Contact Information into Outlook
• Compiled EXE Keeps Running Under Task Manager
• Copy Contacts Folder to Subfolder in Outlook
• Create a Folder under Personal Folders in Outlook
• Create Outlook Distribution List
• Creating Address Book XML File
• Current Contact Folder Items
• Delete Mail from Outlook using OLE
• Delete Outlook Contact
• Email Forwarder
• Embed an Image into an Outlook Email
• Empty Folder in Outlook
• Encrypt Message in Outlook
• Find Contacts in Outlook
• Find Folder with the String Mailbox
• Get Internet headers Field from Outlook Message
• Get Contact data form Contact Item Currently Selected in Outlook
• Get Contact Information In Outlook
• Get Internet headers Field from Outlook Message
• Get list of appointments
• Get member of Outlook Distribution List
• Get Outlook Contact information
• How to Send Mail from Outlook using OLE
• Identify Outlook Folder Type or Contents
• Import Excel Data into Outlook Contact Folder
• Launch Outlook and Make Visible
• List Subfolders
• Mark Messages as Read in Outlook using OLE
• ObjectEventAdd To Capture ItemSend Event
• OLE and OUTLOOK check mail
• OLE and OUTLOOK read mail other than inbox
• OLE and OUTLOOK read mail
• OLE MAPI Choose Folder
• OLE_Outlook- add Entry to Address book
• Outlook - Get Oldest Email Message
• Outlook constants
• Outlook Contacts to XML
• Outlook PST to MSG Export
• Outlook Quit Event
• Outlook Received Date
• Outlook Reply-To in OLE
• Outlook Sendmail OLE Example
• Outlook Version
• Read Open Active Outlook Message
• Recurse Outlook folders
• Redemption Causes WinBatch Studio to Crash
• Rename Personal Folder in Oulook
• Save file attachments in Outlook
• Save outlook attachments
• Send to Multiple Recipients
• Sort Email by Received Time
• TypeOf Equivalent
• Use Existing Instance Or Create a New One If Necessary
• Using OLE to resolve name in Outlook
• WinBatch and Redemption Issue
• Writing Appointments to Outlook

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Find Contacts in Outlook

---

This code locates and displays all contacts that contain a particular phonenumber.

;-------------------------------------------------------------------------------------------------------------------------- 
; Define UDF to handle all phone number entry formats 
;--------------------------------------------------------------------------------------------------------------------------

#DefineFunction CheckPhoneNum( thiscontact, phonenumber, type)

IntControl(73,2,0,0,0)
RawNum = thiscontact.%type% ; Get phone number from OL contacts formatted
IntNum=StrClean (RawNum,"+1234567890","",@FALSE,2) ; Clean to international phone number string 
IntPf=StrSub(IntNum,1,1); Determine if an international number

If IntPf=="+"
IntNum=StrSub(IntNum,4,-1) ; Strip international prefix
endif

If phonenumber == IntNum ; Check phone number & display if found 
return @true
endif

return @false

:WBERRORHANDLER
IntControl(73,2,0,0,0)
Error=LastError()
line = StrCat("LastError Value is",@TAB,Error,@CRLF)
line = StrCat(line,"LastError String is",@TAB,IntControl(34,Error,0,0,0),@CRLF)
line = StrCat(line,"LastError Line is",@TAB,wberrorhandlerline,@CRLF)
;Message("Error Info",line)
return

#EndFunction

;--------------------------------------------------------------------------------------------------------------------------
; Define all Outlook contact phone number fields to check for a phone number match
;--------------------------------------------------------------------------------------------------------------------------

typelist = StrCat("BusinessFaxNumber",@tab,"BusinessTelephoneNumber",@tab)
typelist = StrCat(typelist,"HomeTelephoneNumber",@tab)
typelist = StrCat(typelist,"MobileTelephoneNumber",@tab)
typecount = ItemCount(typelist,@tab)


PhoNum = "2065551212"


;--------------------------------------------------------------------------------------------------------------------------
; Connect to Outlook contacts folders and search
;-------------------------------------------------------------------------------------------------------------------------- 

olFolderContacts = 10 
objOutlook = ObjectOpen("Outlook.application")
objNameSpace = objOutlook.GetNameSpace("MAPI")
objFolder = objNameSpace.GetDefaultFolder(olFolderContacts)
ContactItems = objFolder.Items
Count = ContactItems.count
flag = 0 
data = ""
; Scan through all contacts
For xx = 1 to count
	thisContact = ContactItems.item(xx)
	;check all types
	For yy = 1 to typecount
		type = ItemExtract(yy,typelist,@tab)
		if CheckPhoneNum( thiscontact, PhoNum, type)
			flag=flag+1
			singlecontact = thiscontact ; assign "thiscontact" variable value to "singlecontact" 
			;assemble comma delimied list of contact names
			company=thiscontact.CompanyName
			name=thiscontact.FullName
			data = StrCat(data,",",name," : ",company)
		endif
	Next
Next

;if z == 1 then x = "0" ; Set x to zero if Pop Name Only (pno) command line switch used  ;;;;;;;;;;;;;;; UNDEFINED

Switch flag 
	case 0 
		;do nothing
		break
	case 1 
		; Handle number match in single contact record
		;DDELink (name)  ;;;;;;;;;;;;;;; Undefined UDF
		singlecontact.display ; Display the contact
		break
	case flag 
		; Handle number match in multiple contact records
		data = StrSub(data,2,-1)
		aname=AskItemList( "Contact Records for - %PhoNum% - Select to display",data,",", @unsorted, @single )
	
		;DDELink (name)  ;;;;;;;;;;;;;;; Undefined UDF

		name = StrTrim(ItemExtract(1,aname,":")); Use StrTrim to remove leading or trailing spaces
		
		findstr = StrCat("[Full Name] = '",name,"'") ;Use quotes around value !!!!!
		thiscontact = ContactItems.Find(findstr)
		While thiscontact != 0
			thiscontact.display ;Display the contact
			thiscontact = ContactItems.FindNext
	 	EndWhile
		
		break
EndSwitch

; Clean up
ObjectClose(singlecontact)
ObjectClose(thiscontact)
ObjectClose(ContactItems)
ObjectClose(objFolder)
ObjectClose(objNameSpace) 
ObjectClose(objOutlook)

exit

---

Article ID:   W16584

File Created: 2005:02:18:12:21:32

Last Updated: 2005:02:18:12:21:32