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

• emitter őstag

  #2408

  #2407 vilag

  2014-03-07 13:51:19

  Új Válasz

  Ú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

  

  emitter

  őstag

  #2407 vilag

  #2407 vilag

  Office 2003-hoz tarozó VBA-ban használtam az "Application.FileSearch" funkciót, azonban az Office 2007-hez tartozó VBA-ban ilyen már nincs.

  Tudja esetleg valaki, hogy mi van helyette, mert eddig én nem találtam meg.

  Előre is köszönöm!

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

• emitter őstag

  #2236

  #2235 emitter

  2013-11-07 10:27:16

  Új Válasz

  Ú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

  

  emitter

  őstag

  #2235 emitter

  #2235 emitter

  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...

  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)) ), "." )

• emitter őstag

  #2235 2013-11-07 10:00:39

  Új Válasz

  Ú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

  

  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...

• emitter őstag

  #1928

  #1927 emitter

  2013-01-09 13:39:22

  Új Válasz

  Ú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

  

  emitter

  őstag

  #1927 emitter

  #1927 emitter

  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

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

• emitter őstag

  #1927 2013-01-09 13:26:25

  Új Válasz

  Ú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

  

  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