Kapalı

Outlook Addin

We use Outlook 2007 to connect to a SharePoint 2007 Contact list.? The problem is that all of the contacts are defaulted to use "Send Using Outlook Rich Text Format" when sending an email to anyone on that SharePoint Contact list.

I have? VBA code? for Outllook 2007 that includes? the Redemption Objects dll that changes the sent email format of all the contacts in that particular contacts folder.? (The? code is? working on my computer)

I need? code modifications, and packaging for distribution done.

Here is what I need:

1. I need that code and the Redemption dll packaged in a way that can be easily, and silently distributed on our Windows Domain (LAN).

2. It needs to run frequently because any new contacts would be defaulted to use Rich Text Format, and would need to be changed to Auto or Plain Text.

3. Since there may be other contact lists added in the future, the code needs to be modified to run on all SharePoint Contact Lists"?

## Deliverables

You can acquire the development license for Outlook Redemption for free.? If you accomplish this project then I will purchase the redistributable license for redemption and supply that to you if you need it.? Let me know if you need it.

Here is the code that I have...

Private Const SEND_AUTO_FORMAT = 1

Private Const SEND_RTF_FORMAT = 0

Private Const SEND_PLAINTEXT_FORMAT = 7

Public Sub ChangeSendingFormat()

? On Error GoTo cleanUp

? Dim Session As [url removed, login to view]

? Dim Utils As [url removed, login to view]

? Dim obj As [url removed, login to view]

? Dim Items As [url removed, login to view]

? Dim AdrID As Variant

? Dim PropID As Long

? Const GUID As String = "{00062004-0000-0000-C000-000000000046}"

? ' Email1EntryID

? Const ID = &H8085

? ' Email2EntryID = &H8095

? ' Email3EntryID = &H80A5

? Set Session = CreateObject("[url removed, login to view]")

? [url removed, login to view]

? ? Set Items = [url removed, login to view]("[\\SharePoint\Lists\Communications][1] - Family Connections Contacts").Items

? If [url removed, login to view] Then

? ? ? Set Utils = CreateObject("[url removed, login to view]")

? ? ? Set obj = Items(1)

? ? ? PropID = [url removed, login to view](obj, GUID, ID)

? ? ? PropID = PropID Or &H102

? ? ? For Each obj In Items

? ? ? ? ? If TypeOf obj Is [url removed, login to view] Then

? ? ? ? ? ? ? AdrID = [url removed, login to view](obj, PropID)

? ? ? ? ? ? ? If Not IsEmpty(AdrID) Then

? ? ? ? ? ? ? ? ? AdrID(22) = SEND_AUTO_FORMAT

? ? ? ? ? ? ? ? ? [url removed, login to view] obj, PropID, AdrID, True

? ? ? ? ? ? ? End If

? ? ? ? ? End If

? ? ? Next

? End If

cleanUp:

? If Not Session Is Nothing Then

? ? ? [url removed, login to view]

? End If

End Sub

Beceriler: PHP

Daha fazlasını gör: email2entryid h8095, obj free, family id, email lists for free, vba error, sharepoint for project management, end vba, obj c, windows logon, outlook addin, obj, lan project, connect outlook, vba outlook project, vba outlook contacts, vba public folder, vba sent email, outlook redemption, redemption outlook, outlook project

İşveren Hakkında:
( 0 değerlendirme ) United States

Proje NO: #3121344

Bu iş için 2 freelancer ortalamada $304 teklif veriyor

StanDotNet

See private message.

$501.5 USD in 14 gün içinde
(297 Değerlendirme)
8.0
phosphorvw

See private message.

$106.25 USD in 14 gün içinde
(91 Değerlendirme)
5.9