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

• #2408 emitter őstag vilag #2407

  Új Válasz 2014-03-07 13:51:19 #2408

  Ú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

  válasz vilag #2407 üzenetére

  remélem, itt találsz segítséget:
  [link]

• #2236 emitter őstag emitter #2235

  Új Válasz 2013-11-07 10:27:16 #2236

  Ú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

  válasz emitter #2235 üzenetére

  ezt kissé elhamarkodtam.. szóval a gond az volt hogy a Join-nak tömböt kell átadni:
  sIp = Join( Array( sIp, CStr(bIp(i)) ), "." )

• #2235 emitter őstag

  Új Válasz 2013-11-07 10:00:39 #2235

  Ú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!

  A képen látható kód a következő hibát dobja fordításkor:
  Error: Expecting ')' (10586)

  

  Ha ezt:
  sIp = Join(sIp, CStr(bIp(i)), ".")

  erre cserélem:
  tmpIp = CStr(bIp(i))
  sIp = Join(sIp, tmpIp, ".")

  akkor is marad a hiba... Mi lehet a gondja? Máskor teljesen jól működött nekem ez a Join...

• #1928 emitter őstag emitter #1927

  Új Válasz 2013-01-09 13:39:22 #1928

  Ú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

  válasz emitter #1927 üzenetére

  oké, megvan..
  Item.SaveSentMessageFolder objSentFolder
  helyett
  Item.Move objSentFolder

• #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