如何确保Outlook VBA中InputBox必须输入数据？宏逻辑优化需求

我明白你的需求啦——现在的代码碰到空输入就直接终止流程，但你希望用户能重新输入而不是直接退出。之前用vbRetryCancel出问题是因为没处理好循环逻辑，咱们用Do...Loop来搞定这个事儿就很合适。

核心思路是：给每个InputBox套一个循环，只要用户输入为空（且不是点击取消），就一直弹出InputBox让用户重试；如果用户点击取消，就终止整个流程。

下面是修改后的完整代码，我还补全了变量声明（好习惯哦）：

Sub Request_Tracking()
    Dim objMsg As MailItem
    Dim tasksource As String
    Dim strName As String
    Dim strCoreEvent As String
    Dim strUnitNum As String
    Dim strTime As String
    
    Set objMsg = Application.CreateItem(olMailItem)
    
    ' 请求用户选择任务接收方式 - 循环直到输入有效内容或取消
    Do
        tasksource = InputBox("请选择任务接收方式:" & _
            vbCrLf & vbTab & "1 - Phone call" & _
            vbCrLf & vbTab & "2 - Email" & _
            vbCrLf & vbTab & "3 - Instant Message" & _
            vbCrLf & vbTab & "4 - Desk walk-up" & _
            vbCrLf & vbTab & "5 - Miscellaneous", "选项选择器")
        
        ' 用户点击取消，直接终止流程
        If tasksource = vbNullString Then
            MsgBox "操作已取消。", vbOKOnly, "提示"
            Exit Sub
        End If
        
        ' 空输入，提示后继续循环重试
        If tasksource = "" Then
            MsgBox "未输入任何内容，请重新输入您的选择。", vbOKOnly, "错误！"
        End If
    Loop While tasksource = "" ' 只要输入为空就重复循环
    
    ' 转换输入为对应文本
    Select Case tasksource
        Case "1"
            tasksource = "Phone call"
        Case "2"
            tasksource = "Email"
        Case "3"
            tasksource = "Instant Message"
        Case "4"
            tasksource = "Desk walk-up"
        Case "5"
            tasksource = "Miscellaneous"
        Case Else
            tasksource = tasksource ' 保留用户自定义输入（如果有的话）
    End Select
    
    ' 请求人姓名 - 循环重试逻辑
    Do
        strName = InputBox("请求人姓名:")
        If strName = vbNullString Then
            MsgBox "操作已取消。", vbOKOnly, "提示"
            Exit Sub
        End If
        If strName = "" Then
            MsgBox "未输入任何内容，请重新尝试。", vbOKOnly, "错误"
        End If
    Loop While strName = ""
    
    ' 任务描述 - 循环重试逻辑
    Do
        strCoreEvent = InputBox("任务描述:")
        If strCoreEvent = vbNullString Then
            MsgBox "操作已取消。", vbOKOnly, "提示"
            Exit Sub
        End If
        If strCoreEvent = "" Then
            MsgBox "未输入任何内容，请重新尝试。", vbOKOnly, "错误"
        End If
    Loop While strCoreEvent = ""
    
    ' 单位数量 - 循环重试逻辑
    Do
        strUnitNum = InputBox("单位数量:")
        If strUnitNum = vbNullString Then
            MsgBox "操作已取消。", vbOKOnly, "提示"
            Exit Sub
        End If
        If strUnitNum = "" Then
            MsgBox "未输入任何内容，请重新尝试。", vbOKOnly, "错误"
        End If
    Loop While strUnitNum = ""
    
    ' 处理时长 - 循环重试逻辑
    Do
        strTime = InputBox("处理时长:")
        If strTime = vbNullString Then
            MsgBox "操作已取消。", vbOKOnly, "提示"
            Exit Sub
        End If
        If strTime = "" Then
            MsgBox "未输入任何内容，请重新尝试。", vbOKOnly, "错误"
        End If
    Loop While strTime = ""
    
    ' 配置发送邮件
    With objMsg
        .To = "tracking@test.com"
        .Subject = "Request Received"
        .HTMLBody = "<body style=font-size:11pt;font-family:Arial><b>For request tracking; please assign to me.</b>" & "<p>" & tasksource & " request from " & strName & ": " & strCoreEvent & "<br />Number of units: " & strUnitNum & "<br />Processing time: " & strTime & "</p></body>"
        .Recipients.ResolveAll
        .Send
    End With
End Sub

关键说明： #

• 循环逻辑：每个InputBox都用Do...Loop While包裹，当用户点击确定但没输入内容时，会弹出错误提示，然后回到InputBox让用户重新输入；
• 取消处理：如果用户点击InputBox的“取消”按钮，InputBox会返回vbNullString，这时候我们直接弹出提示并终止整个Sub，避免无限循环；
• 变量声明：补全了所有变量的Dim声明，避免VBA自动使用变体类型，让代码更规范。

这样修改后，既满足了空输入时提示并重试的需求，又能让用户通过点击取消正常终止流程，不会出现无限循环的问题啦～

内容的提问来源于stack exchange，提问作者jnjustice