Replies

Not the correct answer.

Thank you

Karen,
Just to clarify how to get this code into place.
Open the VB editor.
Expand the default project.
Expand the node that says “Microsoft Office Outlook Objects”
Then click on “This Outlook Session”
Paste the code into the empty screen.
As one of the replies to my posting observed, my code will send an email to Deleted Items if you press Cancel when prompted for a location; this is to prevent me saving emails that I know I do not wish to keep. You may prefer not to have this functionality, in which case the simpler code is better.
I hope that makes sense.

Karen,
Just to clarify how to get this code into place.
Open the VB editor.
Expand the default project.
Expand the node that says “Microsoft Office Outlook Objects”
Then click on “This Outlook Session”
Paste the code into the empty screen.
As one of the replies to my posting observed, my code will send an email to Deleted Items if you press Cancel when prompted for a location; this is to prevent me saving emails that I know I do not wish to keep. You may prefer not to have this functionality, in which case the simpler code is better.
I hope that makes sense.

The only way I know of doing this is by writing some VB code that is associated with the SEND event. I use the following code:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objFolder As MAPIFolder

If TypeName(Item) “MailItem” Then
Exit Sub
End If

Set objNS = Application.GetNamespace(“MAPI”)
Set objFolder = objNS.PickFolder

If TypeName(objFolder) “Nothing” Then
Set Item.SaveSentMessageFolder = objFolder
Else
Set Item.SaveSentMessageFolder = objNS.Folders(olFolderDeletedItems)
End If

Set objFolder = Nothing
Set objNS = Nothing

End Sub

The only way I know of doing this is by writing some VB code that is associated with the SEND event. I use the following code:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objFolder As MAPIFolder

If TypeName(Item) “MailItem” Then
Exit Sub
End If

Set objNS = Application.GetNamespace(“MAPI”)
Set objFolder = objNS.PickFolder

If TypeName(objFolder) “Nothing” Then
Set Item.SaveSentMessageFolder = objFolder
Else
Set Item.SaveSentMessageFolder = objNS.Folders(olFolderDeletedItems)
End If

Set objFolder = Nothing
Set objNS = Nothing

End Sub

Yes, I think you are right
If I slowly decrease the size, the last appointment vanishes, reappears and vanishes again, this cycle continues. Clearly my screen resolution (1152 x 864) is just wrong for Outlook. I can see all of the appointments in maximised view if I change the resolution, change the font used in the calendar or increase the height of the task bar.
For now, a slightly different font size seems best.
Thank you

Yes, I think you are right
If I slowly decrease the size, the last appointment vanishes, reappears and vanishes again, this cycle continues. Clearly my screen resolution (1152 x 864) is just wrong for Outlook. I can see all of the appointments in maximised view if I change the resolution, change the font used in the calendar or increase the height of the task bar.
For now, a slightly different font size seems best.
Thank you

I have just noticed that this problem only manifests itself if Outlook is maximised.
If I run it in a smaller window all events display correctly.

I have just noticed that this problem only manifests itself if Outlook is maximised.
If I run it in a smaller window all events display correctly.

Different events.
The one being hidden is the last in the list of one day events. I think they are shown in alphabetic order.
For instance today the missing all day event is “Eid al Fitr (2nd day)”, If I add an event called ZZ, that is listed after Eid, and so Eid is now visible. If I add an event called DD, this is listed above Eid and is visible while Eid remains hidden.

Different events.
The one being hidden is the last in the list of one day events. I think they are shown in alphabetic order.
For instance today the missing all day event is “Eid al Fitr (2nd day)”, If I add an event called ZZ, that is listed after Eid, and so Eid is now visible. If I add an event called DD, this is listed above Eid and is visible while Eid remains hidden.

Thank you
I tried this, but the /cleanfolders switch returned an error message about unknown switch. I tried /resetfolders, but it had no effect.
We looked at the user’s folders through OWA and the folders, which are all default system folders on closer examination show with Russian names. I think therefore that accessing the folder from OWA on a Russian PC has caused the folders to be renamed.
Can anyone confirm this behaviour?

There is a 3rd part add-on for Outlook that has this functionality
See
http://www.sperrysoftware.com/jcHome.asp
Although I think a $15 software package is overkill for the problem.

If you amend the IF statement to have a second part then it should work
ie
IF(B9″”,COUNTA($B$3,B9),””)