Outlook VBA для прикрепления заметки (ObjNote) - PullRequest
Новая
       36

Outlook VBA для прикрепления заметки (ObjNote)

0 голосов
/ 18 октября 2018

Попытка настроить макрос для присоединения существующего файла заметок Outlook к существующему сообщению Outlook в папке «Входящие».У меня это работает на 99%, но, конечно, 1% - это то, что одурманивает меня.Самый простой метод, который я нашел, - это использовать SendKeys (простой, потому что я не кодер по профессии), но последнее «Enter» не будет выполнено.Не выдается никакой ошибки, она просто действует, как будто она закончена.Пожалуйста, помогите?

что я пытаюсь заставить код делать:

  1. открыть сообщение
  2. редактировать сообщение
  3. Вставить OutlookItem> Notes> "_MyNotes"
  4. сохранить сообщение

В приведенном ниже примере первое примечание, которое появляется в списке (под названием "_MyNotes"), это то, что мне нужно,так что мне нужно только а) нажать «ввод» или б) нажать «Tab», чтобы сместить фокус, затем нажать «ввод», чтобы вставить его в сообщение.Оба способа работают, когда я делаю это вручную;ни работает, когда я использую код.TIA 

Sub plusNote()

Dim myItem As Outlook.MailItem
Dim objInsp As Outlook.Inspector
Dim objActionsMenu As Office.CommandBarControl
Dim olNewMailItem As Outlook.MailItem

' get valid ref to current item
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
    Case "Explorer"
        Set myItem = ActiveExplorer.Selection.Item(1)
        myItem.Display
    Case "Inspector"
        Set myItem = ActiveInspector.CurrentItem
    Case Else
End Select
On Error GoTo 0

If myItem Is Nothing Then
    MsgBox "Could not use current item. Please select or open a single email.", _
   vbInformation
    GoTo exitproc
End If

SendKeys "{ENTER}", True
SendKeys "%HAE", True
' This next line is what causes the problem - I can see that Notes is highlighted
' so it works through %NAMN, but then it doesn't execute the ENTER.
SendKeys "%NAMN{ENTER}"
SendKeys "^S"

exitproc:
Set myItem = Nothing
Set objInsp = Nothing
Set objActionsMenu = Nothing
Set olNewMailItem = Nothing

End Sub
...