Delphi Webservice Exchange 2007 Example

unit Unit1;
 
Interface
uses Variants, ComObj, Outlook2000, classes;
 
procedure CreateCalendar(Caption, Message, Location : String;
                         Start, Finish: TDateTime;
                         SendNotification : Boolean;
                         Attendees : TStrings);
 
implementation
 
procedure CreateCalendar(Caption, Message, Location : String;
                         Start, Finish: TDateTime;
                         SendNotification : Boolean;
                         Attendees : TStrings);
var
  AppointmentItem: OLEVariant;
  Namespace:   OleVariant;
  Folder:      OleVariant;
  OLApp:       _Application;
begin
  try
    OLApp := GetActiveOleObject(scxOutlookApp) as _Application;
  except
    OLApp := CreateOleObject(scxOutlookApp) as _Application;
  end;
  try
    Namespace                           := OLApp.GetNamespace('MAPI');
    Folder                              := Namespace.GetDefaultFolder( olFolderCalendar );
    AppointmentItem                     := OLApp.CreateItem( olAppointmentItem );
    AppointmentItem.Subject             := Caption;
    AppointmentItem.Body                := Message;
    AppointmentItem.Location            := Location;
    AppointmentItem.Start               := Start;
    AppointmentItem.Duration            := Finish - Start;
    if SendNotification then
    begin
      // If you want to send notification of the appointment to
      // attendees, send a string with all the attendees emails
      // formatted like this:
      // attendee1@company.com; attendee2@company.com;
      // or
      // MyCompanyEmailAddress; YourCompanyEmailAddress
      //
      // Then set the MeetingStatus to Meeting and use the Send
      // method .vs Save
      AppointmentItem.RequiredAttendees := Attendees.ToString;
      AppointmentItem.MeetingStatus     := olMeeting;
      AppointmentItem.Send;
    end
    else
      AppointmentItem.Save;
  finally
    AppointmentItem := Unassigned;
    Namespace       := Unassigned;
    Folder          := Unassigned;
    OLApp.Quit;
    OLApp	    := nil;
  end;
end;
 
 
end.
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:

namespace Exchange;
 
interface
 
uses
  System.Drawing,
  System.Collections,
  System.Collections.Generic,
  System.Linq,
  System.Windows.Forms,
  System.ComponentModel,
  exchange.uk.co.myserver.www;
 
type
  /// <summary>
  /// Summary description for MainForm.
  /// </summary>
  MainForm = partial class(System.Windows.Forms.Form)
  private
      ebs : ExchangeServiceBinding;
      method button2_Click(sender: System.Object; e: System.EventArgs);
      method MainForm_Load(sender: System.Object; e: System.EventArgs);
  protected
    method Dispose(disposing: Boolean); override;
  public
    constructor;
  end;
 
implementation
 
{$REGION Construction and Disposition}
constructor MainForm;
begin
  //
  // Required for Windows Form Designer support
  //
  InitializeComponent();
 
  //
  // TODO: Add any constructor code after InitializeComponent call
  //
end;
 
method MainForm.Dispose(disposing: Boolean);
begin
  if disposing then begin
    if assigned(components) then
      components.Dispose();
 
    //
    // TODO: Add custom disposition code here
    //
  end;
  inherited Dispose(disposing);
end;
{$ENDREGION}
 
method MainForm.button2_Click(sender: System.Object; e: System.EventArgs);
var
        appointment : CalendarItemType;
        arrayOfItems : NonEmptyArrayOfAllItemsType;
        CreateRequest : CreateItemType;
        createResponse : CreateItemResponseType;
        folder : DistinguishedFolderIdType;
begin
    appointment := new CalendarItemType();
    // Set the properties of the appointment.
    appointment.Start := system.DateTime.Parse('4/9/2009 12:30:00PM');
    appointment.StartSpecified := true;
    appointment.End := system.DateTime.Parse('4/9/2009 1:30:00PM');
    appointment.EndSpecified := true;
    appointment.Subject := 'Meeting';
    appointment.Location := 'Building 3, Room 311';
    appointment.Body := new BodyType();
    appointment.Body.BodyType1 := BodyTypeType.Text;
    appointment.Body.Value := 'Meeting Made using Delphi.';
 
    // Add required attendees.
    appointment.RequiredAttendees := new AttendeeType[2];
    appointment.RequiredAttendees[0] := new AttendeeType();
    appointment.RequiredAttendees[0].Mailbox := new EmailAddressType();
    appointment.RequiredAttendees[0].Mailbox.EmailAddress := 'alastair@myserver.co.uk';
    appointment.RequiredAttendees[1] := new AttendeeType();
    appointment.RequiredAttendees[1].Mailbox := new EmailAddressType();
    appointment.RequiredAttendees[1].Mailbox.EmailAddress := 'ben@myserver.co.uk';
 
    // Create the array of items that will contain the appointment.
    arrayOfItems := new NonEmptyArrayOfAllItemsType();
    arrayOfItems.Items := new ItemType[1];
 
    // Add the appointment to the array of items.
    arrayOfItems.Items[0] := appointment;
 
    // Create the CreateItem request.
    createRequest := new CreateItemType();
 
    // The SendMeetingInvitations attribute is required for calendar items.
    createRequest.SendMeetingInvitations := CalendarItemCreateOrDeleteOperationType.SendToAllAndSaveCopy;
    createRequest.SendMeetingInvitationsSpecified := true;
 
    // Add the destination folder to the CreateItem request.
    createRequest.SavedItemFolderId := new TargetFolderIdType();
    folder := new DistinguishedFolderIdType();
    folder.Id := DistinguishedFolderIdNameType.calendar;
 
    createRequest.SavedItemFolderId.Item := folder;
 
    // Add the items to the CreateItem request.
    createRequest.Items := arrayOfItems;
 
    // Create the appointment by calling the CreateItem method, which has
    // the side effect of sending invitations to attendees.
    createResponse := ebs.CreateItem(createRequest);
 
    // Check the result.
    if (createResponse.ResponseMessages.Items[0].ResponseClass <> ResponseClassType.Success) then
    
          MessageBox.show ('EWSWrap.SendAppointment failed.')
    else
        MessageBox.show ('EWSWrap.SendAppointment Created.');
    
end;
 
method MainForm.MainForm_Load(sender: System.Object; e: System.EventArgs);
begin
  ebs := new ExchangeServiceBinding();
  ebs.Url := 'https://www.myserver.co.uk/EWS/Exchange.asmx';
  ebs.Credentials := new System.Net.NetworkCredential('Username','Password','DOMAIN');
end;
 
end.

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131: