Frage : EMail in Netzfaltblatt kopieren

Hallo helfen Experten,

I Notwendigkeit Experten. Seitdem ich mein Oulook von 2003 in 2007 änderte, wie der angebrachte Index nicht mehr scheint arbeiten. Ich verwende diesen Code, um das gesendete Einzelteil in Netz zu kopieren, wenn der vorbehaltliche Titel „TK ist: “. Hoffnung-Experten können mir helfen, this.
 zu überprüfen 
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

Privates VorApplication_Quit ()
    olkFolder einstellen = nichts
Unterseeboot beenden

Privates VorApplication_Startup ()
    olkFolder = Session.GetDefaultFolder (olFolderSentMail) einstellen. Einzelteile
Enden-Unterseeboot

Privates VorolkFolder_ItemAdd (ByVal Einzelteil als Gegenstand)
    „Die Bedingung auf der folgenden Linie redigieren“
      Wenn InStr (1, Item.Subject, „TK: ") dann
        „Den Faltblattweg auf der folgenden Linie redigieren“
        Item.SaveAs „\ \ bc04 \ Hauptleitung \ Daten \ Faltblatt \“ u. RemoveIllegalCharacters (Item.Subject) u. „.msg“, olMSG
    Beenden wenn
Unterseeboot beenden

Funktion RemoveIllegalCharacters (strValue als Schnur) als Schnur
    „Zweck: Buchstaben entfernen, die nicht in einem Dateinamen von einer Schnur sein können.“
    „Geschrieben: 4/24/2009“
    „Autor:  BlueDevilFan“
    „Aussicht: Alle Versionen“
    RemoveIllegalCharacters = strValue
    RemoveIllegalCharacters = ersetzen (RemoveIllegalCharacters, „<“, "")
    RemoveIllegalCharacters = ersetzen (RemoveIllegalCharacters, „>“, "")
    RemoveIllegalCharacters = ersetzen (RemoveIllegalCharacters, „: “, "")
    RemoveIllegalCharacters = ersetzen (RemoveIllegalCharacters, Chr (34), „'")
    RemoveIllegalCharacters = ersetzen (RemoveIllegalCharacters, „/“, "")
    RemoveIllegalCharacters = ersetzen (RemoveIllegalCharacters, „\“, "")
    RemoveIllegalCharacters = ersetzen (RemoveIllegalCharacters, „|“, "")
    RemoveIllegalCharacters = ersetzen (RemoveIllegalCharacters, „? “, "")
    RemoveIllegalCharacters = ersetzen (RemoveIllegalCharacters, „*“, "")
Enden-Funktion

Antwort : EMail in Netzfaltblatt kopieren

> am Kern beider Verbindungsfunktionen genau ist das gleiche Verfahren, das ich oben. bekannt gegeben.

Nicht weil Sie CurrentDb mehrfache Zeiten benennen, wo Sie es einmal nur benennen sollten.
Ist hier wie für die Befestigung der Tabellen in einer Hinterakte, die im gleichen Faltblatt wie das Vorderseiten gelegen ist.
Sie können es using den Weg für den Nachrechner als Parameter leicht ändern.

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

  Schwache dbs als DAO.Database
  Schwaches tdf als DAO.TableDef
  
  Schwaches strSourceTableName  als Schnur
  Schwaches strCurrentPath      als Schnur
  Schwaches strAttachPath       als Schnur
  Schwaches strFrontendPath     als Schnur
  Schwaches strBackendPath      als Schnur
  Schwaches strConnect          als Schnur
  
  Auf Störung Goto- Err_GentilknytData
  
  Dbs = CurrentDb einstellen
  
  strFrontendPath = dbs. Name
  strCurrentPath = mittler (strFrontendPath, 1, InStrRev (strFrontendPath, „\ ") - 1)

  Für jedes tdf in dbs.TableDefs
    strSourceTableName = tdf.SourceTableName
    Wenn Len (strSourceTableName) > 0 dann
      strBackendPath = aufspaltete (tdf. Anschließen, „=") (1)
      strAttachPath = mittler (strBackendPath, 1, InStrRev (strBackendPath, „\ ") - 1)
      Wenn StrComp (strCurrentPath, strAttachPath, vbTextCompare) <> 0 dann
        strConnect = „; DATABASE=“ u. strCurrentPath u.“ \ AktivitetData.mdb "
        tdf. Anschließen = strConnect
        tdf.RefreshLink
      Beenden wenn
    Beenden wenn
  Zunächst

  Tdf einstellen = nichts
  Dbs einstellen = nichts
Weitere Lösungen  
 
programming4us programming4us