I'm sending out a new mail message and attaching the current excel worksheet.
I would like to also include a pdf file from a seperate folder. This is the
code for the attachment of the excel document. What else would I have to
include to find the pdf and place in the same email? Thanks !

Dim mySend As Integer
mySend = MsgBox("Would you like to send document by email?", vbYesNo)
If mySend = vbNo Then
Exit Sub
End If
Application.Dialogs(xlDialogSendMail).Show


End Sub

You need other code for that

See the Outlook Object model section on this page
http://www.rondebruin.nl/sendmail.htm


See this in the code
.Attachments.Add ("C:\test.txt")



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Thanks" <(E-Mail Removed)> wrote in message news:66616982-C1FC-4B89-B253-(E-Mail Removed)...
> I'm sending out a new mail message and attaching the current excel worksheet.
> I would like to also include a pdf file from a seperate folder. This is the
> code for the attachment of the excel document. What else would I have to
> include to find the pdf and place in the same email? Thanks !
>
> Dim mySend As Integer
> mySend = MsgBox("Would you like to send document by email?", vbYesNo)
> If mySend = vbNo Then
> Exit Sub
> End If
> Application.Dialogs(xlDialogSendMail).Show
>
>
> End Sub

I've seen the variations of the code begining with

Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem

Set olApp = Outlook.Application
Set objMail = olApp.CreateItem(olMailItem)

However, I can't get past this point without an error. It is not
recognizing the outlook.application and responding with an error of "user
defined type not defined".
I am using Outlook 2003.

"Ron de Bruin" wrote:

> You need other code for that
>
> See the Outlook Object model section on this page
> http://www.rondebruin.nl/sendmail.htm
>
>
> See this in the code
> .Attachments.Add ("C:\test.txt")
>
>
>
> --
>
> Regards Ron de Bruin
> http://www.rondebruin.nl/tips.htm
>
>
> "Thanks" <(E-Mail Removed)> wrote in message news:66616982-C1FC-4B89-B253-(E-Mail Removed)...
> > I'm sending out a new mail message and attaching the current excel worksheet.
> > I would like to also include a pdf file from a seperate folder. This is the
> > code for the attachment of the excel document. What else would I have to
> > include to find the pdf and place in the same email? Thanks !
> >
> > Dim mySend As Integer
> > mySend = MsgBox("Would you like to send document by email?", vbYesNo)
> > If mySend = vbNo Then
> > Exit Sub
> > End If
> > Application.Dialogs(xlDialogSendMail).Show
> >
> >
> > End Sub
>

I use this in all my examples (late binding) because I get to many mails from people that say"It is not working"

> Dim olApp As Outlook.Application
> Dim objMail As Outlook.MailItem

In my examples you not have to set a reference to the Outlook library in the VBE

Below every example you can see how you must change the code if you want to use Early binding


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Thanks" <(E-Mail Removed)> wrote in message news:55CE6C62-4E96-41FA-8F92-(E-Mail Removed)...
> I've seen the variations of the code begining with
>
> Dim olApp As Outlook.Application
> Dim objMail As Outlook.MailItem
>
> Set olApp = Outlook.Application
> Set objMail = olApp.CreateItem(olMailItem)
>
> However, I can't get past this point without an error. It is not
> recognizing the outlook.application and responding with an error of "user
> defined type not defined".
> I am using Outlook 2003.
>
> "Ron de Bruin" wrote:
>
>> You need other code for that
>>
>> See the Outlook Object model section on this page
>> http://www.rondebruin.nl/sendmail.htm
>>
>>
>> See this in the code
>> .Attachments.Add ("C:\test.txt")
>>
>>
>>
>> --
>>
>> Regards Ron de Bruin
>> http://www.rondebruin.nl/tips.htm
>>
>>
>> "Thanks" <(E-Mail Removed)> wrote in message news:66616982-C1FC-4B89-B253-(E-Mail Removed)...
>> > I'm sending out a new mail message and attaching the current excel worksheet.
>> > I would like to also include a pdf file from a seperate folder. This is the
>> > code for the attachment of the excel document. What else would I have to
>> > include to find the pdf and place in the same email? Thanks !
>> >
>> > Dim mySend As Integer
>> > mySend = MsgBox("Would you like to send document by email?", vbYesNo)
>> > If mySend = vbNo Then
>> > Exit Sub
>> > End If
>> > Application.Dialogs(xlDialogSendMail).Show
>> >
>> >
>> > End Sub
>>

