Send Draft Emails in Outlook

[KarelDeGrote]

Hi all,

I have a macro for sending multiple draft emails in outlook, but since an update/migration by IT the macro is not working anymore, I got a error on line "objSelection.Item(i).Send".
I am working with outlook 2016.

Does someone know how to fix this? The full macro is:

Sub SendSelectedDraftEmails()
    Dim objSelection As Selection
    Dim strPrompt As String
    Dim nResponse As Integer
    Dim i As Long
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If objSelection.Count > 0 Then
       strPrompt = "Are you sure to send out the selected " & objSelection.Count & " draft item(s)?"
       nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Confirm Sending")
 
       If nResponse = vbYes Then
          For i = objSelection.Count To 1 Step -1
              objSelection.Item(i).Send
          Next
       End If
    Else
       MsgBox ("No items selected!")
    End If
End Sub

Thanks for your help!

 

[KarelDeGrote]

Hi, I just figured out the macro works fine, it's an outlook issue, deleting the email addresses and typing in these manually solved the issue, unfortunately I needed to do this for 20 emails. I suppose we can close this topic.