Új hozzászólás Aktív témák

• #1927 emitter őstag

  Új Válasz 2013-01-09 13:26:25 #1927

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  emitter

  őstag

  Sziasztok,

  Outlook 2010-ben szeretnék adott szóval kezdődő tárgyú beérkező emaileket más mappába áthelyezni. Erre (egyéni levélszűrő szabályra) 3 féle lehetőség van, ahogy olvastam, én a másodikat próbáltam. A gondom az, hogy bár lefut a kód, ki is írja a felugró ablakban, hogy "Moved", de nem helyezi át a levelet az Inboxból a "Tickets" nevű mappába.
  Mi lehet a gond?

  A kódom az alábbi (a Microsoft Visual Basic for Applications-ban a ThisOutlookSession-ben van):

  Option Explicit
  
  Private WithEvents olInboxItems As Items
  
  Private Sub Application_Startup()
  Dim objNS As NameSpace
  Set objNS = Application.Session
  ' instantiate objects declared WithEvents
  Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items
  Set objNS = Nothing
  End Sub
  
  Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
  On Error Resume Next
  
  Dim objInboxFolder As Outlook.MAPIFolder
  Dim objSentFolder As Outlook.MAPIFolder
  
  Set objInboxFolder = Session.GetDefaultFolder(olFolderInbox)
  Set objSentFolder = objInboxFolder.Parent.Folders("Tickets")
  
  Dim strSubject As String
  Dim strLeft8 As String
  Dim strLeft12 As String
  
  strSubject = Item.Subject
  strLeft8 = Left(strSubject, 8)
  strLeft12 = Left(strSubject, 12)
  
  If strLeft8 = "[Ticket#" Or strLeft12 = "RE: [Ticket#" Or strLeft12 = "Re: [Ticket#" Then
  Item.SaveSentMessageFolder objSentFolder
  Item.Save
  MsgBox ("Moved")
  End If
  
  Set objInboxFolder = Nothing
  Set objSentFolder = Nothing
  
  Set Item = Nothing
  End Sub

Új hozzászólás Aktív témák