so far I have
Public Sub SendDrafts()
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
Dim mySender As Outlook.AddressEntry
Dim oMail As Outlook.MailItem
Dim oAppt As Outlook.AppointmentItem
Dim oPA As Outlook.PropertyAccessor
Dim strSenderID As String
Dim myNameSpace As Outlook.NameSpace
Dim myFolders As Outlook.Folders
Dim myDraftsFolder As Outlook.MAPIFolder
Dim MsgTxt As String
Dim x As Long
MsgTxt = "Senders of selected items:"
Set myOlExp = Application.ActiveExplorer
Set myOlSel = myOlExp.Selection
For x = 1 To myOlSel.Count
If myOlSel.Item(x).Class = OlObjectClass.olMail Then
' For mail item, use the SenderName property.
Set oMail = myOlSel.Item(x)
If Len(Trim(myOlSel.Item(x).To)) > 0 Then
If myOlSel.Item(x).Parent = "Drafts" Then
myOlSel.Item(x).Send
Debug.Print "Sent to: " & myOlSel.Item(x).To & " " & Time()
End If
End If
End If
Next x
End Sub
however it is only sending one and not all in selection