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 [login to view URL]
? Dim Utils As [login to view URL]
? Dim obj As [login to view URL]
? Dim Items As [login to view URL]
? 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("[login to view URL]")
? [login to view URL]
? ? Set Items = [login to view URL]("[\\SharePoint\Lists\Communications][1] - Family Connections Contacts").Items
? If [login to view URL] Then
? ? ? Set Utils = CreateObject("[login to view URL]")
? ? ? Set obj = Items(1)
? ? ? PropID = [login to view URL](obj, GUID, ID)
? ? ? PropID = PropID Or &H102
? ? ? For Each obj In Items
? ? ? ? ? If TypeOf obj Is [login to view URL] Then
? ? ? ? ? ? ? AdrID = [login to view URL](obj, PropID)
? ? ? ? ? ? ? If Not IsEmpty(AdrID) Then
? ? ? ? ? ? ? ? ? AdrID(22) = SEND_AUTO_FORMAT
? ? ? ? ? ? ? ? ? [login to view URL] obj, PropID, AdrID, True
? ? ? ? ? ? ? End If
? ? ? ? ? End If
? ? ? Next
? End If
cleanUp:
? If Not Session Is Nothing Then
? ? ? [login to view URL]
? End If
End Sub