Question : Copier l'email dans la chemise de réseau

Salut les experts, experts en matière du besoin du

I aident. Depuis que j'ai changé mon Oulook de 2003 en 2007, semble comme le manuscrit joint plus le travail. J'emploie ce code pour copier l'article envoyé dans le réseau si le titre soumis est « TK :  ». Les experts en matière d'espoir peuvent m'aider à dépanner this.
 class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
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 " de " codeSnippet787580 d'id= " de 
Dim de class= comme Outlook.Items

Application_Quit secondaire privé ()
    Placer l'olkFolder = rien
Finir le sous-marin

Application_Startup secondaire privé ()
    Placer l'olkFolder = le Session.GetDefaultFolder (olFolderSentMail). Articles
Sous-marin d'extrémité

olkFolder_ItemAdd secondaire privé (article de ByVal comme objet)
    « Éditer la condition sur la prochaine ligne »
      S'InStr (1, Item.Subject, « TK : ") puis
        « Éditer le chemin de chemise sur la prochaine ligne »
        Item.SaveAs « \ \ bc04 \ force \ données \ chemise \ » et RemoveIllegalCharacters (Item.Subject) et « .msg », olMSG
    Finir si
Finir le sous-marin

Fonction RemoveIllegalCharacters (strValue comme corde) comme corde
    « But : Enlever les caractères qui ne peuvent pas être dans un nom de fichier d'une corde. »
    « Écrit : 4/24/2009 »
    « Auteur :  BlueDevilFan »
    « Perspectives : Toutes les versions »
    RemoveIllegalCharacters = strValue
    RemoveIllegalCharacters = remplacent (RemoveIllegalCharacters, « < », le "")
    RemoveIllegalCharacters = remplacent (RemoveIllegalCharacters, « > », le "")
    RemoveIllegalCharacters = remplacent (RemoveIllegalCharacters, « :  », "")
    RemoveIllegalCharacters = remplacent (RemoveIllegalCharacters, Chr (34), « '")
    RemoveIllegalCharacters = remplacent (RemoveIllegalCharacters, « / », le "")
    RemoveIllegalCharacters = remplacent (RemoveIllegalCharacters, « \ », le "")
    RemoveIllegalCharacters = remplacent (RemoveIllegalCharacters, « | », "")
    RemoveIllegalCharacters = remplacent (RemoveIllegalCharacters, « ?  », "")
    RemoveIllegalCharacters = remplacent (RemoveIllegalCharacters, « * », le "")
Fonction de fin
class= de

Réponse : Copier l'email dans la chemise de réseau

> au noyau des deux fonctions de lien est exactement le même procédé que j'ai signalé ci-dessus.

Pas, parce que vous appelez CurrentDb des périodes multiples où vous devriez l'appeler une fois seulement.
Voici comment pour attacher des tables dans un dossier principal localisé dans la même chemise que d'entrée.
Vous pouvez facilement la modifier using le chemin pour la partie postérieure comme paramètre.

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

  Faibles dbs comme DAO.Database
  Faible tdf comme DAO.TableDef
  
  Faible strSourceTableName  comme corde
  Faible strCurrentPath      comme corde
  Faible strAttachPath       comme corde
  Faible strFrontendPath     comme corde
  Faible strBackendPath      comme corde
  Faible strConnect          comme corde
  
  Sur l'erreur Err_GentilknytData GoTo
  
  Placer les dbs = le CurrentDb
  
  strFrontendPath = dbs. Nom
  strCurrentPath = mi (strFrontendPath, 1, InStrRev (strFrontendPath, « \ ") - 1)

  Pour chaque tdf dans dbs.TableDefs
    strSourceTableName = tdf.SourceTableName
    Si Len (strSourceTableName) > 0 puis
      le strBackendPath = s'est dédoublé (tdf. Relier, le « =") (1)
      strAttachPath = mi (strBackendPath, 1, InStrRev (strBackendPath, « \ ") - 1)
      Si StrComp (strCurrentPath, strAttachPath, vbTextCompare) <> 0 puis
        strConnect = « ; DATABASE= » et strCurrentPath et » \ AktivitetData.mdb "
        tdf. Relier = strConnect
        tdf.RefreshLink
      Finir si
    Finir si
  Après

  Placer le tdf = rien
  Placer les dbs = rien
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us