Send everything in the Draft folder

[xjetjockey]

I do Excel VBA, and due to a wierd error cannot get it to send in Outlook. It will Save just fine, however. I have no clue how to do this in Outlook, but does anyone have a Sub that will take every email in the draft folder and send it?
Thanks.
Robert

[Oorang]

Do you want it done from Excel or Outlook?

[xjetjockey]

In Outlook. Thanks.
Robert

[Oorang]

Public Sub SendAllInDraft()
Dim ns As Outlook.NameSpace
Dim objItm As Object
Dim mi As Outlook.MailItem
Set ns = Outlook.Session
For Each objItm In ns.GetDefaultFolder(olFolderDrafts).Items
If TypeName(objItm) = "MailItem" Then
Set mi = objItm
mi.Send
End If
Next
End Sub