Completed

Outlook COM Add-ins

This project was successfully completed by sergeyzhebka for $50 AUD in 2 days.

Get free quotes for a project like this
Employer working
Completed by:
Skills Required
Project Budget
$30-$250 AUD
Completed In
2 days
Total Bids
11
Project Description

We need to convert a macro to a COM Add-ins for Microsoft [url removed, login to view] Macro is currently called via a button that is added to the ribbon and allows the user to send an email, saves the email to a location on the user Hard Drive and then calls a 3rd party application. The issue with a Macro is that it needs to be distributed to a larger group of users rather than a single user and that the user is prompted each time Outlook loads to enable the macro due to Microsoft security around macros.

The COM Add-ins will
add an option in the Outlook Ribbon (Outlook 2007+) See sample image of the ribbon.
User clicks on the option which sends the email.
Email saved locally
3rd Party application is executed which will prompt a user with a wizard and then removes the temporary file (This is not needed to be coded, 3rd party app already exists)

The code below will provide the command that will be needed to execute the 3rd party application.

Current Marco Code below

[url removed, login to view]
Modules -> Module1

Sub TagForFileBound()

On Error GoTo HandleError

Dim myinspector As [url removed, login to view]
Dim myItem As [url removed, login to view]
Dim uId As String

Set myinspector = [url removed, login to view]
Set myItem = [url removed, login to view]

Set myProp = [url removed, login to view]("SaveToFB", olText)
[url removed, login to view] = "Yes"
[url removed, login to view]

Exit Sub

HandleError:
If Error(Err) "" Then
MsgBox "Email could not be saved to FileBound because " & Error(Err)
End If
Exit Sub

End Sub


Microsoft Outlook Objects -> ThisOutlookSession
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "ThisOutlookSession"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Private WithEvents FBOutlookItems As [url removed, login to view]
Attribute FBOutlookItems.VB_VarHelpID = -1

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

If FBOutlookItems Is Nothing Then
Application_Startup
End If

End Sub

Private Sub Application_Startup()

Dim objNS As [url removed, login to view]
Dim objSentFolder As [url removed, login to view]
Set objNS = [url removed, login to view]
Set FBOutlookItems = [url removed, login to view](olFolderSentMail).Items

End Sub

Private Sub FBOutlookItems_ItemAdd(ByVal Item As Object)
On Error GoTo HandleError

Dim objNS2 As [url removed, login to view]
Set objNS2 = [url removed, login to view]("MAPI")
Dim objProperty As [url removed, login to view]

If TypeOf Item Is [url removed, login to view] Then
Set objProperty = [url removed, login to view]("SaveToFB")

'MAKE SURE THE EMAIL WAS SENT USING SEND & SAVE BUTTON
'SEND AND SAVE BUTTON ADDS A CUSTOM PROPERTY BEFORE SENDING
If TypeName(objProperty) "Nothing" Then
Dim saveToPath
Dim AutoFilePath

saveToPath = "c:" & [url removed, login to view] & ".msg"
[url removed, login to view] saveToPath, olMSG

Set objShell = CreateObject("[url removed, login to view]")
AutoFilePath = [url removed, login to view]("%PROGRAMFILES%") & "\FileBound\Integration Kit-V6\[url removed, login to view] " & Chr(34) & saveToPath & "|1|" & Chr(34)
Set objExec = [url removed, login to view](AutoFilePath)

End If

End If

Set objNS2 = Nothing

HandleError:
If Error(Err) "" Then
MsgBox "Email could not be saved to FileBound because " & Error(Err)
End If
Exit Sub

End Sub

Looking to make some money?

  • Set your budget and the timeframe
  • Outline your proposal
  • Get paid for your work

Hire Freelancers who also bid on this project

    • Forbes
    • The New York Times
    • Time
    • Wall Street Journal
    • Times Online