2009/06/12 20:03 dudals  댓글주소  수정/삭제
구글 사이드바를 써보지 않아서요.. ^^? 확인 해보겠습니다.

2009/08/21 17:50 dudals  댓글주소  수정/삭제
개발툴은 델파이가 맞구요.. ^^
아웃룩 핸들링은 msdn 을 통해서 자료를 찾았습니다.
델마당에 보시면 관련 자료가 있기는 한데 응용을 하려면 msdn 을 참고하시는게 좋아요.

아웃룩 일정을 가져오는 코드는 아래와 같습니다.

outlook := CreateOLEObject('Outlook.Application');
ns := outlook.GetNamespace('MAPI');
folder := GetCalendarFolder(ns.Folders);

ApptItems := ns.Folders('개인 폴더').Folders('일정').Items;

MemoOutlook.lines.add(inttostr(folder.Items.count));
MemoOutlook.lines.add(inttostr(ApptItems.count));

if not VarIsNull(folder) then
begin
MakeOutLookData;

MemoOutlook.Lines.Text := OutLookData.Text;

MemoDebug.lines.add(inttostr(WebBoardData.Count));

for WebBoardCount := 0 to WebBoardData.Count - 1 do
begin

LabelMsg.Caption := Caption;
Application.ProcessMessages;

TempList.CommaText := WebBoardData[WebBoardCount];

Title := TempList[0];
StartDate := StrToDate(TempList[1]); // + ' 00:00.00');
EndDate := StrToDate(TempList[2]); // + ' 00:00.00');

if OutLookData.Indexof(WebBoardData[WebBoardCount]) = -1 then
begin
MemoAdd.lines.add('추가 : ' + WebBoardData[WebBoardCount]);
NewCount := NewCount + 1;

Application.ProcessMessages;
appointment := ApptItems.Add(olAppointmentItem);
appointment.Subject := Title; // 'new appointment';
appointment.Start := StartDate; // Now();

if StartDate <> EndDate then
appointment.End := EndDate + 1; //+ (60 / 86400) // Now() + 10; {10 days for execution}
appointment.ReminderMinutesBeforeStart := 0;
appointment.ReminderSet := 0; // or 1
appointment.Importance := olImportanceHigh;
appointment.AllDayEvent := 1; {all day event}
appointment.Save;
end
else
begin
MemoDebug.lines.add('있음 : ' + WebBoardData[WebBoardCount]);
end;
Caption := '전체 ' + IntToStr(WebBoardData.Count) + ' / 추가 ' + IntToStr(NewCount);
end;
end;

2009/12/22 19:49 dudals  댓글주소  수정/삭제
위치와 관련된 부분을 옵션에 넣어야 할것 같네요..
이와 관련된 부분에 대해 작업 후에 공개하겠습니다. ^^
프로그램을 유용하게 사용해주셔서 감사합니다.