macro which sends email with attachment

[robo_kk]

Hi,

I need some small assistance with macro which sends an email with attachment.

Please Login or Register  to view this content.

Everything what is above works, until it finds a file on the harddrive. When there is no file on my harddrive I get an error. How can I fix the code so that emails will be sent even if there is no attachment? I would like to get a message that there is no file, and send it anyway, or just send without attachment.

Thank you :-)

[davesexcel]

Maybe a simple if statement? Haven't tried it, don't see a reason for it not to work though.

Please Login or Register  to view this content.

[Kaper]

Focusing on this part:
"would like to get a message that there is no file, and send it anyway"
it could go:

Please Login or Register  to view this content.

At some stage you'd probably like to chnage:

Please Login or Register  to view this content.

to:

Please Login or Register  to view this content.

to have a mail sent immediately.

[robo_kk]

Hi davesexcel,
Thank you for the response.
I tried your way but it didnt work. Maybe the reason is that in cell dane!F31 I always gets a result. It means that according to oder informations in the sheet i get a joint text as below:

Please Login or Register  to view this content.

And then, excel is looking for it on my harddrive. Do you have an idea what can I change?

THanks!

[Kaper]

OK, so the cell is not empty, just file does not exist.

Please Login or Register  to view this content.

[robo_kk]

Hi Kaper,

Thank you for the response. It is very useful. There was small misspelling in "errore" but i managed ;-)
Anyhow, i get a message about failure, but the mail does not displays.
After message, i get "Run time error '440': Indeks tablicy poza zakresem."
Do you know what might be the problem?

[Kaper]

In which line code stops? (after it stops press debug - one of code lines shall be highlighted yellow.).

The problem could be also outside of this code snippet - it runs well on my computer, see screenshot, but I had to change hyphen (-) to underscore (_) in sub name

[robo_kk]

It stops in ".Display" line.

Przechwytywanie.JPG

[Kaper]

Try running in an empty sheet does it stop too?
How long are texts in cells in column F?

[robo_kk]

in empty sheet it works.
the text is quite long, see below:

\\ampols200\Dzial Techniczny\TECHNOLOGIA\T-pipe_technologie\C_300x300_1_5000.zip

[Kaper]

How about checking if file exists before attempting to use it as attachment:

Please Login or Register  to view this content.

[robo_kk]

This is great Kaper.
Thanks a lot for your help! Now I have to go line after line to understand how you have done that :-)

Once again, thank you!