We need to convert a macro to a COM Add-ins for Microsoft [login to view URL] 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
[login to view URL]
Modules -> Module1
Sub TagForFileBound()
On Error GoTo HandleError
Dim myinspector As [login to view URL]
Dim myItem As [login to view URL]
Dim uId As String
Set myinspector = [login to view URL]
Set myItem = [login to view URL]
Set myProp = [login to view URL]("SaveToFB", olText)
[login to view URL] = "Yes"
[login to view URL]
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 [login to view URL]
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 [login to view URL]
Dim objSentFolder As [login to view URL]
Set objNS = [login to view URL]
Set FBOutlookItems = [login to view URL](olFolderSentMail).Items
End Sub
Private Sub FBOutlookItems_ItemAdd(ByVal Item As Object)
On Error GoTo HandleError
Dim objNS2 As [login to view URL]
Set objNS2 = [login to view URL]("MAPI")
Dim objProperty As [login to view URL]
If TypeOf Item Is [login to view URL] Then
Set objProperty = [login to view URL]("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:\" & [login to view URL] & ".msg"
[login to view URL] saveToPath, olMSG
Set objShell = CreateObject("[login to view URL]")
AutoFilePath = [login to view URL]("%PROGRAMFILES%") & "\FileBound\Integration Kit-V6\[login to view URL] " & Chr(34) & saveToPath & "|1|" & Chr(34)
Set objExec = [login to view URL](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
Hi
I have solid experience in Outlook add-ins development - created over 40 during last few years. I can provide the described add-in within 2 days using either C#, VB.NET or C++ - as you prefer
Supported versions are 2007/2010/2013, including 64-bit editions
$50 AUD trong 2 ngày
4,8 (90 nhận xét)
5,5
5,5
10 freelancer chào giá trung bình $138 AUD cho công việc này
Hi there,
Thank you for posting your project proposal here!
I've gone through your requirements to convert a macro to a COM Add-ins for Microsoft Outlook and We fulfill your vision of getting the website built with the desired output and so glad to bid on this project as we have tremendous expertise and we would like to have some more details about the project .
For any clarifications,kindly get back to us at any time .
Kindly refer PMB .
Cheers,
Jeny,
Niyahtech.
Thanks for the opportunity to bid on your project.
We have strong Outlook and Visual Basic Skills and are therefore well placed to develop the Add-In Described in your tender document.
We are available to begin work immediately should you elect to award the project to us.
Please contact us if you need any clarifications on any or all aspects of our bid.