Vraag : Exemplaar e-mail in netwerkomslag

Hallo Deskundigen,

I de hulp van behoefteDeskundigen. Sinds ik mijn Oulook vanaf 2003 in 2007 veranderde, schijnt als het manuscript die in bijlage niet meer werken. Ik gebruik deze code om het verzonden punt te kopiëren in netwerk als de onderworpen titel „TK is: “. De Deskundigen van de hoop kunnen me helpen om this.
 problemen op te lossen
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

Dim WithEvents olkFolder als Outlook.Items

Privé SubApplication_Quit ()
    Reeks olkFolder = niets
Sub van het eind

Privé SubApplication_Startup ()
    Reeks olkFolder = Session.GetDefaultFolder (olFolderSentMail). Punten
Sub van het eind

Privé SubolkFolder_ItemAdd (Punt ByVal als Voorwerp)
    „Geef de voorwaarde op de volgende lijn uit“
      Als InStr (1, Item.Subject, „TK: “) Toen
        „Geef de omslagweg op de volgende lijn uit“
        Item.SaveAs „van \ \ bc04 \ de HoofdOmslag van \- Gegevens \ \“ & RemoveIllegalCharacters (Item.Subject) & „.msg“, olMSG
    Eind als
Sub van het eind

Functie RemoveIllegalCharacters (strValue als Koord) als Koord
    „Doel: Verwijder karakters die niet in filename van een koord kunnen zijn.“
    „Geschreven: 4/24/2009“
    „Auteur:  BlueDevilFan“
    „Vooruitzichten: Alle versies“
    RemoveIllegalCharacters = strValue
    RemoveIllegalCharacters = vervangt (RemoveIllegalCharacters, „<“, "")
    RemoveIllegalCharacters = vervangt (RemoveIllegalCharacters, „>“, "")
    RemoveIllegalCharacters = vervangt (RemoveIllegalCharacters, „: “, "")
    RemoveIllegalCharacters = vervangt (RemoveIllegalCharacters, Chr (34), „'“)
    RemoveIllegalCharacters = vervangt (RemoveIllegalCharacters, „/“, "")
    RemoveIllegalCharacters = vervangt (RemoveIllegalCharacters, „\“, "")
    RemoveIllegalCharacters = vervangt (RemoveIllegalCharacters, „|“, "")
    RemoveIllegalCharacters = vervangt (RemoveIllegalCharacters, „? “, "")
    RemoveIllegalCharacters = vervangt (RemoveIllegalCharacters, „*“, "")
De Functie van het eind

Antwoord : Exemplaar e-mail in netwerkomslag

> Bij de kern van beide verbinding is de functies precies de zelfde procedure die ik. hierboven heb gepost.

Nr, omdat u CurrentDb veelvoudige tijden roept waar u het eens slechts zou moeten roepen.
Hier is die hoe voor het vastmaken van lijsten in een achterste deeldossier in de zelfde omslag wordt gevestigd zoals frontend.
U kunt het gemakkelijk wijzigen gebruikend de weg voor het achterste deel als parameter.

/gustav
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

  Schemerige dbs als DAO.Database
  Schemerige tdf als DAO.TableDef
  
  Schemerige strSourceTableName  als Koord
  Schemerige strCurrentPath      als Koord
  Schemerige strAttachPath       als Koord
  Schemerige strFrontendPath     als Koord
  Schemerige strBackendPath      als Koord
  Schemerige strConnect          als Koord
  
  Op Fout GoTo Err_GentilknytData
  
  Reeks dbs = CurrentDb
  
  strFrontendPath = dbs. Naam
  strCurrentPath = Medio (strFrontendPath, 1, InStrRev (strFrontendPath, „\“) - 1)

  Voor Elke tdf in dbs.TableDefs
    strSourceTableName = tdf.SourceTableName
    Als Len (strSourceTableName) > 0 toen
      strBackendPath = verdeel (tdf. Verbind, „=“) (1)
      strAttachPath = Medio (strBackendPath, 1, InStrRev (strBackendPath, „\“) - 1)
      Als StrComp (strCurrentPath, strAttachPath, vbTextCompare) <> 0 toen
        strConnect = „; DATABASE=“ & strCurrentPath &“ \ AktivitetData.mdb "
        tdf. Verbind = strConnect
        tdf.RefreshLink
      Beëindig als
    Beëindig als
  Daarna

  Reeks tdf = niets
  Reeks dbs = niets
Andere oplossingen  
 
programming4us programming4us