I still can't get the code to work by using either option(early or late
binding). I can't seem to get it to recognize the "outlook" portion of the
code. I've tried selecting different references but that hasn't worked.
I've copied some of your code ver batum and still comes up with errors at the
same point. How specifically do set a reference to the Outlook library?

"Ron de Bruin" wrote:

> I use this in all my examples (late binding) because I get to many mails from people that say"It is not working"
>
> > Dim olApp As Outlook.Application
> > Dim objMail As Outlook.MailItem
>
> In my examples you not have to set a reference to the Outlook library in the VBE
>
> Below every example you can see how you must change the code if you want to use Early binding
>
>
> --
>
> Regards Ron de Bruin
> http://www.rondebruin.nl/tips.htm
>
>
> "Thanks" <(E-Mail Removed)> wrote in message news:55CE6C62-4E96-41FA-8F92-(E-Mail Removed)...
> > I've seen the variations of the code begining with
> >
> > Dim olApp As Outlook.Application
> > Dim objMail As Outlook.MailItem
> >
> > Set olApp = Outlook.Application
> > Set objMail = olApp.CreateItem(olMailItem)
> >
> > However, I can't get past this point without an error. It is not
> > recognizing the outlook.application and responding with an error of "user
> > defined type not defined".
> > I am using Outlook 2003.
> >
> > "Ron de Bruin" wrote:
> >
> >> You need other code for that
> >>
> >> See the Outlook Object model section on this page
> >> http://www.rondebruin.nl/sendmail.htm
> >>
> >>
> >> See this in the code
> >> .Attachments.Add ("C:\test.txt")
> >>
> >>
> >>
> >> --
> >>
> >> Regards Ron de Bruin
> >> http://www.rondebruin.nl/tips.htm
> >>
> >>
> >> "Thanks" <(E-Mail Removed)> wrote in message news:66616982-C1FC-4B89-B253-(E-Mail Removed)...
> >> > I'm sending out a new mail message and attaching the current excel worksheet.
> >> > I would like to also include a pdf file from a seperate folder. This is the
> >> > code for the attachment of the excel document. What else would I have to
> >> > include to find the pdf and place in the same email? Thanks !
> >> >
> >> > Dim mySend As Integer
> >> > mySend = MsgBox("Would you like to send document by email?", vbYesNo)
> >> > If mySend = vbNo Then
> >> > Exit Sub
> >> > End If
> >> > Application.Dialogs(xlDialogSendMail).Show
> >> >
> >> >
> >> > End Sub
> >>
>

Do you have Outlook ?
With Outlook Express the code is not working


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Thanks" <(E-Mail Removed)> wrote in message news:C7EBEF1C-D5F4-426F-BB5A-(E-Mail Removed)...
>I still can't get the code to work by using either option(early or late
> binding). I can't seem to get it to recognize the "outlook" portion of the
> code. I've tried selecting different references but that hasn't worked.
> I've copied some of your code ver batum and still comes up with errors at the
> same point. How specifically do set a reference to the Outlook library?
>
> "Ron de Bruin" wrote:
>
>> I use this in all my examples (late binding) because I get to many mails from people that say"It is not working"
>>
>> > Dim olApp As Outlook.Application
>> > Dim objMail As Outlook.MailItem
>>
>> In my examples you not have to set a reference to the Outlook library in the VBE
>>
>> Below every example you can see how you must change the code if you want to use Early binding
>>
>>
>> --
>>
>> Regards Ron de Bruin
>> http://www.rondebruin.nl/tips.htm
>>
>>
>> "Thanks" <(E-Mail Removed)> wrote in message news:55CE6C62-4E96-41FA-8F92-(E-Mail Removed)...
>> > I've seen the variations of the code begining with
>> >
>> > Dim olApp As Outlook.Application
>> > Dim objMail As Outlook.MailItem
>> >
>> > Set olApp = Outlook.Application
>> > Set objMail = olApp.CreateItem(olMailItem)
>> >
>> > However, I can't get past this point without an error. It is not
>> > recognizing the outlook.application and responding with an error of "user
>> > defined type not defined".
>> > I am using Outlook 2003.
>> >
>> > "Ron de Bruin" wrote:
>> >
>> >> You need other code for that
>> >>
>> >> See the Outlook Object model section on this page
>> >> http://www.rondebruin.nl/sendmail.htm
>> >>
>> >>
>> >> See this in the code
>> >> .Attachments.Add ("C:\test.txt")
>> >>
>> >>
>> >>
>> >> --
>> >>
>> >> Regards Ron de Bruin
>> >> http://www.rondebruin.nl/tips.htm
>> >>
>> >>
>> >> "Thanks" <(E-Mail Removed)> wrote in message news:66616982-C1FC-4B89-B253-(E-Mail Removed)...
>> >> > I'm sending out a new mail message and attaching the current excel worksheet.
>> >> > I would like to also include a pdf file from a seperate folder. This is the
>> >> > code for the attachment of the excel document. What else would I have to
>> >> > include to find the pdf and place in the same email? Thanks !
>> >> >
>> >> > Dim mySend As Integer
>> >> > mySend = MsgBox("Would you like to send document by email?", vbYesNo)
>> >> > If mySend = vbNo Then
>> >> > Exit Sub
>> >> > End If
>> >> > Application.Dialogs(xlDialogSendMail).Show
>> >> >
>> >> >
>> >> > End Sub
>> >>
>>

