Auto send draft in outlook

[Carrion]

I am looking for a piece of code that will send messages saved in my draft folder in outlook, without having to manually go into the folder and do it myself. I am not sure where to begin. I am actually using Access to put the file in the draft folder. So ideally i would like to not have to leave access, but it i need to be in outlook to make it happen, i can live with that.

 

[WinblowsME]

You'll probably get the Outlook security popup when sending.

Sub Send_Drafts()
   Dim ns As Outlook.NameSpace
   Dim drafts As Outlook.MAPIFolder
   Dim i As Integer
   
   Set ns = GetNamespace("MAPI")
   Set drafts = ns.GetDefaultFolder(olFolderDrafts)
   
   For i = drafts.Items.Count To 1 Step -1
      drafts.Items(i).Send
   Next i
End Sub

 

[WinblowsME]

This will bypass the security prompt, but you'll need to download Redemption for Outlook.

' Don't forget to add a reference to the Redemption Outlook Library

Sub Send_Drafts()
   Dim ns As Outlook.NameSpace
   Dim drafts As Outlook.MAPIFolder
   Dim mail_item As Object

   Set ns = GetNamespace("MAPI")
   Set drafts = ns.GetDefaultFolder(olFolderDrafts)
   
   For i = drafts.Items.Count To 1 Step -1
      Set mail_item = New Redemption.SafeContactItem
      
      mail_item.Item = drafts.Items(i)
      mail_item.Send
   Next i
End Sub