インバウンドOutlook電子メールの件名の自動置換

Question

すべての着信電子メール（件名は問わない）の件名の内容を「EBITサポート」に置き換え、同じメールを新しく正しいインボックスに転送する必要があります。アイデアvey歓迎!!

Answer 1

私はあなたが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 

：

は、私はあなたの目的に適合させることができるいくつかの株式のイベントコードを持っています