Question : Est-ce que je peux avoir le code créé dans VBA pour permettre à des messages électroniques de perspectives de sauver aux chemises de sharepoint ?

Cette question a été installée pour que le chris_bottomley continue à m'aider en créant le code pour sauver des email de perspectives à un endroit de sharepoint automatiquement. Avec la fonctionnalité pour sauver les email multiples avec la même ligne objet avec le

du dossier names.


Sub Q_26408152 () si Application.Inspectors.count = 0 sortent alors Sub
si Application.ActiveInspector.CurrentItem. Classe = code de Then
« MsgBox « d'olMail à suivre ! « 
avec Application.ActiveInspector.CurrentItem
.saveas » \ \ cth-ws01 \ Corp. \ documents LUI \ Shared \ documents de projet \ « et FileNameCharsOnly (. Subject) et » .msg ", olMsg
 » .saveas « c:\deleteme\ » et FileNameCharsOnly (. Subject) et » .msg ", extrémité If
End Sub

Function FileNameCharsOnly (streptocoque de With
de fin de l'olMsg
comme corde) comme regEx de String
Dim comme Object
Dim s'assortit comme arr d'Object
Dim () comme cnt de String
Dim comme dirColon d'Integer
Dim comme dirColon de Boolean

= mi (streptocoque, 2, 1) = « : « regEx du
=
de CreateObject (« vbscript.regexp ») avec le regEx
. Global = True
.IgnoreCase = True
. Modèle = » [^A-Za-z0-9$ % ' \ - _@~ `\ (\) \ + \ \ ; = \ [\] extrémité With
FileNameCharsOnly = regEx.Replace (streptocoque du
du §-ÿ] « , » ")
regEx.Pattern = » {2,} « 
FileNameCharsOnly = regEx.Replace (FileNameCharsOnly, » ")
'si le dirColon puis FileNameCharsOnly = remplacent (FileNameCharsOnly,  » « , » : « , 1, 1)

End Function class= de

Réponse : Est-ce que je peux avoir le code créé dans VBA pour permettre à des messages électroniques de perspectives de sauver aux chemises de sharepoint ?

Je pense qu'il y a les fichiers altérés dans vos notes programme ou annuaires de données.

Après la désinstallation, supprimer ces annuaires, puis les réinstaller.

Svp dos de reoprt