Este es un ejemplo de como mover los mensajes seleccionados a un personal folder (pst) en Outlook 2016 usando VBA. Sub MoveInbox() MoveItems ("Inbox") End Sub Sub MoveConversations() MoveItems ("Conversations") End Sub Sub MoveSent() MoveItems ("Sent") End Sub Private Sub MoveItems(folder As String) Dim olApp As New Outlook.Application Dim olExp As Outlook.Explorer Dim olSel As Outlook.Selection Dim myInbox As Outlook.folder Dim myDestFolder As Outlook.folder Set myDestFolder = Session.Folders("2018").Folders(folder) Set olExp = olApp.ActiveExplorer Set olSel = olExp.Selection For intItem = 1 To olSel.Count olSel.Item(intItem).Move myDestFolder Next intItem End Sub
Para habilitar la posibilidad de búsqueda de errores y/o fallos (debug) en nuestro proyecto de AutoCAD en Visual Studio 2015 es necesario correr el siguiente comando en el command prompt de AutoCAD: NEXTFIBERWORLD [ENTER] en donde el valor 0 lo habilita y el valor 1 lo deshabilita.