Сохранить электронную почту в папке при перемещении в подпапку в Outlook - PullRequest
Новая
       13

Сохранить электронную почту в папке при перемещении в подпапку в Outlook

0 голосов
/ 02 апреля 2019

Я пытаюсь сохранить электронную почту в папке (на жестком диске), ЕСЛИ она перемещена в определенную папку в Outlook 2016

Из-за ограничений в компании мне нужно изменить свой путьработы и архив моей информации.

Я должен получить электронное письмо в почтовом ящике.Я обработаю это вручную и решу, в какой папке мне нужно его хранить.Если электронное письмо хранится в папках A, B или C (например), то я бы хотел, чтобы электронное письмо было сохранено в "C:/.../email/folder A" (или B или C) на жестком диске.Но если электронное письмо хранится в папке D или E, мне не нужно его копировать.

Я считаю себя vba и управляю собой в Excel, но я никогда не пробовал Outlook.

У меня есть код для сохранения файла, но ключ в том, как определить, когда и в каком электронном письме вызывать функцию. 

Public Sub SaveIncomingMsgToFolder(Item As Outlook.MailItem)
  Dim sPath As String
  Dim dDate As Date
  Dim sSubject As String

  sSubject = Item.Subject
  ReplaceIllegalChars sSubject, "-"

  dDate = Item.ReceivedTime
  sSubject = Format(dDate, "yyyymmdd") & Format(dDate, "-hhnnss") & "-" & sSubject & ".msg"

  sPath = "C:\1-Tests\"
  Item.SaveAs sPath & sSubject, olMSG
End Sub

Так что мне нужна функция, инициируемая событиемэто срабатывает, когда письмо попадает в папки A, B, C, сохраняя входящее письмо из этой папки на жесткий диск.

Я надеюсь, что это можно сделать, и очень ценю вашу помощь, ребята.

...