Firstly, let me thank you on behalf of VBAX for the donation - very much appreciated
Perhaps more importantly, you're welcome to ask as much as you like! All the regulars get a kick out of helping people use VBA to get the most out of their investment in MS Office and we all learn a little more ourselves along the way. Real-world problems are the best way for me to develop my own ability to find real-world solutions, so everyone's a winner!

And speaking of solutions...
At the moment, the class dictates that when a mail item arrives in a folder, we get the userform showing for each attachment, so we could just say that if there are no attachments, we want the option to show the form to save the message.
The most efficient way, i think, would be to first modify the existing code to pass the mail item to the form, intstead of the Item.Parent (folder).
That way we can still derive the path in the OK_click code with something like[VBA]strPathPrefix = myItem.Parent.Description[/VBA]and we'll have the Mail item available to save if we want.
So, change the class code:[VBA]For Each a In Item.Attachments
UserForm1.AttachedFile = a
UserForm1.SourceItem = Item
UserForm1.Show
Next a[/VBA]modify the property(previously SourceFolder):[VBA]Private myItem As MailItem

Property Let SourceItem(i As MailItem)
Set myItem = i
End Property[/VBA]and in the OK_click event:[VBA]If Me.optOn Then 'OnShore
strPathPrefix = myItem.Parent.Description
ElseIf Me.optOff Then 'OffShore
strPathPrefix = myItem.Parent.WebViewURL
End If[/VBA]Now would be a good time to test it still works...

Now that's settled, we can revisit the logic in the class event to deal with mails with no attachments[VBA]If Item.Attachments.Count > 0 Then
For Each a In Item.Attachments
UserForm1.AttachedFile = a
UserForm1.SourceItem = Item
UserForm1.Show
Next a
Else ' no attachments
UserForm1.SourceItem = Item
UserForm1.Show
End If[/VBA]we can check the attachment property next - if it's empty, we can populate the label accordingly[VBA]Property Let AttachedFile(a As Attachment)
Set myAttachment = a
If a Is Nothing Then
lblAttName.Caption = "Mail item"
Else
lblAttName.Caption = myAttachment.FileName
End If
End Property[/VBA]and finally, back to the OK_click event to check whether we need to save a mail item or an attachment - we could just take a look at the label text to see which it is[VBA]If lblAttName.Caption = "Mail item" Then
myItem.SaveAs strPathPrefix & cboAttType.Value & "\" & myItem.FileName
Else
myAttachment.SaveAsFile strPathPrefix & cboAttType.Value & "\" & myAttachment.FileName
End If[/VBA]I realise I've side-stepped the issue of only applying this to certain folders - you can always cancel out of any save operation (a cancel button with "Unload Me" would be good for this) but if you need to, you can just add that criteria to the class event, cahnging the Esle to ElseIf <criteria to chack>[VBA]ElseIf Item.Parent.ShowItemCount = olShowTotalItemCount Then ' no attachments[/VBA]
So that should refine things a little further. Once again I'll leave the testing in your capable hands and keep my fingers crossed