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

Posted on 2008-11-04
Last Modified: 2010-04-21
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?
Question by:L3370
    LVL 59

    Accepted Solution

    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

    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)
    End Sub

    Open in new window

    LVL 9

    Author Closing Comment

    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.
    LVL 59

    Expert Comment

    by:Chris Bottomley
    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.


    Write Comment

    Please enter a first name

    Please enter a last name

    We will never share this with anyone.

    Featured Post

    How to run any project with ease

    Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
    - Combine task lists, docs, spreadsheets, and chat in one
    - View and edit from mobile/offline
    - Cut down on emails

    Email signatures have numerous marketing benefits. Here are 8 top reasons to turn your email signature into a marketing channel.
    Set OWA language and time zone in Exchange for individuals, all users or per database.
    In this Experts Exchange video Micro Tutorial, I'm going to show how small business owners who use Google Apps can save money by setting up what is called a catch-all email address in their Gmail accounts. By using the catch-all feature, small busin…
    Sending a Secure fax is easy with eFax Corporate ( First, Just open a new email message.  In the To field, type your recipient's fax number You can even send a secure international fax — just include t…

    761 members asked questions and received personalized solutions in the past 7 days.

    Join the community of 500,000 technology professionals and ask your questions.

    Join & Ask a Question

    Need Help in Real-Time?

    Connect with top rated Experts

    6 Experts available now in Live!

    Get 1:1 Help Now