If you use Outlook see
http://www.rondebruin.nl/mail/problems.htm

Good night



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Ron de Bruin" <(E-Mail Removed)> wrote in message news:OvEjsGB%(E-Mail Removed)...
> Do you have Outlook ?
> With Outlook Express the code is not working
>
>
> --
>
> Regards Ron de Bruin
> http://www.rondebruin.nl/tips.htm
>
>
> "Thanks" <(E-Mail Removed)> wrote in message news:C7EBEF1C-D5F4-426F-BB5A-(E-Mail Removed)...
>>I still can't get the code to work by using either option(early or late
>> binding). I can't seem to get it to recognize the "outlook" portion of the
>> code. I've tried selecting different references but that hasn't worked.
>> I've copied some of your code ver batum and still comes up with errors at the
>> same point. How specifically do set a reference to the Outlook library?
>>
>> "Ron de Bruin" wrote:
>>
>>> I use this in all my examples (late binding) because I get to many mails from people that say"It is not working"
>>>
>>> > Dim olApp As Outlook.Application
>>> > Dim objMail As Outlook.MailItem
>>>
>>> In my examples you not have to set a reference to the Outlook library in the VBE
>>>
>>> Below every example you can see how you must change the code if you want to use Early binding
>>>
>>>
>>> --
>>>
>>> Regards Ron de Bruin
>>> http://www.rondebruin.nl/tips.htm
>>>
>>>
>>> "Thanks" <(E-Mail Removed)> wrote in message news:55CE6C62-4E96-41FA-8F92-(E-Mail Removed)...
>>> > I've seen the variations of the code begining with
>>> >
>>> > Dim olApp As Outlook.Application
>>> > Dim objMail As Outlook.MailItem
>>> >
>>> > Set olApp = Outlook.Application
>>> > Set objMail = olApp.CreateItem(olMailItem)
>>> >
>>> > However, I can't get past this point without an error. It is not
>>> > recognizing the outlook.application and responding with an error of "user
>>> > defined type not defined".
>>> > I am using Outlook 2003.
>>> >
>>> > "Ron de Bruin" wrote:
>>> >
>>> >> You need other code for that
>>> >>
>>> >> See the Outlook Object model section on this page
>>> >> http://www.rondebruin.nl/sendmail.htm
>>> >>
>>> >>
>>> >> See this in the code
>>> >> .Attachments.Add ("C:\test.txt")
>>> >>
>>> >>
>>> >>
>>> >> --
>>> >>
>>> >> Regards Ron de Bruin
>>> >> http://www.rondebruin.nl/tips.htm
>>> >>
>>> >>
>>> >> "Thanks" <(E-Mail Removed)> wrote in message news:66616982-C1FC-4B89-B253-(E-Mail Removed)...
>>> >> > I'm sending out a new mail message and attaching the current excel worksheet.
>>> >> > I would like to also include a pdf file from a seperate folder. This is the
>>> >> > code for the attachment of the excel document. What else would I have to
>>> >> > include to find the pdf and place in the same email? Thanks !
>>> >> >
>>> >> > Dim mySend As Integer
>>> >> > mySend = MsgBox("Would you like to send document by email?", vbYesNo)
>>> >> > If mySend = vbNo Then
>>> >> > Exit Sub
>>> >> > End If
>>> >> > Application.Dialogs(xlDialogSendMail).Show
>>> >> >
>>> >> >
>>> >> > End Sub
>>> >>
>>>

