> Hello!
>
> I wrote a script that uses the NewMail event to check if the sender of
> the new message is in a distro list in the GAL, and create a folder in
> a PST file, and add a shortcut to my shortcut pane if there is not
> already one.
>
> Everything works, but if it's a sender that does not already have a
> folder/shortcut it gives me an error when adding the shortcut. If I
> go into Debug and, without making any changes to the code, tell it try
> again, everything works fine.
>
> My only thought is that it takes a second to create the folder in the
> PST file, and I'm adding the shortcut before that operation can
> complete. If that's the case, is there a way around it? If it's
> something else, what is it?
>
> Any help is appreciated.
>
> Here's my code:
>
> Private Sub Application_NewMail()
> Dim objMail As Variant
> Dim InboxItems As Outlook.Items
> Dim DestFolder As Outlook.MAPIFolder
> Dim objShortcuts As OutlookBarShortcuts
> Dim objShortcut As OutlookBarShortcut
> Dim objGroup As OutlookBarGroup
> Dim objGroups As OutlookBarGroups
> Dim objListing As AddressEntry
> Dim SanName As String
>
> Set ns = GetNamespace("MAPI")
> Set objListing = ns.AddressLists("Global Address
> List").AddressEntries("Dist_List")
> Set InboxItems = ns.GetDefaultFolder(olFolderInbox).Items
> Set DestFolder = GetFolder("Personal Folders\People")
> Set objMail = InboxItems.GetFirst
>
> If InList(objMail.SenderName, objListing) Then
> SanName = objMail.SenderName
> For Count = 1 To DestFolder.Folders.Count
> If DestFolder.Folders(Count).Name = SanName Then
> objMail.Move DestFolder.Folders(Count)
> Exit Sub
> End If
> Next Count
>
> DestFolder.Folders.Add SanName
> objMail.Move GetFolder("Personal Folders\People\" & SanName)
>
> Set objGroups = ActiveExplorer.Panes(1).Contents.Groups
>
> For i = 1 To objGroups.Count
> If objGroups(i).Name = "Contacts" Then
> Set objShortcuts = objGroups(i).Shortcuts
> 'ERROR on ADD operation
> objGroups(i).Shortcuts.Add GetFolder("Personal Folders
> \People\" & _
> SanName), SanName
> End If
> Next i
>
> End If
> End Sub
>
> Function InList(Name As String, MainList As AddressEntry) As Boolean
> If MainList.DisplayType = olDistList Then
> For i = 1 To MainList.Members.Count
> If InList(Name, MainList.Members(i)) Then
> InList = True
> Exit Function
> End If
> Next i
> Else
> If MainList.Name = Name Then
> InList = True
> Else
> InList = False
> End If
> End If
>
> End Function
>
> Function Sanitize(str) As String
> str =
> Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(str,
> "?", ""), "/", ""), "*", ""), "\", ""), ":", ""), Chr(34), ""), "<",
> ""), ">", ""), "|", "")
> Sanitize = str
> End Function