Send Attachment Fields to Email as Attachments

[Eljefegeneo]

Gasman: I had the same problem as you in that it failed on the line:

.To = Me.EmailTo

But will work if you use:

.To = Cstr(Me.EmailTo)

I think it has something to do with the references, but now I am way over my head.

 

[theDBguy]

Gasman: I had the same problem as you in that it failed on the line:

.To = Me.EmailTo

But will work if you use:

.To = Cstr(Me.EmailTo)

I think it has something to do with the references, but now I am way over my head.

Hi. Just curious, did you get the same error with my code on the same computer?

 

[Eljefegeneo]

Yes, same error message.

 

[theDBguy]

Yes, same error message.

Okay, thanks for confirming it. By the way, what made you think to try using the CStr() function?

 

[Eljefegeneo]

If you remember on my ever expanding thread: https://www.access-programmers.co.uk/forums/showthread.php?t=307416
On post # 25 I started using the Cstr() function. Others chimed in on this and on post #37 I said I found it on https://access-programmers.co.uk/forums/showthread.php?t=290214
As I said, way over my head, but you and others pushed me in the right direction. Thanks.

 

[Gasman]

You Sir, are a genius.

That was annoying me so much, but I could not work out what was wrong with my setup.:banghead:

I found I could set the To in he immediate window, but not the subject or body last night. However having tried again this morning it allows both those two from the immediate window as .Subject and .HTMLBody
And adding CSTR() allows the code to run.

Fortunately my code is only for me these days and I would use early binding, but it still annoyed the hell out of me.

Thank you for helping me not to go insane.

Gasman: I had the same problem as you in that it failed on the line:

.To = Me.EmailTo

But will work if you use:

.To = Cstr(Me.EmailTo)

I think it has something to do with the references, but now I am way over my head.

 

[Gasman]

Following on from the deepest thread, this also works

        .To = Me.EmailTo & ""
        .Subject = Me.EmailSubject & ""
        .HTMLBody = Me.EmailBody & ""

as does

        .To = Me.EmailTo.Value
        .Subject = Me.EmailSubject.Value
        .HTMLBody = Me.EmailBody.Value

but not particularly intuitive as we are always told .Value is the default property and does not need to be used, but in this context it does.

So three workarounds. Of the three mine my favourite would be the & "" version

 

[isladogs]

I've not really followed this thread so apologies if this has already been suggested.
Untested but I expect you'll find this also works

        .To = Nz(Me.EmailTo,"")
        .Subject = Nz(Me.EmailSubject,"")
        .HTMLBody = Nz(Me.EmailBody,"")

 

[Gasman]

Colin,

Yes that works as well.

The other method was to assign the form control values to variables.

So five ways in all to get around the problem. I think that is enough.

I've not really followed this thread so apologies if this has already been suggested.
Untested but I expect you'll find this also works

        .To = Nz(Me.EmailTo,"")
        .Subject = Nz(Me.EmailSubject,"")
        .HTMLBody = Nz(Me.EmailBody,"")

 

[theDBguy]

The deeper question I would have is how come it doesn't happen all the time? For example, I've never run into this problem when I use .To = Me.txtTo

 

[Gasman]

The deeper question I would have is how come it doesn't happen all the time? For example, I've never run into this problem when I use .To = Me.txtTo

No idea,
I was inadvertently getting around it when I was trying .To = "ww" in the immediate window, without realising it. Then I probably tried .Subject = Me.Subject and then it errored again. Never thought to try a simple string, and I would never have thought to set it via a variable as I try an avoid that unless there is a specific reason, which of course in this case, there is.

Plus it worked fine for you and the o/p?

I will not forget this quickly, evrn with my bad memory.

 

[theDBguy]

By the way, what was the error message?

 

[Gasman]

By the way, what was the error message?

Run-time error '-2147417851 (80010105)'

Method 'To' of object'_MailItem' failed

 

[theDBguy]

Run-time error '-2147417851 (80010105)'

Method 'To' of object'_MailItem' failed

Thanks! "Failed," I wonder what that means...

 

[cdoner]

@theDBguy

Hi. Hope it helps with your actual project. Good luck!

Yes sir, was able to successfully implement your code to my project. Your code was way more elegant that what I had previously. Super appreciative. I'll be studying your code for some time as I continue to challenge myself to become a better developer.

 

[theDBguy]

@theDBguy

Yes sir, was able to successfully implement your code to my project. Your code was way more elegant that what I had previously. Super appreciative. I'll be studying your code for some time as I continue to challenge myself to become a better developer.

Hi. Glad to hear you got it to work. My code is elementary. Once you understood it, you may graduate up to the one Gasman provided. Good luck with your project.