Sorry for delayed response, yes I'm using Microsoft Office Outlook 2003.

"Ron de Bruin" wrote:

> If you use Outlook see
> http://www.rondebruin.nl/mail/problems.htm
>
> Good night
>
>
>
> --
>
> Regards Ron de Bruin
> http://www.rondebruin.nl/tips.htm
>
>
> "Ron de Bruin" <(E-Mail Removed)> wrote in message news:OvEjsGB%(E-Mail Removed)...
> > Do you have Outlook ?
> > With Outlook Express the code is not working
> >
> >
> > --
> >
> > Regards Ron de Bruin
> > http://www.rondebruin.nl/tips.htm
> >
> >
> > "Thanks" <(E-Mail Removed)> wrote in message news:C7EBEF1C-D5F4-426F-BB5A-(E-Mail Removed)...
> >>I still can't get the code to work by using either option(early or late
> >> binding). I can't seem to get it to recognize the "outlook" portion of the
> >> code. I've tried selecting different references but that hasn't worked.
> >> I've copied some of your code ver batum and still comes up with errors at the
> >> same point. How specifically do set a reference to the Outlook library?
> >>
> >> "Ron de Bruin" wrote:
> >>
> >>> I use this in all my examples (late binding) because I get to many mails from people that say"It is not working"
> >>>
> >>> > Dim olApp As Outlook.Application
> >>> > Dim objMail As Outlook.MailItem
> >>>
> >>> In my examples you not have to set a reference to the Outlook library in the VBE
> >>>
> >>> Below every example you can see how you must change the code if you want to use Early binding
> >>>
> >>>
> >>> --
> >>>
> >>> Regards Ron de Bruin
> >>> http://www.rondebruin.nl/tips.htm
> >>>
> >>>
> >>> "Thanks" <(E-Mail Removed)> wrote in message news:55CE6C62-4E96-41FA-8F92-(E-Mail Removed)...
> >>> > I've seen the variations of the code begining with
> >>> >
> >>> > Dim olApp As Outlook.Application
> >>> > Dim objMail As Outlook.MailItem
> >>> >
> >>> > Set olApp = Outlook.Application
> >>> > Set objMail = olApp.CreateItem(olMailItem)
> >>> >
> >>> > However, I can't get past this point without an error. It is not
> >>> > recognizing the outlook.application and responding with an error of "user
> >>> > defined type not defined".
> >>> > I am using Outlook 2003.
> >>> >
> >>> > "Ron de Bruin" wrote:
> >>> >
> >>> >> You need other code for that
> >>> >>
> >>> >> See the Outlook Object model section on this page
> >>> >> http://www.rondebruin.nl/sendmail.htm
> >>> >>
> >>> >>
> >>> >> See this in the code
> >>> >> .Attachments.Add ("C:\test.txt")
> >>> >>
> >>> >>
> >>> >>
> >>> >> --
> >>> >>
> >>> >> Regards Ron de Bruin
> >>> >> http://www.rondebruin.nl/tips.htm
> >>> >>
> >>> >>
> >>> >> "Thanks" <(E-Mail Removed)> wrote in message news:66616982-C1FC-4B89-B253-(E-Mail Removed)...
> >>> >> > I'm sending out a new mail message and attaching the current excel worksheet.
> >>> >> > I would like to also include a pdf file from a seperate folder. This is the
> >>> >> > code for the attachment of the excel document. What else would I have to
> >>> >> > include to find the pdf and place in the same email? Thanks !
> >>> >> >
> >>> >> > Dim mySend As Integer
> >>> >> > mySend = MsgBox("Would you like to send document by email?", vbYesNo)
> >>> >> > If mySend = vbNo Then
> >>> >> > Exit Sub
> >>> >> > End If
> >>> >> > Application.Dialogs(xlDialogSendMail).Show
> >>> >> >
> >>> >> >
> >>> >> > End Sub
> >>> >>
> >>>
>