outlook 只打印选中邮件的第一页老出错

184156956

Sub PrintSelectedMessages()
    Dim olApp As Outlook.Application
    Dim olExp As Outlook.Explorer
    Dim olSel As Outlook.Selection
    Dim olMail As Outlook.MailItem
    Dim page As Pages
    Dim i As Integer
    Dim printOpts As Object
   
    Set olApp = Outlook.Application
    Set olExp = olApp.ActiveExplorer
    Set olSel = olExp.Selection
   
    On Error Resume Next
   
    For i = 1 To olSel.Count
        If olSel.Item(i).Class = olMail Then
            Set olMail = olSel.Item(i)
            Set printOpts = olMail.PrintOut
            printOpts.SingleSided = True
            printOpts.pageNumber = 1
            
             olMail.PrintOut
        End If
    Next i
End Sub


olMail.PrintOut 参数老出错，用from:=1 ,to:=1 也不行为什么

f8b1987

Sub PrintSelectedMessages()    Dim olApp As Outlook.Application    Dim olExp As Outlook.Explorer    Dim olSel As Outlook.Selection    Dim olMail As Outlook.MailItem    Dim i As Integer        Set olApp = Outlook.Application    Set olExp = olApp.ActiveExplorer    Set olSel = olExp.Selection        On Error Resume Next        For i = 1 To olSel.Count        If olSel.Item(i).Class = olMail Then            Set olMail = olSel.Item(i)            With olMail               .PrintOut PrintRange:=olPrintRangeFromTo, FromPage:=1, ToPage:=1, _                          PrintItem:=olPrintItemMessage, Copies:=1, _                          PageType:=olPageTypeAllPages, PrintStyle:=olPrintStyleSinglePage, _                          Collate:=True, Background:=False, PrintHidden:=False            End With        End If    Next iEnd Sub



来自AI，请测试