Theva
asked on
Export Macro in Outlook
Hi Experts,
I need Experts help. Is that any chance for me to insert this macro automatically without going through normal process (Tool >Macro> visual basic editor). I'm intent to request group of people to insert this script in their outlook. Hope Experts can advice me.
I need Experts help. Is that any chance for me to insert this macro automatically without going through normal process (Tool >Macro> visual basic editor). I'm intent to request group of people to insert this script in their outlook. Hope Experts can advice me.
Dim WithEvents olkFolder As Outlook.Items
Private Sub Application_Quit()
Set olkFolder = Nothing
End Sub
Private Sub Application_Startup()
Set olkFolder = Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Private Sub olkFolder_ItemAdd(ByVal Item As Object)
'Edit the condition on the next line'
'If Left(Item.ConversationTopic, 12) = "TK Followup:" Or Mid(Item.ConversationTopic, 5, 12) = "TK Followup:" Then
If InStr(1, Item.ConversationTopic, "SM:") Then
'Edit the folder path on the next line'
Item.SaveAs "\\bc04\reg\Report\" & RemoveIllegalCharacters(Item.ConversationTopic) & ".msg", olMSG
End If
End Sub
Function RemoveIllegalCharacters(strValue As String) As String
' Purpose: Remove characters that cannot be in a filename from a string.'
RemoveIllegalCharacters = strValue
RemoveIllegalCharacters = Replace(RemoveIllegalCharacters, "<", "")
RemoveIllegalCharacters = Replace(RemoveIllegalCharacters, ">", "")
RemoveIllegalCharacters = Replace(RemoveIllegalCharacters, ":", "")
RemoveIllegalCharacters = Replace(RemoveIllegalCharacters, Chr(34), "'")
RemoveIllegalCharacters = Replace(RemoveIllegalCharacters, "/", "")
RemoveIllegalCharacters = Replace(RemoveIllegalCharacters, "\", "")
RemoveIllegalCharacters = Replace(RemoveIllegalCharacters, "|", "")
RemoveIllegalCharacters = Replace(RemoveIllegalCharacters, "?", "")
RemoveIllegalCharacters = Replace(RemoveIllegalCharacters, "*", "")
End Function
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Thanks a lot for helping me.