Sending two different emails to two different recipients with single button using vba

Hello,

I am trying to use one button to send multiple emails to two different people. The messages and email addresses are in cells in the spread sheet, so I refer to them as ranges. When I click the button, the first email goes out perfectly, but the second one never sends. Can someone please help me? Here is what I have so far:

Please Login or Register  to view this content.

Hello ahowe,

Welcome to the Forum!

Remove the On Error Resume and On Error Goto statements. If your macro is written correctly, you will not have any errors.

If you do receive an error, note the error number and the message. Post both of these should an error occur. It will make it easier to fix the problem.

Hello ahowe,

Okay, let's try replacing the Send with Display. This will open Outlook and display the email. Let me know what happens.

Hello ahowe,

After looking closer at your code, I saw a few mistakes. Try this version.

Please Login or Register  to view this content.

Hello ahowe,

Can you post the workbook?

How To Post Your Workbook

1. At the bottom right of the Reply window, Click the button Go Advanced
2. At the top of the Your Message Window, in the first row of icons, Click the Paperclip icon.
3. Click the Add Files button at the top right in the dialog box. This displays the File Manager dialog.
4. Click the Select Files button at the bottom middle of the dialog.
5. In the new window Find the file you want to upload, select it, and Click Open.
6. You will now be back in the File Manager dialog. Click the bottom Middle button Upload File.
7. Wait until the file has completely uploaded before you exit the File Manager dialog.

Hello ahowe

I forgot that after an email is sent, Outlook sets the object to Nothing. It must be created again or an error will occur. This code works.

Please Login or Register  to view this content.