Attatching an already embedded PDF to an Email.

[CBurgess]

Okay, my problem is as follows:

My "Drawing" is embedded on Sheet1, later on in Sheet12 I click a button that'll send an automatic email to a user. I want to attatch the embedded PDF onto this email if it is at all possible??

  Dim Drawing As Object

After I've declared my variables I've tried setting the variable "Drawing" to the object, this is where I'm encountering my errors mainly "Type Mismatch" or Object Variable not set...

    Sheets("Menu").Visible = True
    Drawing = Sheet1.Shapes.range(Array("Drawing"))
    Selection.Verb Verb:=xlPrimary
    Sheets("Menu").Visible = False

At the bottom of the code, this is where i pull in the object

        .To = Sheet12.range("L8")
        .CC = ""
        .BCC = ""
        .Subject = "Arrange P&D Request"
        .htmlbody = strbody & vbNewLine & Signature
        .Attachments.Add ("Drawing")

Cheers guys, you're help is appreciated.

 

[EPURON]

What i mean't about that was "for" the person who is getting the files can copy the file onto their desktop so that it won't give a location error.

 

[CBurgess]

Yeah that's still an escape around, I don't want to have to do that. It defies the point of the question, I know how to link to another file, but I wanted to link it to the file that's already embedded. So it wouldn't require another location, just pull the already embedded file and attatch a copy of it to an email.

 

[EPURON]

That's basically how the code works but you can't change how the location works. But you can just make the person that receives it save it to their desktop.

 

[CBurgess]

Yeah i get that, thank you anyway.

I just didnt want to have to go down the route of making anyone save anything to anywhere. I wanted it to be all internal inside one file. If it can't be done, it can't be done.

 

[EPURON]

Yeah i get that, thank you anyway.

I just didnt want to have to go down the route of making anyone save anything to anywhere. I wanted it to be all internal inside one file. If it can't be done, it can't be done.

Yeah sorry.. If you want better answers to your solution then you can go to other forums that MrExcel is affiliated with :D