Microsoft
Software
Hardware
Network
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.cou
nt = 0 Then Exit Sub
If Application.ActiveInspecto
r.CurrentI
tem.Class = olMail Then
'MsgBox "Code to follow!"
With Application.ActiveInspecto
r.CurrentI
tem
.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.reg
exp")
With regEx
.Global = True
.IgnoreCase = True
.Pattern = "[^A-Za-z0-9$ %'\-_@~`\(\)\+\\,;=\[\]§-ÿ
]"
End With
FileNameCharsOnly = regEx.Replace(str, " ")
regEx.Pattern = " {2,}"
FileNameCharsOnly = regEx.Replace(FileNameChar
sOnly, " ")
'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
Random Solutions
Multiple Dll's in Delphi
Symantec BackupExec 2010 VMware ESX 3.5 x64 guests fails with 'An attempt to take a snapshot of a virtual machine failed because it was unable to quiesce an application'
please help with this xml as2 code
How can the AD objects deletion reflect in WSUS console immediately.
usb printer stopped working and cannot re-install
How to get past login page strRequestHTML Post
BULK UPDATE
How can I display previous month's records in January?
Please wait while Windows configures Crystal Reports Release 2
how to know the IP addresses of our netwrok with gateway