Avaleht
uus teema   vasta Tarkvara »  Programmeerimine »  outlook vba märgi kõik teemad loetuks
märgi mitteloetuks
vaata eelmist teemat :: vaata järgmist teemat
Hinnavaatlus :: Foorum :: Uudised :: Ärifoorumid :: HV F1 ennustusvõistlus :: Pangalink :: Telekavad :: HV toote otsing
autor
sõnum Saada viide sõbrale.  :: Teata moderaatorile teata moderaatorile
otsing:  
pesanet
HV kasutaja
pesanet

liitunud: 07.03.2007
sõnum 23.04.2010 18:07:34 outlook vba vasta tsitaadiga
Palun ABI


2007 nagu töötab,
2000 mitte....


vb:
  1. Option Explicit
  2. Public WithEvents SentItemsAdd As Items
  3. Private Sub Application_MAPILogonComplete()
  4. Set SentItemsAdd = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderSentMail).Items
  5. End Sub
  6.  
  7. Private Sub SentItemsAdd_ItemAdd(ByVal Item As Object)
  8. If InStr(Item.Subject, "leiabselle") <> 0 And InStr(Item.Body, "jaleiabselle") <> 0 Then
  9. Dim oSubFolder As Outlook.MAPIFolder
  10. Set oSubFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderSentMail).Folders("SIISTOSTABSIIAKAUSTA")
  11. Item.Move oSubFolder
  12. Set oSubFolder = Nothing
  13. End If
  14. End Sub
Kommentaarid: 11 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 11
tagasi üles
vaata kasutaja infot saada privaatsõnum
näita postitusi alates eelmisest:   
uus teema   vasta Tarkvara »  Programmeerimine »  outlook vba
[vaata eelmist teemat] [vaata järgmist teemat]
 lisa lemmikuks
näita foorumit:  
 ignoreeri teemat 
sa ei või postitada uusi teemasid siia foorumisse
sa ei või vastata selle foorumi teemadele
sa ei või muuta oma postitusi selles foorumis
sa ei või kustutada oma postitusi selles foorumis
sa ei või vastata küsitlustele selles foorumis
sa ei saa lisada manuseid selles foorumis
sa võid manuseid alla laadida selles foorumis



Hinnavaatlus ei vastuta foorumis tehtud postituste eest.