Вопрос : Могу я иметь Кодего созданное в VBA для того чтобы позволить сообщения по электронной почте внешнего вида сохранить к скоросшивателям sharepoint?

Этот вопрос был setup для chris_bottomley для того чтобы продолжать помочь мне в создавать Кодего для того чтобы сохранить электронная почта внешнего вида к положению sharepoint автоматически. С функциональностью для того чтобы сохранить множественные электронная почта с такой же линией вопроса с уникально

архива names.


Sub Q_26408152 () если Application.Inspectors.count = 0 после этого выходят Sub
если Application.ActiveInspector.CurrentItem. Тип = Кодий Then
«MsgBox «olMail, котор нужно последовать за! «
с Application.ActiveInspector.CurrentItem
.saveas» \ \ cth-ws01 \ corp \ документы ЕГО \ Shared \ документы проекта \ «& FileNameCharsOnly (. Subject) &» .msg ", olMsg
» .saveas «c:\deleteme\» & FileNameCharsOnly (. Subject) &» .msg ", конец If
End Sub

Function FileNameCharsOnly With
конца olMsg
(str как шнур) как regEx String
Dim как Object
Dim сопрягает как arr Object
Dim () как cnt String
Dim как dirColon Integer
Dim как dirColon Boolean

= средний (str, 2, 1) = «: «regEx
установленные =
CreateObject («vbscript.regexp») с regEx
. Глобально = True
.IgnoreCase = True
. Картина =» [^A-Za-z0-9$ % ' \ - _@~ `\ (\) \ + \ \; = \ [\] конец With
FileNameCharsOnly = regEx.Replace
§-ÿ] «(str,» ")
regEx.Pattern =» {2,} «
FileNameCharsOnly = regEx.Replace (FileNameCharsOnly,» ")
'если dirColon после этого FileNameCharsOnly = заменяет ть, то (FileNameCharsOnly, » «,»: «, 1, 1)

End Function class=

Ответ : Могу я иметь Кодего созданное в VBA для того чтобы позволить сообщения по электронной почте внешнего вида сохранить к скоросшивателям sharepoint?

Я думаю будут коррумпированные архивы в ваших примечаниях программе или директориях данных.

После деинсталлировать, уничтожьте те директории, тогда заново установите.

Пожалуйста задняя часть reoprt