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

SUBMIT DATE

LAST UPDATED

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