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
Looking for a cheap HDMI graphics card..
Remote Screnn for Boot
Under DDOS attack. Logs enclosed. What type of attack is this and how do we mitigate?
VMWare VSphere upgrade
Dynamic textbox template column in gridview
MYSQL synchronization
Sum if from access data base
Outlook 2007 Continually asks for an Exchange Server password
Have to restart print spooler to print to HP Photosmart C7280
SQL 2008 Maintenance Plan, edit backup filename