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!!
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
1 respuesta más de otro experto
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: