Question

Outlook wont let me send multiple drafts at the same time. Is there an easy way to send multiple drafts at once in outlook? without having to open each one individually?

From what i’ve read, seen and tried; this is not possible from within outlook itself, and thus a programming solution would be required, probably some VB script

Answer 1

ok, i found a bit of VB that does it:

`Public Sub SendDrafts()  Dim lDraftItem As Long Dim myOutlook As Outlook.Application Dim myNameSpace As Outlook.NameSpace Dim myFolders As Outlook.Folders Dim myDraftsFolder As Outlook.MAPIFolder  'Send all items in the 'Drafts' folder that have a 'To' address filled 'in.  'Setup Outlook  Set myOutlook = Outlook.Application Set myNameSpace = myOutlook.GetNamespace('MAPI') Set myFolders = myNameSpace.Folders   'Set Draft Folder.  This will need modification based on where it's 'being run.  Set myDraftsFolder = myFolders('$MAILBOX').Folders('$DRAFTS')  'Loop through all Draft Items  For lDraftItem = myDraftsFolder.Items.Count To 1 Step -1  'Check for 'To' address and only send if 'To' is filled in.  If Len(Trim(myDraftsFolder.Items.Item(lDraftItem).To)) > 0 Then  'Send Item  myDraftsFolder.Items.Item(lDraftItem).Send  End If Next lDraftItem  'Clean-up  Set myDraftsFolder = Nothing Set myNameSpace = Nothing Set myOutlook = Nothing  End Sub 

just replace $MAILBOX with your mailbox name and $DRAFTS with the name of your drafts folder. This has been personnaly tested and seems to work fine.