insert in a macro mail inputbox

[john_cash]

Hello everybody,
it is possible to insert an input box in a .To mail to choose the recipients which are in column S

Please Login or Register  to view this content.

[john_cash]

Insert here

.to = "[email protected]" '<<< destinatari

a inputbox for choose recipients in column S

[Logit]

.

Please Login or Register  to view this content.

[john_cash]

Hi logit,

.to = emailAddr

How does this work?


i can't try the macro here at home, i have excel 2007.
In the my office i have excel 365.
How is the macro set up does it work with excel 365?

[john_cash]

But with this I can choose between the names of column S or I have to put the names by hand...

Please Login or Register  to view this content.

[Logit]

.
Input the email address manually.

[john_cash]

it is possible to insert a drop-down menu to choose the names that are in the range S5:S5
or with define name = utenti (range S5:S50)

[Logit]

.
Is the ultimate goal to select ONE EMAIL ADDRESS ... or are you wanting the ability to
select MORE THAN ONE address to be included in the email TO FIELD ?

[john_cash]

Yes logit

Is the ultimate goal to select ONE EMAIL ADDRESS ... or are you wanting the ability to
select MORE THAN ONE address to be included in the email TO FIELD

the mail andress are in the range S5:S50

[john_cash]

On the net i found this.

Please Login or Register  to view this content.

Here at home I don't have the opportunity to try the macro I have excel 2007

I entered this change twice
once per .To
once for .CC
it's right?

Please Login or Register  to view this content.

[Logit]

.
Ok ... I've been trying to use your existing workbook and code for the purposes of editing to obtain the goal you are seeking.

I have not looked at your last post with the new code. Sorry.

The following does work with your existing workbook. But I removed most all of your existing code just to get it to work
as you are wanting. You will need to add back in the other lines of code.

Please Login or Register  to view this content.

[john_cash]

I don't have a chance to try the macro
but in
.To = toList
how many users / names are there?

[Logit]

.
Looking at the attached workbook download .... you will need to double click the cell in Column R adjacent to the email address in Column S that you want the
email sent to. It's like checking off which email addresses you want the email to be sent.

When you double click the cell in Column R again, the check mark goes away. It's an easy method to select and de-select the email addresses you want.

Try the workbook.

[john_cash]

Now I have seen how it works with double click that I had not seen
I made a change (which doesn't work)

I also added
.To = toList1
.CC = toList2 '<<<<

mistake here

Next i1
Next i2

error here too for double click

Private Sub Worksheet_BeforeDoubleClick( _
ByVal Target As Range, Cancel As Boolean)
Dim rInt As Range
Dim rCell As Range

Set rInt = Intersect(Target, Range("R5:R500"))
Set rInt = Intersect(Target, Range("T5:T500")) '<<<<<<

If Not rInt Is Nothing Then

[john_cash]

Hi,
hello i corrected is correct?

why does double_click no longer work in all cells of the sheet?

Please Login or Register  to view this content.

[Logit]

.
I just ran your attached workbook.

The double-click runs fine here.

[john_cash]

The double click it must work in all cells now with the macro

Private Sub Worksheet_BeforeDoubleClick( _
ByVal Target As Range, Cancel As Boolean)

it works only in macro cells in all others the sheet is disabled

[Logit]

.
Sorry ... everything works here.

I don't what to advise why it doesn't work there.

[john_cash]

In the attached file in sheet 2 double_click works
in sheet 1 only in the yellow columns

[Logit]

.
Paste the same code in the Sheet2 module :

Please Login or Register  to view this content.

[john_cash]

Maybe I mean it wrong.
The double_click of the mouse does not work in sheets with macros.
It only works in cells inserted into macros

[Logit]

.
Sorry for the confusion. I know you are trying to explain as best as you can ... however, I don't understand
what you mean.

Please try explaining a different way.

[john_cash]

Hi logit
I tried the macro Sub eMail() in the my office with excel 365 but sending does not work

error does not enter names in outlook

[Logit]

.
Try this edited version of a previous macro I posted. Look at the .CC = field in the code.
Run the attached example :

Please Login or Register  to view this content.

[john_cash]

.CC

not double click?

[Logit]

.
No. Simply enter the email address you want in the column as shown in the example workbook.

[john_cash]

Hi logit,
this macro it's your first post #11 modified

Please Login or Register  to view this content.

because

compilation error
invalid reference to next control variable

here

Next i '<<<<
Next j

[Logit]

.
I recommend to not return to your latest version of the macro.

Take the last posted version (Post #24) and re-build from there ... adding in the other code EXCEPT leaving out the DOUBLE CLICK for the CC EMAIL.

[john_cash]

O.k. logit
tomorrow I edit your new macro

[john_cash]

Hi logit
i edited your new macro.
I inserted my part of the macro inserted in the ===
I think I have something wrong.
Now Outlook does not appear and the attachment must be inserted.
john

[Logit]

.
Disregard all previous macro code.

Paste this into a REGULAR MODULE :

Please Login or Register  to view this content.

Create a new folder on your desktop and name it EMAIL

Place the attached workbook in that folder.

Refer to attached file ....

[john_cash]

Hi logit,
tomorrow I try the new modification.
thank you