Sending Multiple Emails to Same user With Different Attachments through Outlook

I send about thirty emails which has distinct attachments to the same emails. I am right clicking each file and using "Send To". I need to type the email dresses each time. Is there a queuing function in MS Outlook? Or, is there a VBA code I can use to achieve the same thing.
1. 30 Distinct Files
2. Will be sent to the same emails.
3. There needs to be 30 separate emails.
Who is Participating?

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

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.

Dan CraciunIT ConsultantCommented:
There will be someone soon here with a VBA solution.

If you want something a bit different, try AutoIT. It's designed to solve exactly the type of repetitive tasks that you posted.

Note: you'll need a basic understanding of programming constructs to be able to code in AutoIT. Or you could use AU3 Recorder :)

Qlemo"Batchelor", Developer and EE Topic AdvisorCommented:
Are you doing that same action regularly?
  Are the email addresses the same?
  Are that 30 file names the same each time?
Can't you use a group for the addresses?
awesomejohn19Author Commented:
1. Yes, I do this daily.
2 & 4 Email addresses are the same and I am using groups.
3. File names are different and they should be the subject of every email.

The trouble I am having is

I Need to right click --> Send to ---> put the email address group name --> Remove Emailing: from the subject line --> Click send.

I am wondering if there is a way to automate this easily so I wont have to go  and do this 30 times a day. It just takes couple minutes but it'll be much easier if everything  is done automatically.
Determine the Perfect Price for Your IT Services

Do you wonder if your IT business is truly profitable or if you should raise your prices? Learn how to calculate your overhead burden with our free interactive tool and use it to determine the right price for your IT services. Download your free eBook now!

awesomejohn19Author Commented:
Thanks Dan,

I know how to program on VBA. Last time I did it for Outlook was years ago and there were lots of security features which basically made it difficult to write code MS Outlook to send emails.

:) I know Autoit as well and I was hoping I could avoid it. It has been years since I last used it but I'll check it again. Thanks,
Qlemo"Batchelor", Developer and EE Topic AdvisorCommented:
Before I start assembling something in VBA, how about you creating a single mail with all attachments, and then run VBA code on that to get your mails as requested? VBA could be triggered with a button in the Quick Access bar of the email form window.
awesomejohn19Author Commented:
Qlemo, I apologize if I misunderstood you. Here is the code that is seen when I open the VBA editor. I dont belive this is the one you are looking for.

"Private Sub Application_Reminder(ByVal Item As Object)
  Dim objMsg As MailItem
  Set objMsg = Application.CreateItem(olMailItem)
If Item.MessageClass <> "IPM.Appointment" Then
  Exit Sub
End If
If Item.Categories <> "Send Message" Then
  Exit Sub
End If
  objMsg.To = Item.Location
  objMsg.Subject = Item.Subject
  objMsg.Body = Item.Body
  Set objMsg = Nothing
End Sub
Qlemo"Batchelor", Developer and EE Topic AdvisorCommented:
I was talking about the way how to start the real stuff code. Manually create a new mail. Drag all files on the it. Press a button starting the code we have to write up.
awesomejohn19Author Commented:
Ok, I did open a new mail ----> Drag the files ----> I opened the VBA editor.

Sorry if I am still not following you.
Qlemo"Batchelor", Developer and EE Topic AdvisorCommented:
Try if this sub works for you. You can apply it to an opened or selected mail (works both). But be aware the original mail gets deleted.
Sub SendAllAttachments()
Dim srcItm As Object, att As Attachment
  If TypeName(Outlook.ActiveWindow) = "Explorer" Then
    Set srcItm = Outlook.ActiveExplorer.Selection.Item(1)
    Set srcItm = Outlook.ActiveInspector.CurrentItem
  End If
  If srcItm.Class = olMail Then
    For Each att In srcItm.Attachments
      With Application.CreateItem(olMailItem)
        .To = srcItm.To
        .CC = srcItm.CC
        .Subject = att.FileName
        .Attachments.Add att
      End With
  End If
End Sub

Open in new window

Triggering this code can be done in many ways. As-is, you should add a button in your quick access bar either of Outlook or the Edit Mail form (use the small down error in that bar to edit). You should see the sub in "Macros" if you do. Add it by moving it to the right, and choose an icon if you like.
After having added the button, all you have to do is select the mail or open/create it, then press that particular button.

Another approach for triggering the code is by using a rule "on send", but that requires to change the sub slightly.

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
awesomejohn19Author Commented:
Thanks, I think this is exactly what I am looking for but it doesnt work for some reason. I open a mail window with the attachments and hit the macro button and nothing happens. What might be the reason?
awesomejohn19Author Commented:
Ok sorry, Macros were disabled. It gives a runtime error 438 - object doesn't support this property or method. It highlights attachments.add att  line
Qlemo"Batchelor", Developer and EE Topic AdvisorCommented:
Oops, forgot about this question - sorry.
Replace olMailItem by olMail in line 10.
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

From novice to tech pro — start learning today.