Activar una nueva nota de Outlook con VBA
Estimado Dante, te contacto nuevamente para pedirte ayuda con este código, tengo algo comenzado y quisiera tu apoyo para concluirlo, este es el código...
Dim app As Outlook.Application
Dim nts As Outlook.Namespace
Dim collectionItems As Outlook.Items
Dim objNote As Outlook.NoteItem
Set app = New Outlook.Application
Set nts = app.GetNamespace("MAPI")
Set noteFolder = nts.GetDefaultFolder(olFolderNotes)
Set oApp = GetOutlookApp
If oApp Is Nothing Then
MsgBox "No se puede iniciar Outlook.", vbInformation, strTitulo
Exit Sub
End If
objNote.DisplayEl código no se ejecuta al llegar a la linea "objNote.Display" porque pone el error 91 "Variable de objeto o bloque With no establecido", lo que necesito que haga es que desde excel se active una nueva nota para poder registrarle un texto.
Espero puedas ayudarme con esto.
Saludos!!
2 Respuestas
Respuesta de José Luis Leyva Arias
1
Dante, ya encontré la forma de hacerlo.
Const olFolderNotes = 12
Set objOutlook = CreateObject("Outlook.Application")
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNameSpace.GetDefaultFolder(olFolderNotes)
Set oNotatka = objOutlook.CreateItem(olNoteItem)
With oNotatka
.Body = ""
.Color = olPink
.Categories = "Post-it"
.Save
.Display
End With
Set oNotatka = Nothing
Respuesta de Dante Amor
1
Te anexo el inventario de Item de OutLook
Sub NuevoItem()
'Por.Dante AMor
Set nItem = CreateObject("Outlook.Application").CreateItem(0)
NItem. Display
' (0) 'email (olMailItem)
' (1) 'appointment (olAppointmentItem)
' (2) 'contact/recipient (olContactItem)
' (3) 'task (olTaskItem)
' (4) 'journal (olJournalItem)
' (5) 'note (olNoteItem)
' (6) 'sticker (olPostItem)
' (7) 'distributionlist (olDistributionListItem)
End SubReferencia: