Cuestión : Copiar el email en carpeta de la red

Hola los expertos, expertos de la necesidad del

I ayudan. Desde entonces cambiara mi Oulook a partir de 2003 en 2007, parece como la escritura atada no más el trabajo. Estoy utilizando este código para copiar el artículo enviado en red si el título sujeto es “TK: ”. Los expertos de la esperanza pueden ayudarme a localizar averías this.
 class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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:
olkFolder notpretty de WithEvents del >Dim " del class= " de " codeSnippet787580 del id= del 
”, el "")
    RemoveIllegalCharacters = substituye (RemoveIllegalCharacters, “: ”, "")
    RemoveIllegalCharacters = substituye (RemoveIllegalCharacters, Chr (34), “'")
    RemoveIllegalCharacters = substituye (RemoveIllegalCharacters, “/”, el "")
    RemoveIllegalCharacters = substituye (RemoveIllegalCharacters, “\”, el "")
    RemoveIllegalCharacters = substituye (RemoveIllegalCharacters, “|”, "")
    ¿RemoveIllegalCharacters = substituye (RemoveIllegalCharacters, “? ”, "")
    RemoveIllegalCharacters = substituye (RemoveIllegalCharacters, “*”, el "")
Función del final
class= del

Respuesta : Copiar el email en carpeta de la red

> en la base de ambas funciones del acoplamiento está exactamente el mismo procedimiento que he fijado arriba.

No, porque usted llama CurrentDb las épocas múltiples donde usted debe llamarlo una vez solamente.
Aquí es cómo para atar las tablas en un archivo backend situado en la misma carpeta que el anticipado.
Usted puede modificarla fácilmente usar la trayectoria para la parte como parámetro.

/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:

  Dbs déviles como DAO.Database
  Tdf dévil como DAO.TableDef
  
  strSourceTableName dévil  como secuencia
  strCurrentPath dévil      como secuencia
  strAttachPath dévil       como secuencia
  strFrontendPath dévil     como secuencia
  strBackendPath dévil      como secuencia
  strConnect dévil          como secuencia
  
  En el error Err_GentilknytData indicado
  
  Fijar los dbs = CurrentDb
  
  strFrontendPath = dbs. Nombre
  strCurrentPath = mediados de (strFrontendPath, 1, InStrRev (strFrontendPath, “\ ") - 1)

  Para cada tdf en dbs.TableDefs
    strSourceTableName = tdf.SourceTableName
    Si Len (strSourceTableName) > 0 entonces
      el strBackendPath = partió (tdf. Conectar, el “=") (1)
      strAttachPath = mediados de (strBackendPath, 1, InStrRev (strBackendPath, “\ ") - 1)
      Si StrComp (strCurrentPath, strAttachPath, vbTextCompare) <> 0 entonces
        strConnect = “; DATABASE=” y strCurrentPath y” \ AktivitetData.mdb "
        tdf. Conectar = strConnect
        tdf.RefreshLink
      Terminar si
    Terminar si
  Después

  Fijar el tdf = nada
  Fijar los dbs = nada
Otras soluciones  
 
programming4us programming4us