OLEObject 	ole_outlook, namespace, folder, ole_contact  
Integer 		li_retval 
Boolean 		WasOpen 
long 			ll_row_count, ll_mis_maasik
String 		ls_response
String 		ls_data 

ole_outlook = CREATE OLEObject 

SetPointer(HourGlass!) 

// ~~~~~~~~~~~~~~~~~~~ START ~~~   C O N N E C T   T O   O U T L O O K ~~~~~~~~~~~~~~~~~~~~~~~~~~~

//First try connect to open outlook 
li_retval = ole_outlook.ConnectToObject("", "outlook.application") 
IF li_retval =  0  THEN 
	WasOpen = TRUE 
ELSE 
	// Didnét work lets try open word and connect to it 
	WasOpen = FALSE 
	li_retval = ole_outlook.ConnectToNewObject("outlook.application") 
END IF 

IF li_retval <>  0   THEN 
	// Problems with the connection 
	CHOOSE CASE li_retval 
		CASE  5 
		 // Fill inn the right ones here 
		 ls_response = '...'
		CASE ELSE 
		 ls_response = "Some Outlook error" 
	END CHOOSE 
	MessageBox("OLE Error - (" + String(li_retval) + ")", ls_response, StopSign!, OK!) 
	
	// It failed lets clean up after us and quit 
	ole_outlook.DisconnectObject() 
	DESTROY ole_outlook 
ELSE 
	// Lets hide word untill we are done with the automation. 
END IF 
SetPointer(Arrow!) 

// ~~~~~~~~~~~~~~~~~~~ END ~~~      C O N N E C T   T O   O U T L O O K ~~~~~~~~~~~~~~~~~~~~~~~~~~~

/* 19/11/2006 Michael - ***************************************
// START *********** Insert data into the Outlook *************
***************************************************************/


// Find the right place to insert an item 
namespace = ole_outlook.GetNameSpace("MAPI") 
folder = namespace.Folders( 1 ).Folders("Contacts") // This thing is case sensitive  Inbox
SetPointer(HourGlass!) 

// Create one outlook item 
	ole_contact = folder.Items.Add
//++++++++++++++++++++++++++++++++++++++++   Set data   +++++++++++++++++++++++++++++++++
	ls_data = 'e_mail@mmm.com'
	IF IsNull(ls_data) THEN 
	 ls_data = "" 
	END IF 
	ole_contact.Email1Address = ls_data 

	ls_data = 'mmm'
	IF IsNull(ls_data) THEN 
	 ls_data = "" 
	END IF 
	ole_contact.Email1DisplayName = ls_data

