Outlookのマクロを教えてください！

質問

Outlookで現在開いている「予定」を「特定のアドレス」に「特定の件名」をつけて、「iCalenderとして転送（L）」したいのです。

※「特定の件名」が、難しいようであれば、デフォルト"FW:（予定の件名）"のままでもかまいません。

単純な作業の自動化だと思うのですが、私自身基礎知識もなく、Webを見回しても良い情報が得られず、なかなか進みません。
是非、ご指導ください！

ちなみに使用しているのは、Outlook2003です。

回答No.1

10CubeLeaf · ベストアンサー

こんな感じでしょうか。

Public Sub ForwardAsICalendar()
Const TEMP_FOLDER = "c:\windows\temp\"
Const SEND_TO = "sample@example.com"
Const SEND_SUBJECT = "Send as iCalendar"
Dim appItem As AppointmentItem
Dim fwdItem As MailItem
Dim strFileName As String
strFileName = TEMP_FOLDER & SEND_SUBJECT & ".ics"
Set appItem = ActiveInspector.CurrentItem
appItem.SaveAs strFileName, olICal

Set fwdItem = Application.CreateItem(olMailItem)
fwdItem.To = SEND_TO
fwdItem.Subject = SEND_SUBJECT
fwdItem.Attachments.Add strFileName
fwdItem.Body = "iCalendar として転送します。"
fwdItem.Display
End Sub

お礼

10CubeLeafさま、
Folderを変更したところ、問題なく実行できました！

ありがとうございました！

補足

10CubeLeafさま、
早速のご回答ありがとうございます。

試してみたところ、下記のようなメッセージが出ます。
実行時エラー　'-1638395(ffe70005)':
この操作を行うために必要なアクセス権がありません。

デバックをみると
fwdItem.Attachments.Add strFileName
のところをさしております。

社内的な制限の関係なのでしょうか？

お手数かけますがよろしくお願いします。