Create Outlook contacts from APL
Posted: Sat Mar 31, 2018 12:15 pm
I would like to that but, if anybody has done it or can share ideas about it, it would be very appreciated!
The modern way would be to invoke Powershell or something like that, but that looks a bit complicated compared to the old way. Under the covers I think Powershell just calls the COM objects anyway...
This works on my laptop:
Code: Select all
'OA' ⎕WC 'OLEClient' 'Outlook.Application'
ct←OA.CreateItem OA.olContactItem
ct.(FirstName LastName)←'Donald' 'Duck'
ct.SaveOf course, there are more properties you can set for an Outlok Contact:
Code: Select all
ct.⎕nl -2
Account Actions Anniversary Application AssistantName AssistantTelephoneNu
mber Attachments AutoBrowse AutoResolvedWinner BillingInformation Bir
thday Body Business2TelephoneNumber BusinessAddress BusinessAddressCit
y BusinessAddressCountry BusinessAddressPostOfficeBox BusinessAddressPo
stalCode BusinessAddressState BusinessAddressStreet BusinessCardLayoutX
ml BusinessCardType BusinessFaxNumber BusinessHomePage BusinessTelepho
neNumber CallbackTelephoneNumber CarTelephoneNumber Categories ChildLi
st Children Class ClassID ClassName Companies CompanyAndFullName Co
mpanyLastFirstNoSpace CompanyLastFirstSpaceOnly CompanyMainTelephoneNumb
er CompanyName ComputerNetworkName Conflicts ConversationID Conversat
ionIndex ConversationTopic CreationTime CustomerID Data Department D
ownloadState Email1Address Email1AddressType Email1DisplayName Email1E
ntryID Email2Address Email2AddressType Email2DisplayName Email2EntryID
Email3Address Email3AddressType Email3DisplayName Email3EntryID Entr
yID Event EventList FTPSite FileAs FirstName FormDescription FullNa
me FullNameAndCompany Gender GetInspector GovernmentIDNumber Handle
HasPicture HelpFile Hobby Home2TelephoneNumber HomeAddress HomeAddres
sCity HomeAddressCountry HomeAddressPostOfficeBox HomeAddressPostalCode
HomeAddressState HomeAddressStreet HomeFaxNumber HomeTelephoneNumber
IMAddress ISDNNumber Importance Initials InstanceMode InternetFreeBu
syAddress IsConflict IsMarkedAsTask ItemProperties JobTitle Journal
KeepOnClose Language LastError LastFirstAndSuffix LastFirstNoSpace La
stFirstNoSpaceAndSuffix LastFirstNoSpaceCompany LastFirstSpaceOnly Last
FirstSpaceOnlyCompany LastModificationTime LastName LastNameAndFirstNam
e LateBind Links Locale MAPIOBJECT MailingAddress MailingAddressCity
MailingAddressCountry MailingAddressPostOfficeBox MailingAddressPostal
Code MailingAddressState MailingAddressStreet ManagerName MarkForDownl
oad MessageClass MethodList MiddleName Mileage MobileTelephoneNumber
NetMeetingAlias NetMeetingServer NickName NoAging OfficeLocation Org
anizationalIDNumber OtherAddress OtherAddressCity OtherAddressCountry
OtherAddressPostOfficeBox OtherAddressPostalCode OtherAddressState Othe
rAddressStreet OtherFaxNumber OtherTelephoneNumber OutlookInternalVersi
on OutlookVersion PagerNumber Parent PersonalHomePage PrimaryTelephon
eNumber Profession PropList PropertyAccessor QueueEvents RTFBody Rad
ioTelephoneNumber ReferredBy ReminderOverrideDefault ReminderPlaySound
ReminderSet ReminderSoundFile ReminderTime Saved SelectedMailingAddre
ss Sensitivity Session Size Spouse Subject Suffix TTYTDDTelephoneNu
mber TaskCompletedDate TaskDueDate TaskStartDate TaskSubject TelexNum
ber Title ToDoTaskOrdinal Type TypeList UnRead User1 User2 User3
User4 UserCertificate UserProperties WebPage YomiCompanyName YomiFirs
tName YomiLastName