スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

CybouzからOutlookへのスケジュール同期マクロ

サイボウズの予定をOutlookへ追加するマクロを作成した。
もともとサイボウズから出していた「サイボウズ AG スケジュール連携 for Outlook」を使用していたのだが、Outlook2003、サイボウズ6では対応しなくなり、無理やり使っていると固まることがしばしばあった。そのプラグインも今はダウンロードできない。

なので自分で作ることにした。
やっていることは単純に、サイボウズにログインして今月と来月の月間スケジュールを見て、Outlookになければ、Outlookに登録する。名前と開始時間、終了時間を見て、違っていれば登録するので、時間を変更した場合、別のものと見なされ、Outlookに二重に登録される。また終了時間を設定していないのも登録はされない。削除したものも同期はしない。要は一方通行で、変更・削除をした場合は、Outlook上で手動で削除する。サイボウズに比べてOutlookの予定の方が、削除は楽にできるからさほど不便ではないだろう。

ちなみにOutlookからサイボウズはできない。サイボウズのWebでの登録の仕組みを探ればいいが、面倒なので指定ない。

ダウンロードはこちらから。

インストールは、Outlookを立ちあげ、マクロ - Visual Basic Editorで、ファイル - ファイルのインポートで、ダウンロードしたファイルを選択する。

自分の環境に合わせて、マクロの以下の箇所を修正すること。
Host = "yourhost.co.jp"
Uid = "12345"
Password = "yourpassword"

Uidは、サイボウズの自分のページを表示させて、HTMLのソースを見れば、自分に会社からどんなUidが割り当てられているかわかる。

実行は、マクロ - マクロ - SyncCybouzuで実行する。

関連記事
スポンサーサイト

テーマ : ソフトウェア開発
ジャンル : コンピュータ

コメント

非公開コメント

実行エラーになっちゃいます

さっそくインストールしてみましたが、実行エラーになってしまいます。
オーバーフローとのこと。


' HTML上のその月の最初と最後の位置を取得
Private Sub extractStartEndIndex()
Dim i As Integer
Dim inTheMonth As Boolean
inTheMonth = False

For i = CybozuDates.Count - 1 To 0 Step -1
If Not inTheMonth Then
If isInTheMonth(i, inTheMonth) Then
inTheMonth = True
log "End: " & CybozuDates(i).Submatches(0)
EndCybozuIndex = CybozuDates(i).FirstIndex

わたしだけでしょうか。

同じく実行エラー(T-T)

とても便利そうなので是非使おうと
思っているのですが、おばなさんと
同様に、オーバーフローってエラーが
出てしまいます。
デバッグというボタンを押すと、
「EndCybozuIndex = CybozuDates(i).FirstIndex」
というラインに黄色いマーカーが出てきました。

0utlook2003についているVBEditorのイミディエイト
という画面を見てみると、

・・・(Outlookのスケジュール持ってきている)
---------- Fetch Schedule -------------
http://***(ないしょ)
CybozuDates.Count = 42
End: 31

というとこで止まっているようです。
その「http://***」をブラウザに貼り付けると
自分の月予定表示がでるので、サイボウズへの
ログオンはうまくいっているようです。

お願いできない立場であることは1000も万も
承知ですが、神様、仏様、作者様、
お時間あって暇で暇でどうしようもないときなどにでも、
何卒どうかよろしくお願いしますm(__)m

Re: 同じく実行エラー(T-T)

コメントありがとうございます。

今の会社がサイボウズ使っていないので、確認ができないんですね。
どうしたらいいものか。
ちょっと考えてみます。

Re: 同じく実行エラー(T-T)

お返事ありがとうございます。
サイボウズないのであれば、
難しいかもしれませんね・・
(お気になさらずに!)
きゅうりの成長を眺めながら
気長にお待ちしてます。

実行がエラーになってしまう方

Integer を long に変換して実行してみてください。
プロフィール

dayan

Author:dayan
小職は、SE(システムエンジニア)を専門としておりますが、技術的な情報を中心に、それ以外に経済関連の日記、たわいもない日記も載せていきます。
[公式HPもよろしく!]

天気予報

-天気予報コム- -FC2-
リンク
ブロとも申請フォーム

この人とブロともになる

カテゴリー
最近の記事
ブログ内検索
最近のコメント
最近のトラックバック
RSSフィード
月別アーカイブ


上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。