We help IT Professionals succeed at work.

Export Macro in Outlook

Theva
Theva asked
on
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.
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

Open in new window

Comment
Watch Question

Commented:
Find your copy of the Macro most likely called vbaProject.OTM.  It is probably stored in your X:\Documents and Settings\Application Data\Microsoft\Outlook

copy this item to the user's Application Data\Microsoft\Outlook directory and the macro should be available to them from there.
Top Expert 2011
Commented:
Full Automation of the entry is not supported in outlook, and would still require a manual action to enable the automation in other applications therefore the best you can do is export the module with the code to a common area:

Right click the module in the VBE file explorer and select export.

SImilarly other users need to select in the VBE | FIle | IMport file
NAvigating to the saved file  to incluse it.

Chris

Author

Commented:
Hi,

Thanks a lot for helping me.