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