Questione : Posso avere codice generato in VBA per permettere che i messaggi di posta elettronica di prospettiva conservino ai dispositivi di piegatura dello sharepoint?

Questo problema è stato installato affinchè il chris_bottomley continui ad aiutarlo nella generazione del codice per conservare automaticamente i email di prospettiva ad una posizione dello sharepoint. Con funzionalità per conservare i email multipli con la medesima linea dell'argomento con il

della lima names.


Sub Q_26408152 () se Application.Inspectors.count = 0 allora escono Sub
se Application.ActiveInspector.CurrentItem. Codice categoria = codice di Then
“MsgBox “del olMail da seguire! “
con Application.ActiveInspector.CurrentItem
.saveas„ \ \ cth-ws01 \ corp \ documenti Shared \ documenti \ “di progetto & FileNameCharsOnly (. Subject) &„ .msg ", olMsg
„ .saveas “c:\deleteme\„ & FileNameCharsOnly (. Subject) &„ .msg ", estremità If
End Sub

Function FileNameCharsOnly (streptococco di With
di conclusione del olMsg
come stringa) come regEx di String
Dim come Object
Dim abbina come arr di Object
Dim () come cnt di String
Dim come dirColon di Integer
Dim come dirColon di Boolean

= metà di (streptococco, 2, 1) = “: “regEx del
=
di CreateObject (“vbscript.regexp„) con regEx
. Globale = True
.IgnoreCase = True
. Modello =„ [^A-Za-z0-9$ % ' \ - _@~ `\ (\) \ + \ \; = \ [\] estremità With
FileNameCharsOnly = regEx.Replace (streptococco del
del §-ÿ] “,„ ")
regEx.Pattern =„ {2,} “
FileNameCharsOnly = regEx.Replace (FileNameCharsOnly,„ ")
'se il dirColon allora FileNameCharsOnly = sostituisce (FileNameCharsOnly, „ “,„: “, 1, 1)

End Function class= del

Risposta : Posso avere codice generato in VBA per permettere che i messaggi di posta elettronica di prospettiva conservino ai dispositivi di piegatura dello sharepoint?

Penso che ci siano lime corrotte nelle vostre note programma o negli indici di dati.

Dopo avere disinstallato, cancellare quegli indici, quindi reinstallare.

Prego parte posteriore del reoprt