0

Outlook でパスダウンを行うためのテンプレートを作成しようとしています。件名に、07:00 から 19:00 までの場合は「日勤」、それ以外の場合は「夜勤」と記載してください。これはどのように行うことができますか。

私がこれまでに持っているもの：

Sub MakeItem()
    Dim objMail As MailItem
    Set newItem = Application.CreateItemFromTemplate("C:\Passdown1.oft")
    newItem.Subject = "D1D NXE Day Shift Passdown " & Format(Now, "dd-mmm-yy")
    newItem.Display

    Set newItem = Nothing
End Sub
4

3 に答える 3

1

または、これを 1 行で行うこともできます。

newItem.Subject = String.Format("D1D NXE {0} Shift Passdown {1}", If(Date.Now.Hour >= 7 AndAlso Date.Now.Hour < 19, "Day", "Night"), Format(Now, "dd-MMM-yy"))
于 2013-11-11T03:04:54.540 に答える
1

私のコメントとして、あなたがすることはここにあります...

Sub MakeItem()
    Dim objMail As MailItem
    Dim sShift As String ' Add this
    Set newItem = Application.CreateItemFromTemplate("C:\Passdown1.oft")
    ' Check hours
    Select Case Hour(Now)
        Case 7 To 18 ' Day shift until 18:59:59
            sShift = "Day"
        Case Else
            sShift = "Night"
    End Select
    ' Setup Subject replacing the <SHIFT>
    newItem.Subject = Replace("D1D NXE <SHIFT> Shift Passdown " & Format(Now, "dd-mmm-yy"), "<SHIFT>", sShift)
    newItem.Display

    Set newItem = Nothing
End Sub
于 2013-11-11T02:54:39.967 に答える
0

condition に任意の条件を指定し、条件が true の場合に実行するステートメントを指定します

If condition [ Then ]
    [ statements ]
[ ElseIf elseifcondition [ Then ]
    [ elseifstatements ] ]
[ Else
    [ elsestatements ] ]
End If

' Single-line syntax:
If condition Then [ statements ] [ Else [ elsestatements ] ]

調子

必須。表現。True または False に評価されるか、ブール値に暗黙的に変換可能なデータ型に評価される必要があります。

式が Nothing に評価される Nullable ブール変数である場合、条件は式が True ではないかのように扱われ、Else ブロックが実行されます。

それで

単一行構文では必須。複数行の構文ではオプションです。

ステートメント

オプション。条件が True と評価された場合に実行される、If...Then に続く 1 つ以上のステートメント。

elseif条件

ElseIf が存在する場合は必須です。表現。True または False に評価されるか、ブール値に暗黙的に変換可能なデータ型に評価される必要があります。

elseifステートメント

オプション。ElseIf...Then に続く 1 つ以上のステートメントは、elseifcondition が True と評価された場合に実行されます。

elseステートメント

オプション。前の条件または elseifcondition 式が True と評価されない場合に実行される 1 つ以上のステートメント。

終了条件

If...Then...Else ブロックを終了します。

于 2013-11-11T02:39:21.543 に答える