Question : Can I have code created in VBA to allow Outlook Email messages to save to sharepoint folders?

This question was setup for chris_bottomley to continue to assist me in creating code to save Outlook emails to a sharepoint location automatically. With functionality to save multiple emails with the same subject line with unique file names.


Sub Q_26408152()

    If Application.Inspectors.count = 0 Then Exit Sub
    If Application.ActiveInspector.CurrentItem.Class = olMail Then
        'MsgBox "Code to follow!"
        With Application.ActiveInspector.CurrentItem
            .saveas "\\cth-ws01\corp\IT\Shared Documents\Project Documents\" & FileNameCharsOnly(.Subject) & ".msg", olMsg
'            .saveas "c:\deleteme\" & FileNameCharsOnly(.Subject) & ".msg", olMsg
        End With
    End If
End Sub

Function FileNameCharsOnly(str As String) As String
Dim regEx As Object
Dim matches As Object
Dim arr() As String
Dim cnt As Integer
Dim dirColon As Boolean

    dirColon = Mid(str, 2, 1) = ":"
    Set regEx = CreateObject("vbscript.regexp")
    With regEx
        .Global = True
        .IgnoreCase = True
        .Pattern = "[^A-Za-z0-9$ %'\-_@~`\(\)\+\\,;=\[\]§-ÿ]"
    End With
    FileNameCharsOnly = regEx.Replace(str, " ")
    regEx.Pattern = " {2,}"
    FileNameCharsOnly = regEx.Replace(FileNameCharsOnly, " ")
    'If dirColon Then FileNameCharsOnly = Replace(FileNameCharsOnly, " ", ":", 1, 1)

End Function

Answer : Can I have code created in VBA to allow Outlook Email messages to save to sharepoint folders?

I think there are corrupted files in your notes program or data directories.

After uninstalling, delete those directories, then reinstall.

Please reoprt back