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
which book to refer for MPLS BGP
Access VBA Word merge
MS SQL 2005 Profiler
Vmware cluster issues
Cryptor
Outlook inbox refresh problem after upgrading to Exchange 2010
Restoring Intranet Web Site
Who is a reliable lowcost provider of dedicated servers
Java Client Applet - AccessControlException
Outlook 2007 delete cross out message instead of deleting