テスト50
6417 ワード
Option Explicit
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'日報を送るときの時間別件名チェックサンプル
'(ThisOutlookSession)
'メモメモφ(・ω・*)
'---------------------------------------------
'朝
If InStr(Item.Subject, "【○○】") > 0 _
And TimeValue(Now) >= TimeValue("8:30") _
And TimeValue(Now) <= TimeValue("9:30") Then
If InStr(Item.Subject, "開始") > 0 Then
'問題なければ送信
Exit Sub
Else
MsgBox "件名が違っています。もう一度確認をお願いします。", vbCritical
Cancel = True
Exit Sub
End If
End If
'---------------------------------------------
'昼
If InStr(Item.Subject, "【○○】") > 0 _
And TimeValue(Now) >= TimeValue("8:30") _
And TimeValue(Now) <= TimeValue("9:30") Then
If InStr(Item.Subject, "開始") > 0 Then
'問題なければ送信
Exit Sub
Else
MsgBox "件名が違っています。もう一度確認をお願いします。", vbCritical
Cancel = True
Exit Sub
End If
End If
'---------------------------------------------
'退社
If InStr(Item.Subject, "【○○】") > 0 _
And TimeValue(Now) >= TimeValue("8:30") _
And TimeValue(Now) <= TimeValue("9:30") Then
If InStr(Item.Subject, "開始") > 0 Then
'問題なければ送信
Exit Sub
Else
MsgBox "件名が違っています。もう一度確認をお願いします。", vbCritical
Cancel = True
Exit Sub
End If
End If
End Sub
Author And Source
この問題について(テスト50), 我々は、より多くの情報をここで見つけました https://qiita.com/tqr65rs/items/6ad5bfefbec60e1f4242著者帰属:元の著者の情報は、元のURLに含まれています。著作権は原作者に属する。
Content is automatically searched and collected through network algorithms . If there is a violation . Please contact us . We will adjust (correct author information ,or delete content ) as soon as possible .