Bernd Michitsch
Posts: 1
Joined: 2006-07-11
|
Hi NG,
I´ve added some buttons to the appointment form. Some transactions are done... afterwards I ould like to see which items are allready 'sent'. I would like to do this with the standard like 'holiday', 'privat', 'important' so on. How could I change this? In German Outlook the field is called 'Beschriftung'.
Thanks for help,
Bernd |
|
Sergey Grischenko
Add-in Express team
Posts: 7233
Joined: 2004-07-05
|
Hi Bernd.
There is not a corresponding property in the Outlook Object Model to change the 'Label' field in an appointment item. However you can use Extended MAPI functions to change it. You will have to change the 0x8088 property tag of an appointment item.
|
|
logikonline
Posts: 35
Joined: 2006-04-14
|
Sergey - why can you not provide more assistance than simply to change a property tag? Please understand most of us are not focused in Outlook - so more assistance like the actual function would be more usefull. Here you go Bernd.
Do a good search for Redemption - it is an ok control helping you with Outlook.
Sub SetApptColorLabel(ByVal objAppt As Outlook.AppointmentItem, ByVal intColor As Integer)
' requires reference to CDO 1.21 Library
' adapted from sample code by Randy Byrne
' intColor corresponds to the ordinal value of the color label
'1=Important, 2=Business, etc.
Try
Const CdoPropSetID1 = "0220060000000000C000000000000046"
Const CdoAppt_Colors = "0x8214"
Dim objCDO As MAPI.Session
Dim objMsg As MAPI.Message
Dim colFields As MAPI.Fields
Dim objField As MAPI.Field
Dim strMsg As String
Dim intAns As Integer
'On Error Resume Next
objCDO = CreateObject("MAPI.Session")
objCDO.Logon("", "", False, False)
If Not objAppt.EntryID = "" Then
objMsg = objCDO.GetMessage(objAppt.EntryID, objAppt.Parent.StoreID)
colFields = objMsg.Fields
objField = colFields.Item(CdoAppt_Colors, CdoPropSetID1)
If objField Is Nothing Then
Err.Clear()
objField = colFields.Add(CdoAppt_Colors, vbLong, intColor, CdoPropSetID1)
Else
If objField.Value = 0 Then objField.Value = intColor
End If
objMsg.Update(True, True)
End If
objAppt = Nothing
objMsg = Nothing
colFields = Nothing
objField = Nothing
objCDO.Logoff()
objCDO = Nothing
Catch ex As Exception
End Try
End Sub
|
|