Consulting

Results 1 to 3 of 3

Thread: Send all open word documents

  1. #1
    VBAX Regular
    Joined
    Jan 2007
    Posts
    6
    Location

    Send all open word documents

    Hi guys

    For the past three years i've been using the following macro with complete sucess

    Sub SendAllEmails()

    Dim objDoc As Document

    For Each objDoc In Application.Documents
    objDoc.SendMail
    Next objDoc

    Set objDoc = Nothing

    End Sub

    I sometimes have to send up to 30 words documents as separate e-mails to my boss (am secretary). I have never had a problem and it can take 30 word documents (sometimes more) with aplomb. This macro of course saves me tons of time because instead of sending one document at a time i just run this macro and all i have to do is put her name in the to: filed when the outlook screen comes up...

    It stopped working last week.

    I dont' think it's word as i have a similar macro for print-all-open-documents which is working fine.

    It's gets to the second document, the outlook screen comes up, i type in my bosses name and everything freezes... it wont go onto the third word document. Even though it's frozen on the outlook screen, it does actually send this mail (ie my compute is frozen but my boss receives the mail that everything jammed on).

    As i say, am not sure if the problem is with Word or Outlook...

    Help please!

    Thank you in advance for your time...

  2. #2
    Moderator VBAX Wizard lucas's Avatar
    Joined
    Jun 2004
    Location
    Tulsa, Oklahoma
    Posts
    7,323
    Location
    It works fine for me on a few documents. I don't think it is a program, possibly your computer. When you say jammed up do you mean locked up and you have to close using task manager?
    Steve
    "Nearly all men can stand adversity, but if you want to test a man's character, give him power."
    -Abraham Lincoln

  3. #3
    VBAX Regular
    Joined
    Jan 2007
    Posts
    6
    Location
    Yes. Microsoft Word completely freezes and i have to close it through the task manager.

    It freezes on the outlook screen, but i can go in and out of outlook... and it does actually send the second mail...

    As i say, this has worked for years for me and only last week started to fail.

    If anyone has an alternative of how i could send 30 open word documents as 30 separate e-mails i would be very grateful...

    Kind regards

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •