Fråga : Kopiera e-posten in i knyter kontakt mappen

Hi experter, behovsexperter för

I hjälper. , sedan någonsin jag ändrade min Oulook från 2003 in i 2007, verkar fäst något liknandeskrivar ej längre arbetet. Förmiddag I using denna kodifierar för att kopiera det överförda objektet in i knyter kontakt, om betvingatiteln är ”TK: ”. Hoppexperter kan hjälpa mig att felsöka this.
 > för 
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:
" codeBody " " WithEvents för >Dim för class= " för ”, "") RemoveIllegalCharacters = byter ut (RemoveIllegalCharacters, ”: ” "") RemoveIllegalCharacters = byter ut (RemoveIllegalCharacters, Chr (34), ”'”) RemoveIllegalCharacters = byter ut (RemoveIllegalCharacters, ”/”, "") RemoveIllegalCharacters = byter ut (RemoveIllegalCharacters, ”\”, "") RemoveIllegalCharacters = byter ut (RemoveIllegalCharacters, ”,|”, "") RemoveIllegalCharacters = byter ut (RemoveIllegalCharacters, ”? ”, "") RemoveIllegalCharacters = byter ut (RemoveIllegalCharacters, ”*”, "") Avsluta fungerar
" klar "

Svar : Kopiera e-posten in i knyter kontakt mappen

> på kärna ur av båda anknyta fungerar är exakt det samma tillvägagångssättet som jag har postat över.

Inte, därför att du den appellCurrentDb multipeln tajmar var dig bör appellen det en gång endast.
Är här hur för att fästa bordlägger i en backend sparar lokaliserat i den samma mappen som frontend.
Du kan lätt ändra den using banan för backenden som en 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:

  Dunkla dbs som DAO.Database
  Dunkel tdf som DAO.TableDef
  
  Dunkel strSourceTableName  som stränger
  Dunkel strCurrentPath      som stränger
  Dunkel strAttachPath       som stränger
  Dunkel strFrontendPath     som stränger
  Dunkel strBackendPath      som stränger
  Dunkel strConnect          som stränger
  
  På felet GoTo Err_GentilknytData
  
  Fastställda dbs = CurrentDb
  
  strFrontendPath = dbs. Känt
  strCurrentPath = mitt- (strFrontendPath, 1, InStrRev (strFrontendPath, ”\”) - 1)

  För varje tdf i dbs.TableDefs
    strSourceTableName = tdf.SourceTableName
    Om Len (strSourceTableName) > 0 därefter
      strBackendPath = splittring (tdf. Förbind ”=”) (1)
      strAttachPath = mitt- (strBackendPath, 1, InStrRev (strBackendPath, ”\”) - 1)
      Om StrComp (strCurrentPath, strAttachPath, vbTextCompare) <> 0 därefter
        strConnect = ”; DATABASE=” & strCurrentPath &” \ AktivitetData.mdb ",
        tdf. Förbind = strConnect
        tdf.RefreshLink
      Avsluta om
    Avsluta om
  Därefter

  Fastställd tdf = ingenting
  Fastställda dbs = ingenting
Andra lösningar  
 
programming4us programming4us