如標題: BDS2006+PocketGo開發PocketOutlook應用01
分享01: 以程式新增一個聯絡人
procedure TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);
var AppSession:OutlookSession;

Item:Contact;
begin
//新增連絡人
try
AppSession := OutlookSession.Create;
Item := Contact.Create;
Item.FirstName := '小明';
Item.LastName := '王';
Item.Title := '朋友';
Item.YomiFirstName := 'YomiFirstName';
Item.YomiLastName := 'YomiLastName';
Item.Suffix := 'Suffix';
Item.Nickname := '阿拉伯';

Item.CustomerId := 'CUST_1001';
Item.GovernmentId := 'GOV_2001';
Item.Manager := '李四';
Item.AccountName := '彰銀-002881';
Item.IM2Address := '地址02';
Item.IM3Address := '地址03';

Item.JobTitle := '襄理';
Item.YomiCompanyName := 'YomiCompanyName';
Item.Department := '行銷部';
Item.OfficeLocation := '2351室';
Item.MobileTelephoneNumber := '0921332431';

Item.CompanyName := '創御科技有限公司';
Item.Email1Address := 'John@test.com';
Item.MobileTelephoneNumber := '0931887162';
Item.IM1Address := 'John@hotmail.com';
AppSession.Contacts.Items.Add(Item);
finally
AppSession.Dispose;
end;
end;

附加檔案：47208b8cbb22f_CEOutlookApp01.rar