本文の内容から時間を取得してフラグの期限を設定するマクロ


本文の内容からフラグの期限を設定するマクロのコメントにて以下のご要望をいただきました。


このマクロの応用で、時間を本文から取得してフラグを設定するマクロを作りたいのですが、理解が足りず挫折してしまいました。
やりたいことは、
・期限の日付は、メール受信の当日でOK
・「予定終了時間:」の後に続く時間(例:19:00)を取得して、その時間を期限として
 アラームが立ち上がるようなフラグを立てたい。

どう書き換えればよいか、教えて頂けないでしょうか?


以下のようなマクロで実現できます。

' ここをトリプルクリックでマクロ全体を選択できます。
Public Sub AddFlagWithAlarmByTime()
     Dim objMsg As MailItem
     Dim i As Integer
     Dim strTime As String
     Dim strDate As String
     '
     If Not ActiveInspector Is Nothing Then
         Set objMsg = ActiveInspector.CurrentItem
     ElseIf ActiveExplorer.Selection.Count = 1 Then
         Set objMsg = ActiveExplorer.Selection(1)
     Else
         MsgBox "メッセージを開くか、選択してください。", vbCritical, "フラグ追加"
         Exit Sub
     End If
     '
     i = InStr(objMsg.Body, "予定終了時間:")
     If i > 0 Then
         i = i + 7
         strTime = ""
         While InStr(" 0123456789:", Mid(objMsg.Body, i, 1)) > 0
             strTime = strTime & Mid(objMsg.Body, i, 1)
             i = i + 1
         Wend
         strDate = FormatDateTime(Now, vbShortDate) & " " & strTime
         '
         objMsg.MarkAsTask olMarkToday
         objMsg.FlagRequest = "ご確認ください"
         objMsg.TaskStartDate = Now
         objMsg.TaskDueDate = strDate
         objMsg.ReminderSet = True
         objMsg.ReminderTime = strDate
         objMsg.Save
     End If
End Sub

マクロの登録方法やメニューへの追加について

広告

コメントを残す

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト / 変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト / 変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト / 変更 )

Google+ フォト

Google+ アカウントを使ってコメントしています。 ログアウト / 変更 )

%s と連携中