Outlook中VBA的if语句

克莱顿33

我正在尝试制作一个模板，用于在Outlook中进行密码传递。我希望它在主题行中说“ Day Shift”，如果它在0700到1900的小时之间，否则说“ Night Shift”。如何才能做到这一点。

到目前为止，我有：

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

帕特里克

正如我的评论，这是您的工作...

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

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。