Obj Variable or with variable not set error on emailing diff jpg data to diff recipients

[BigDawg15]

I have used code from a couple different sources and have got it close but need a bit of help
to finish it up.

The code should create jpg images of the data and email one areas data to each recipient listed in
a column.

In the attached file I have two problems.
Email with Image Attachment To Each Recipient v2 - Copy.xls

1) When run, I get an Object variable or with variable not set error on the line:

Please Login or Register  to view this content.

If I uncomment

Please Login or Register  to view this content.

the code will run however it leads to my second problem:

2) The code will create 5 emails for each recipient. Each recipient should only receive one email
for their area in the order their email is listed and in the order the area is listed
(e.g. email 1 to Area 1, email 2 to Area 2).

As always, thank you for your invaluable assistance.

Regards,

BigDawg15

[xladept]

Hi Dawg,

I don't use Outlook - but, can your post your code? I may be able to deduce the problem if I can see the code

[HaHoBe]

Hi, BigDawg15,

The code will create 5 emails for each recipient.

Thatīs what you coded when you loop through the address area as well as through the data areaa by

Please Login or Register  to view this content.

And I would expect these lines to be reversed:

Please Login or Register  to view this content.

as the With-Statement starts with no value for objMail.

Besides I would recommend to use Late Binding as at least I no lomger want to have problems with broklen references while coding in 2007/2013 with an effective system in my company using 2010.

@xladept:
I wonder if you cared ro download the attachment to get a glimpse for the code.

Ciao,
Holger

[BigDawg15]

@Holger

I think some are reluctant to download files with good reason. I will work with the advice you have given and see what I can come up with.


@xladept here ya go. thank you for looking.

Please Login or Register  to view this content.

Thank you both. I may be back.

BigDawg15

[BigDawg15]

Holger,

And I would expect these lines to be reversed:

With objMail
Set objMail = objOutlook.CreateItem(0) '1 - Appointment 3 - Task

as the With-Statement starts with no value for objMail.

This fixed the first error.

Thatīs what you coded when you loop through the address area as well as through the data areaa by

For Each rngEntry In rngEntries

For i = 1 To Application.WorksheetFunction.CountA(Range("D:D"))

I understand this is where the second error is originating but unsure how to fix it.

Thank you again for your patience and assistance.

BigDawg15

[xladept]

Hi Dawg,

I'm guessing that you should change the code to:

Please Login or Register  to view this content.

[BigDawg15]

xladept,

Thank you for the edited code, however in the attachment in the OP it only sends the last set of data to
all recipients.

Not sure how to edit.

Any more ideas?

Holger?

Thanks again,

BigDawg15

[xladept]

Hi Dawg,

I guess that I'll have to guess again!

[HaHoBe]

Hi, BigDawg15,

using a loop for the entries in Column D will always get the last area to be displayed as an image. You should refer to rngEntry instead and use that as a counter, please try

Please Login or Register  to view this content.

Ciao,
Holger

[BigDawg15]

@hladept

Thanks for the effort. Your guess was better than mine.

@Holger

Thank you. Looks like you solved it.
I appreciate your assistance and I understand the code
a little more too.

Regards,

BigDawg15