2. Fórumok
  3. Szoftverfejlesztés
  4. Visual Basic

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

  • #1927 emitter őstag
    Új Válasz #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