Vraag : Kan ik code die in VBA wordt gecre�ërd van Vooruitzichten E-mail- berichten om aan sharepointomslagen te sparen toe te staan hebben?

Deze vraag was opstelling voor chris_bottomley blijven me bij het creëren van code helpen om Vooruitzichten e-mail aan een sharepointplaats automatisch te bewaren. Met functionaliteit om veelvoudige e-mail met de zelfde onderwerpslijn met uniek dossier names.


Sub Q_26408152 ()

te bewaren als Application.Inspectors.count = 0 dan Sub
als Application.ActiveInspector.CurrentItem weggaan. Klasse = de te volgen Code olMail van Then
„MsgBox „! „
met van Application.ActiveInspector.CurrentItem
.saveas“ \ \ cth-ws01 \ corp van \- IT \ Shared van de Documenten de Documenten \ „& FileNameCharsOnly van het \- Project (. Subject) &“ .msg ", olMsg
“ .saveas „c:\deleteme\“ & FileNameCharsOnly (. Subject) &“ .msg ", olMsg
het Eind If
End Sub

Function FileNameCharsOnly van With
(streptokok als Koord) als String
Dim regEx als gelijken van Object
Dim als Object
Dim arr () als String
Dim cnt als Integer
Dim dirColon als Boolean

dirColon = Medio (streptokok, 2, 1) = „: „
plaatste regEx = CreateObject („vbscript.regexp“)
met regEx
. Globaal = True
.IgnoreCase = True
. Patroon =“ [^A-Za-z0-9$ % ' \ - _@~ `\ (\) \ + \ \; = [\] §-ÿ] „
Eind \ With
FileNameCharsOnly = regEx.Replace (streptokok,“ „)
regEx.Pattern =“ {2,} „
FileNameCharsOnly = regEx.Replace (FileNameCharsOnly,“ „)
'als dirColon toen FileNameCharsOnly = vervangt (FileNameCharsOnly, “ „,“: „, 1, 1)

End Function

Antwoord : Kan ik code die in VBA wordt gecre�ërd van Vooruitzichten E-mail- berichten om aan sharepointomslagen te sparen toe te staan hebben?

Ik denk er bedorven dossiers in uw nota's programma of gegevensfolders zijn.

Na desinstallatie, schrap die folders, dan installeer opnieuw.

Tevreden reoprt achter