Автоматическая замена строки темы во входящих письмах Outlook - PullRequest
Новая
       50

Автоматическая замена строки темы во входящих письмах Outlook

0 голосов
/ 13 июля 2011

Мне нужно заменить содержимое строки темы всей входящей электронной почты (независимо от того, что это может быть) на «Поддержка EBIT», и эта же почта затем отправляется в новую и правильную папку «Входящие» - идеи приветствуются !!

1 Ответ

0 голосов
/ 08 сентября 2011

Я полагаю, вы ищете код VBA. У вас вообще есть какой-нибудь код?

У меня есть код акции, который можно адаптировать для ваших целей:

http://www.codeforexcelandoutlook.com/outlook-vba/stock-event-code/

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Set olApp = Outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
' (1) default Inbox
Set Items = objNS.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub Items_ItemAdd(ByVal item As Object)

On Error Goto ErrorHandler

  Dim Msg As Outlook.MailItem

  ' (2) only act if it's a MailItem
  If TypeName(item) = "MailItem" Then
    Set Msg = item

    ' (3) do something here

  End If

ProgramExit:
  Exit Sub
ErrorHandler:
  MsgBox Err.Number & " - " & Err.Description
  Resume ProgramExit
End Sub
...