Frage : Kann ich den Code haben, der in VBA verursacht wird, um Aussicht-E-Mail-Nachricht zu den sharepoint Faltblättern speichern zu lassen?

Diese Frage wurde gegründet, damit chris_bottomley fortfährt, mich zu unterstützen, wenn man Code verursachte, um Aussicht-eMail zu einer sharepoint Position automatisch zu speichern. Mit der Funktionalität, zum der mehrfachen eMail mit der gleichen Themalinie mit einzigartigem Akte names.


Sub Q_26408152 ()

zu speichern, wenn Application.Inspectors.count = 0 dann Sub
wenn Application.ActiveInspector.CurrentItem herausnehmen. Kategorie = olMail Then
„MsgBox „Code zum zu folgen! „
mit Application.ActiveInspector.CurrentItem
.saveas“ \ \ cth-ws01 \ corp \ ES \ Shared Dokumente \ Projekt-Dokumente \ „u. FileNameCharsOnly (. Subject) u.“ .msg ", olMsg
“ .saveas „c:\deleteme\“ u. FileNameCharsOnly (. Subject) u.“ .msg ", olMsg
Ende With
Ende If
End Sub

Function FileNameCharsOnly (str als Schnur) als String
Dim regEx als Object
Dim passt als Object
Dim arr () als String
Dim cnt als Integer
Dim dirColon als Boolean

dirColon = mittler zusammen (str, 2, 1) = „: „
gesetztes regEx = CreateObject („vbscript.regexp“)
mit regEx
. Global = True
.IgnoreCase = True
. Muster =“ [^A-Za-z0-9$ % ' \ - _@~ `\ (\) \ + \ \; = \ [\] §-ÿ] „
Ende With
FileNameCharsOnly = regEx.Replace (str,“ ")
regEx.Pattern =“ {2,} „
FileNameCharsOnly = regEx.Replace (FileNameCharsOnly,“ ")
', wenn dirColon dann FileNameCharsOnly = ersetzen (FileNameCharsOnly, “ „,“: „, 1, 1)

End Function

Antwort : Kann ich den Code haben, der in VBA verursacht wird, um Aussicht-E-Mail-Nachricht zu den sharepoint Faltblättern speichern zu lassen?

Ich denke, dass es verdorbene Akten in Ihren Anmerkungen Programm oder in den Datenverzeichnissen gibt.

Nachdem Sie deinstalliert haben jene Verzeichnisse löschen, dann wieder installieren.

Bitte reoprt Rückseite