论坛 › 邮件服务 › 将outlook中的邮件批量导出为txt

pqwsa 发表于 2015-9-14 09:19:05

将outlook中的邮件批量导出为txt

　　　　Public Sub SaveAsTXT()
　　
　　Dim msg As MailItem
　　Dim exp As Explorer
　　Dim path As String
　　Dim folder As String
　　Dim dt As String
　　
　　
　　
　　
　　
　　Set exp = Application.ActiveExplorer
　　
　　folder = "C:\Users\yzhen22\R9\"
　　
　　For Each msg In exp.Selection
　　
　　dt = Format(msg.ReceivedTime, "yyyy-mm-dd")
　　
　　msg.SaveAs folder & dt & ".txt", olTXT
　　Next
　　
　　
　　
　　
　　End Sub

查看完整版本: 将outlook中的邮件批量导出为txt