/*
Account Property 
Actions Property
Anniversary Property 
Application Property 
AssistantName Property 
AssistantTelephoneNumber Property 
Attachments Property 
AutoResolvedWinner Property 
BillingInformation Property 
Birthday Property 
Body Property 
Business2TelephoneNumber Property 
BusinessAddress Property 
BusinessAddressCity Property 
BusinessAddressCountry Property 
BusinessAddressPostalCode Property 
BusinessAddressPostOfficeBox Property 
BusinessAddressState Property 
BusinessAddressStreet Property 
BusinessFaxNumber Property 
BusinessHomePage Property 
BusinessTelephoneNumber Property 
CallbackTelephoneNumber Property 
CarTelephoneNumber Property 
Categories Property 
Children Property 
Class Property 
Companies Property 
CompanyAndFullName Property 
CompanyLastFirstNoSpace Property 
CompanyLastFirstSpaceOnly Property 
CompanyMainTelephoneNumber Property 
CompanyName Property 
ComputerNetworkName Property 
Conflicts Property 
ConversationIndex Property 
ConversationTopic Property 
CreationTime Property 
CustomerID Property 
Department Property 
DownloadState Property 
Email1Address Property 
Email1AddressType Property 
Email1DisplayName Property 
Email1EntryID Property 
Email2Address Property 
Email2AddressType Property 
Email2DisplayName Property 
Email2EntryID Property 
Email3Address Property 
Email3AddressType Property 
Email3DisplayName Property 
Email3EntryID Property 
EntryID Property 
FileAs Property 
FirstName Property 
FormDescription Property 
FTPSite Property 
FullName Property 
FullNameAndCompany Property 
Gender Property 
GetInspector Property 
GovernmentIDNumber Property 
HasPicture Property 
Hobby Property 
Home2TelephoneNumber Property 
HomeAddress Property 
HomeAddressCity Property 
HomeAddressCountry Property 
HomeAddressPostalCode Property 
HomeAddressPostOfficeBox Property 
HomeAddressState Property 
HomeAddressStreet Property 
HomeFaxNumber Property 
HomeTelephoneNumber Property 
IMAddress Property 
Importance Property 
Initials Property 
InternetFreeBusyAddress Property 
IsConflict Property 
ISDNNumber Property 
ItemProperties Property 
JobTitle Property 
Journal Property 
Language Property 
LastFirstAndSuffix Property 
LastFirstNoSpace Property 
LastFirstNoSpaceAndSuffix Property 
LastFirstNoSpaceCompany Property 
LastFirstSpaceOnly Property 
LastFirstSpaceOnlyCompany Property 
LastModificationTime Property 
LastName Property 
LastNameAndFirstName Property 
Links Property 
MailingAddress Property 
MailingAddressCity Property 
MailingAddressCountry Property 
MailingAddressPostalCode Property 
MailingAddressPostOfficeBox Property 
MailingAddressState Property 
MailingAddressStreet Property 
ManagerName Property 
MarkForDownload Property 
MessageClass Property 
MiddleName Property 
Mileage Property 
MobileTelephoneNumber Property 
NetMeetingAlias Property 
NetMeetingServer Property 
NickName Property 
NoAging Property 
OfficeLocation Property 
OrganizationalIDNumber Property 
OtherAddress Property 
OtherAddressCity Property 
OtherAddressCountry Property 
OtherAddressPostalCode Property 
OtherAddressPostOfficeBox Property 
OtherAddressState Property 
OtherAddressStreet Property 
OtherFaxNumber Property 
OtherTelephoneNumber Property 
OutlookInternalVersion Property 
OutlookVersion Property 
PagerNumber Property 
Parent Property 
PersonalHomePage Property 
PrimaryTelephoneNumber Property 
Profession Property 
RadioTelephoneNumber Property 
ReferredBy Property 
Saved Property 
SelectedMailingAddress Property 
Sensitivity Property 
Session Property 
Size Property 
Spouse Property 
Subject Property 
Suffix Property 
TelexNumber Property 
Title Property 
TTYTDDTelephoneNumber Property 
UnRead Property 
User1 Property 
User2 Property 
User3 Property 
User4 Property 
UserCertificate Property 
UserProperties Property 
WebPage Property 
YomiCompanyName Property 
YomiFirstName Property 
YomiLastName Property 
AddPicture Method 
Close Method 
Copy Method 
Delete Method 
Display Method 
ForwardAsVcard Method
Move Method 
PrintOut Method 
RemovePicture Method 
Save Method 
SaveAs Method 
ShowCategoriesDialog Method 
AttachmentAdd Event 
AttachmentRead Event 
BeforeAttachmentSave Event 
BeforeCheckNames Event 
BeforeDelete Event 
Close Event 
CustomAction Event 
CustomPropertyChange Event 
Forward Event 
Open Event 
PropertyChange Event 
Read Event 
Reply Event 
ReplyAll Event 
Send Event 
Write Event 
Actions Object 
Attachments Object 
Conflicts Object 
FormDescription Object 
ItemProperties Object 
Links Object 
UserProperties Object 
*/
//++++++++++++++++++++++++++++++++++++++++   Set data   +++++++++++++++++++++++++++++++++
	// Save out ole_contact 
	ole_contact.Save 

/* 19/11/2006 Michael - ***************************************
// END     *********    Insert data into the Outlook **********
***************************************************************/

SetPointer(Arrow!) 
MessageBox("Information", "Done Transfering contacts to outlook") 

IF NOT WasOpen THEN 
	ole_outlook.Application.Quit() 
END IF 

ole_outlook.DisconnectObject() 
DESTROY ole_outlook