How do I send all messages in outlook, send/receive does not work it.

For some odd reason a previous admin had reports automatically sent via email from a commercial email account with Qwest instead of using our Exchange services. That admin has since been deposed...enter me. That commercial email account he was using just closed so I have about 700 messages queued up in the Outlook profile that I need to send.  I copied the messages from the outbox into a new mailbox we set up on exchange.  All the emails are now in the Outbox with the "to:" field already filled out with their recipients address.  I've tried hitting send/receive and it wont send them out. Other than manually opening each one and hitting send, how can i get all of them to send?
LVL 9
L3370Asked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Chris BottomleySoftware Quality Lead EngineerCommented:
Hello L3370,

Not sure but depending on if you have the security pack from SP3 then the following macro when executed in outlook may help

Regards,
Chris
Sub clearupsend()
Dim mai As mailitem
Dim cnt As Integer
Dim fldr As MAPIFolder 
    Set fldr = Application.GetNamespace("mapi").GetDefaultFolder(olFolderOutbox)
    For cnt = fldr.Items.count To 1 Step -1
        Set mai = fldr.Items(cnt)
        mai.Send
    Next
End Sub

Open in new window

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
L3370Author Commented:
That worked perfectly. I didn't even bother to think of making a macro to do this (like it would matter because I'm a terrible programmer and would have took me 4 hours.)

Again, thanks Chris. Well done.
0
Chris BottomleySoftware Quality Lead EngineerCommented:
Glad to help .. I honestly wasn't sure that the mechanism would work ... just thought it was worth a try.  So I learned a little bit here which always pleases.

Chris
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Outlook

From novice to tech pro — start learning today.