Sends Attachment with Email

Hey guys,

Wasn't getting any answers from my other thread so I figured I start a new one.

Its a different problem, but related to the other so I'll link over to that one for reference.

http://www.excelforum.com/showthread...97#post1946497

My email is going out perfectly, but now its attaching a jpg attachment of the picture to the email. (theres a picture in cell A1)

1. Are there any lines of code I could add to this to eliminate the attachment from being sent out?

2. Is there a line I could replace the To: line with that would send out to everyone in my contact list seperately? (I don't want the email blocked by peoples spamblocker)


This is what my code looks like now:

Sub Send_Selection_Or_ActiveSheet_with_MailEnvelope()
    Dim Sendrng As Range

    On Error GoTo StopMacro

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    'Note: if the selection is one cell it will send the whole worksheet
    Set Sendrng = Selection

    'Create the mail and send it
    With Sendrng

        ActiveWorkbook.EnvelopeVisible = True
        With .Parent.MailEnvelope

            With .Item
                .To = "My Email Address"
                .Subject = "Blah Blah Blah"
                .Send
            End With

        End With
    End With

StopMacro:
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
    ActiveWorkbook.EnvelopeVisible = False

End Sub

Help is always appreciated.

Thanks in advance.

Just Bump'n for some help..

Figured out the second part, but there is still an attachment being sent out..

HELP!

Last bump then I'm givin upp