Sedang Disiapkan

Outlook COM Add-ins

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

Kemahiran: .NET, Microsoft

Lihat lebih lanjut: outlook add uid, err com, command group, microsoft macro, macros in outlook, microsoft com, outlook add, Ins, chr, outlook ribbon, add macros, outlook send button, outlook ribbon button location, ins app, shell add file, uid email, add group, net object error, microsoft marco, set outlook users, outlook add macro, error macro, app inspector, macro send email, save net app

Tentang Majikan:
( 9 ulasan ) Kedron, Australia

ID Projek: #4075868

Dianugerahkan kepada:

sergeyzhebka

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 version Lagi

$50 AUD dalam 2 hari
(90 Ulasan)
5.5

10 freelancers are bidding on average $138 for this job

sandeep25101982

Hi VSTO and Outlook,MS Office Add-in development expertise in VB/C#. Please have a look at private message for details Thanks

$250 AUD dalam 6 hari
(30 Ulasan)
6.5
Rahul2012

Please check the PM.

$100 AUD dalam 2 hari
(14 Ulasan)
5.5
aptecpymefree

We can work in your Outlook COM Add-ins. I am a leader of the team expert in several tecnologies like PHP, .NET, Oracle, SQL, Movil applications. I have 14 Years of experience in Software development Windows and Web. E Lagi

$240 AUD dalam 5 hari
(18 Ulasan)
5.4
djain01

Hi, Lets do it, Pls check private message as well. Thanks djain01

$250 AUD dalam 5 hari
(40 Ulasan)
5.0
pesek

Please, check the private message for the demo offer

$125 AUD dalam 0 hari
(5 Ulasan)
4.0
krishnadubey

Hello, I'll be happy to create outlook com add-ins . Regards, Krishna

$30 AUD dalam sehari
(7 Ulasan)
3.2
aegansys

c/c++/c# developer

$30 AUD dalam 2 hari
(4 Ulasan)
3.1
cristianocardoso

I am interested

$50 AUD dalam 5 hari
(0 Ulasan)
0.0
niyahtech

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 wi Lagi

$1000 AUD dalam 19 hari
(0 Ulasan)
0.0
Pharoa

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 w Lagi

$250 AUD dalam 5 hari
(0 Ulasan)
3.3