Outlook外部收件邮件被标记为草稿未发送，求专业修复方案（类似VBA标记已发送）

Alright, let's fix this frustrating issue. Since you've already squared away the root cause (nice work!), we can use Outlook VBA to batch flip those draft-marked external emails back to a sent state—so you can reply normally without the messy copy-paste workaround. Here's a step-by-step solution tailored to your scenario:

Step 1: Open the Outlook VBA Editor #

• Press Alt + F11 to launch the Visual Basic for Applications editor directly in Outlook.
• In the left-hand Project Explorer, right-click your Outlook profile > Insert > Module. This creates a blank space for our code.

Step 2: Paste the Custom VBA Code #

Copy this code into the new module window—comments are included to explain what each part does:

Sub RestoreSentStatusForExternalDrafts()
    Dim objOutlook As Outlook.Application
    Dim objNamespace As Outlook.Namespace
    Dim objFolder As Outlook.MAPIFolder
    Dim objMail As Outlook.MailItem
    Dim internalDomain As String
    Dim restoredCount As Integer
    
    ' Initialize core Outlook objects
    Set objOutlook = New Outlook.Application
    Set objNamespace = objOutlook.GetNamespace("MAPI")
    
    ' Let you pick the folder with the problematic drafts (usually Drafts)
    Set objFolder = objNamespace.PickFolder
    If objFolder Is Nothing Then
        MsgBox "No folder selected. Exiting.", vbExclamation
        Exit Sub
    End If
    
    restoredCount = 0
    ' Replace this with your company's internal domain (e.g., "@yourcompany.com")
    internalDomain = "@yourcompany.com"
    
    ' Loop through every item in the selected folder
    For Each objMail In objFolder.Items
        ' Target only draft mail items with external recipients
        If objMail.Class = olMail And objMail.Sent = False Then
            ' Check if To/CC fields don't include your internal domain
            If InStr(LCase(objMail.To), LCase(internalDomain)) = 0 And _
               InStr(LCase(objMail.CC), LCase(internalDomain)) = 0 Then
                
                ' Mark the email as sent
                objMail.Sent = True
                ' Set message class to enable normal reply functionality
                objMail.MessageClass = "IPM.Note"
                ' Save changes to the email
                objMail.Save
                
                ' Optional: Move restored emails to Sent Items (comment out if not needed)
                objMail.Move objNamespace.GetDefaultFolder(olFolderSentMail)
                
                restoredCount = restoredCount + 1
            End If
        End If
    Next objMail
    
    MsgBox "Done! Restored " & restoredCount & " external emails to sent status.", vbInformation
    
    ' Clean up objects to avoid memory leaks
    Set objMail = Nothing
    Set objFolder = Nothing
    Set objNamespace = Nothing
    Set objOutlook = Nothing
End Sub

Step 3: Customize for Your Organization #

• Replace "@yourcompany.com" with your actual internal domain—this ensures we only target emails sent to external recipients.
• If you don't want to move restored emails to the Sent Items folder, add a single quote ' at the start of the objMail.Move line to comment it out.

Step 4: Run the Macro #

• Press F5 in the VBA editor, or switch back to Outlook, open the Developer tab > Macros > Select RestoreSentStatusForExternalDrafts > Run.
• When prompted, pick the folder where your problematic draft emails are stored (most likely the Drafts folder).

Critical Pre-Run Checks #

• Backup First: Save a copy of your Outlook data file (.pst/.ost) before running the macro—better safe than sorry.
• Test with a Single Email: To verify it works, add a condition like objMail.Subject = "Test External Email" inside the If objMail.Class = olMail... block to test with a specific email first.
• Exchange Permissions: If you're on an Exchange server, confirm you have permissions to modify these mail items.

This solution will mark those drafts as sent, restore the ability to reply directly, and skip the unprofessional copy-paste workaround entirely.

内容的提问来源于stack exchange，提问作者Dude named Ben