Hallo,
ich komme eigentlich aus der Delphi-Ecke, jetzt soll ich jedoch mit dem Builder eine Routine schreiben die den Outlookkalender ausliesst. Da Delphi meine Hauptsprache ist, habe ich das Teil in Delphi geschrieben und wollte es dann portieren, aber irgendwie will es in c++ nicht klappen. hier mein Delphi-code:
procedure TForm1.OutlookAddCalendar(CalendarFolderPath: string; Calendar: TCalendar);
var
Outlook : OleVariant;
NameSpace : OleVariant;
CalendarsRoot : OleVariant;
CalendarsFolder : OleVariant;
OutlookCalendar : OleVariant;
SubFolderName : string;
Position : integer;
Found : boolean;
Counter : integer;
TestContactFolder : OleVariant;
begin
Outlook := CreateOleObject('Outlook.Application');
NameSpace := Outlook.GetNameSpace('MAPI');
CalendarsRoot := NameSpace.GetDefaultFolder(olFolderCalendar);
CalendarsFolder := CalendarsRoot; //kopieren für weitere aufgaben.
//in kalender schreiben.
OutlookCalendar := CalendarsFolder.Items.Add;
OutlookCalendar.Subject := Calendar.Subject;
OutlookCalendar.Location := Calendar.Location;
OutlookCalendar.Save;
//Zugriff auf einzelne Kalenderdaten.
OutlookCalendar := CalendarsFolder.Items[3];
ShowMessage(OutlookCalendar.Subject);
// freigeben.
Outlook := Unassigned;
end;
aufgerufen wird das ganze per ButtonClick:
procedure TForm1.Button1Click(Sender: TObject);
var
Calendar: TCalendar;
begin
Calendar.Subject := SubEdit.Text;
Calendar.Location := LocEdit.Text;
Self.OutlookAddCalendar(PathEdit.Text, Calendar);
end;
kann mir jemand helfen, diesen Code nach CBuilder zu bringen, habe schon viel probiert, aber ausser einigen totalabstürtzen des systems nicht viel erreicht.
mfg
ake
ich komme eigentlich aus der Delphi-Ecke, jetzt soll ich jedoch mit dem Builder eine Routine schreiben die den Outlookkalender ausliesst. Da Delphi meine Hauptsprache ist, habe ich das Teil in Delphi geschrieben und wollte es dann portieren, aber irgendwie will es in c++ nicht klappen. hier mein Delphi-code:
procedure TForm1.OutlookAddCalendar(CalendarFolderPath: string; Calendar: TCalendar);
var
Outlook : OleVariant;
NameSpace : OleVariant;
CalendarsRoot : OleVariant;
CalendarsFolder : OleVariant;
OutlookCalendar : OleVariant;
SubFolderName : string;
Position : integer;
Found : boolean;
Counter : integer;
TestContactFolder : OleVariant;
begin
Outlook := CreateOleObject('Outlook.Application');
NameSpace := Outlook.GetNameSpace('MAPI');
CalendarsRoot := NameSpace.GetDefaultFolder(olFolderCalendar);
CalendarsFolder := CalendarsRoot; //kopieren für weitere aufgaben.
//in kalender schreiben.
OutlookCalendar := CalendarsFolder.Items.Add;
OutlookCalendar.Subject := Calendar.Subject;
OutlookCalendar.Location := Calendar.Location;
OutlookCalendar.Save;
//Zugriff auf einzelne Kalenderdaten.
OutlookCalendar := CalendarsFolder.Items[3];
ShowMessage(OutlookCalendar.Subject);
// freigeben.
Outlook := Unassigned;
end;
aufgerufen wird das ganze per ButtonClick:
procedure TForm1.Button1Click(Sender: TObject);
var
Calendar: TCalendar;
begin
Calendar.Subject := SubEdit.Text;
Calendar.Location := LocEdit.Text;
Self.OutlookAddCalendar(PathEdit.Text, Calendar);
end;
kann mir jemand helfen, diesen Code nach CBuilder zu bringen, habe schon viel probiert, aber ausser einigen totalabstürtzen des systems nicht viel erreicht.
mfg
ake
Comment