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
show ip eigrp neighbors - What does the 'H' stand for ?
How can I add a user and password to AD with a power shell script?
Simplified Chinese grabled in Lotus Notes
SharePoint - Limit Acees is allowing view of all customer document libraries - must correct this soon! Pt3
Access Program Which Sends An Email
itext tables
Deleting records from an Oracle database using SQL based on timestamps using SAS SQL passthrough
Why won't Exchange Transport service start in Exchange 2007 on our SBS 2008 server ?
Network keyword
Windows7 my Documents folder