home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / kompon / d3456 / OUTLTB.ZIP / demo / Unit1.pas < prev   
Pascal/Delphi Source File  |  2002-08-26  |  6KB  |  214 lines
  1. unit Unit1;
  2.  
  3. {*******************************************************************************
  4. *                                                                              *
  5. * Outlook Connect - Demo                                                       *
  6. *------------------------------------------------------------------------------*
  7. * by Perr Lothar                                                               *
  8. * e-mail: lothar.perr@gmx.net                                                  *
  9. *------------------------------------------------------------------------------*
  10. * a quick and dirty sample-program  ;)                                         *
  11. *******************************************************************************}
  12.  
  13. interface
  14.  
  15. uses
  16.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  17.   Grids, ExtCtrls, OutLookTools, StdCtrls, Menus, Buttons;
  18.  
  19. type
  20.   TForm1 = class(TForm)
  21.     Panel2: TPanel;
  22.     StringGrid1: TStringGrid;
  23.     Panel1: TPanel;
  24.     Label1: TLabel;
  25.     Panel3: TPanel;
  26.     ShowContact: TButton;
  27.     Button1: TButton;
  28.     Button2: TButton;
  29.     Button3: TButton;
  30.     Button4: TButton;
  31.     Edit1: TEdit;
  32.     Button5: TButton;
  33.     Button6: TButton;
  34.     Button7: TButton;
  35.     Button8: TButton;
  36.     Button9: TButton;
  37.     OutlookConnect1: TOutlookConnect;
  38.     Button10: TButton;
  39.     Button11: TButton;
  40.     Button12: TButton;
  41.     procedure FormCreate(Sender: TObject);
  42.     procedure FormShow(Sender: TObject);
  43.     procedure StringGrid1DblClick(Sender: TObject);
  44.     procedure ShowContactClick(Sender: TObject);
  45.     procedure Button1Click(Sender: TObject);
  46.     procedure Button2Click(Sender: TObject);
  47.     procedure Button3Click(Sender: TObject);
  48.     procedure Button4Click(Sender: TObject);
  49.     procedure Button5Click(Sender: TObject);
  50.     procedure Button6Click(Sender: TObject);
  51.     procedure Button7Click(Sender: TObject);
  52.     procedure Button8Click(Sender: TObject);
  53.     procedure Button9Click(Sender: TObject);
  54.     procedure Button10Click(Sender: TObject);
  55.     procedure Button11Click(Sender: TObject);
  56.     procedure Button12Click(Sender: TObject);
  57.   private
  58.     { Private-Deklarationen }
  59.     procedure Fill;
  60.   public
  61.     { Public-Deklarationen }
  62.   end;
  63.  
  64. var
  65.   Form1: TForm1;
  66.  
  67. implementation
  68.  
  69. {$R *.DFM}
  70.  
  71. procedure TForm1.Fill;
  72. var
  73.   Counter:Integer;
  74.   MyContact:Variant;
  75. begin
  76.   StringGrid1.RowCount:=OutlookConnect1.ContactCount+1;
  77.   for Counter:=1 to OutlookConnect1.ContactCount do
  78.   begin
  79.     MyContact:=OutLookConnect1.Contact(Counter);
  80.     with StringGrid1 do
  81.     begin
  82.       Cells[0,Counter]:=IntToStr(Counter);
  83.       Cells[1,Counter]:=MyContact.FirstName;
  84.       Cells[2,Counter]:=MyContact.LastName;
  85.       Cells[3,Counter]:=MyContact.FullName;
  86.       Cells[4,Counter]:=MyContact.MobileTelephonenumber;
  87.       Cells[5,Counter]:=MyContact.EntryId;
  88.     end;
  89.     Application.ProcessMessages;
  90.   end;
  91.   Label1.Caption:=IntToStr(OutlookConnect1.ContactCount)+' Kontakte gefunden';
  92. end;
  93.  
  94. procedure TForm1.FormCreate(Sender: TObject);
  95. begin
  96.   with StringGrid1 do
  97.   begin
  98.     Cells[0,0]:='Index';
  99.     Cells[1,0]:='FirstName';
  100.     Cells[2,0]:='LastName';
  101.     Cells[3,0]:='FullName';
  102.     Cells[4,0]:='MobileTelephonenumber';
  103.     Cells[5,0]:='EntryID';
  104.   end;
  105. end;
  106.  
  107. procedure TForm1.FormShow(Sender: TObject);
  108. begin
  109.   OutlookConnect1.Connected:=true;
  110. end;
  111.  
  112. procedure TForm1.StringGrid1DblClick(Sender: TObject);
  113. begin
  114.   ShowContactClick(Self);
  115. end;
  116.  
  117. procedure TForm1.Button1Click(Sender: TObject);
  118. begin
  119.   OutlookConnect1.Calendar.Display;
  120. end;
  121.  
  122. procedure TForm1.Button2Click(Sender: TObject);
  123. begin
  124.   Fill;
  125. end;
  126.  
  127. procedure TForm1.Button3Click(Sender: TObject);
  128. begin
  129.   ShowMessage(IntToStr(OutLookConnect1.GetSelectionCount)+' Selectedd Items');
  130.   try
  131.     ShowMessage(OutLookConnect1.GetSelection(1));
  132.   except
  133.   end;
  134. end;
  135.  
  136. procedure TForm1.Button4Click(Sender: TObject);
  137. var
  138.   MyContact:Variant;
  139. begin
  140.   MyContact:=OutlookConnect1.CreateContact;
  141.   MyContact.FirstName:=Edit1.Text;
  142.   MyContact.Save;
  143. end;
  144.  
  145. procedure TForm1.Button5Click(Sender: TObject);
  146. begin
  147.   try
  148.     OutlookConnect1.FindContact(Edit1.Text).Display;
  149.   except
  150.     ShowMessage('not found');
  151.   end;
  152. end;
  153.  
  154.  
  155. procedure TForm1.Button6Click(Sender: TObject);
  156. begin
  157.   OutLookConnect1.GetSelection(1).Delete;
  158. end;
  159.  
  160. procedure TForm1.Button7Click(Sender: TObject);
  161. begin
  162.   OutlookConnect1.Notes.Display;
  163. end;
  164.  
  165. procedure TForm1.Button8Click(Sender: TObject);
  166. begin
  167.   OutlookConnect1.Notes.Items(1).Display;
  168. end;
  169.  
  170. procedure TForm1.Button9Click(Sender: TObject);
  171. var
  172.   MyMail:Variant;
  173. begin
  174.   MyMail:=OutlookConnect1.CreateMail('lothar.perr@gmx.net');
  175.   MyMail.To:='Lothar.Perr@gmx.net';
  176.   MyMail.CC:='cc@gmx.net';
  177.   MyMail.BCC:='bcc@gmx.net';
  178.   MyMail.Body:='this is the body of the mail';
  179.   MyMail.Subject:='test mail';
  180. //  OutlookConnect1.AddRecipientToMail(MyMail,'lothar.perr@gmx.net');
  181. //  OutlookConnect1.AddAttachmentToMail(MyMail,'c:\autoexec.bat');
  182.   MyMail.Display;
  183. //  MyMail.Send; // Send the mail (save it in the outbox-folder)
  184. end;
  185.  
  186. procedure TForm1.Button10Click(Sender: TObject);
  187. var
  188.   MyItem:Variant;
  189. begin
  190.   ShowMessage(  IntToStr(OutlookConnect1.Inbox.items.Count));
  191.   MyItem:=OutlookConnect1.Notes.Items.Add;
  192.   MyItem.Body:='this is a test from Lothar Perr'+#10#13+
  193.                'Line 2';
  194.   MyItem.Save;
  195.   MyItem.Display;
  196. end;
  197.  
  198. procedure TForm1.ShowContactClick(Sender: TObject);
  199. begin
  200.   OutlookConnect1.ShowContact(StringGrid1.Row);
  201. end;
  202.  
  203. procedure TForm1.Button11Click(Sender: TObject);
  204. begin
  205.   OutlookConnect1.OutlookNameSpace.Folders('Personal Folders').Folders('Contacts').Items(StringGrid1.Row).Display;
  206. end;
  207.  
  208. procedure TForm1.Button12Click(Sender: TObject);
  209. begin
  210.   ShowMessage(OutLookConnect1.CurrentUser);
  211. end;
  212.  
  213. end.
  214.