Mail subject from Excel range

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Snoopy - 18 Sep 2007 12:01 GMT

Hey fellows
I try once more to beg for help.
Franz har earlier given me a link to explore (thanks Franz), but my
efforts in exploring this has resulted in no success.

No my simple question is...again:
How may I use the celle/range-value of range C45 as subject text in
the mail I create?
My macro smoothly creates a copy of my woorksheet and makes it a
attachment of the mail.
The mail subject is default generated as "workbook--.xls" - I want a
more informative subject text - sampled from the cell C45.

I understand I have to use a dim-statement or something - but I am
rather clueless on the rest.

Please help me, and make my day :)

Hopefully regards
Snoopy

Reply to this Message

Bob Phillips - 18 Sep 2007 12:44 GMT

.Subject = Range("C45").Value

but the code already present would help

Signature

---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

> Hey fellows
> I try once more to beg for help.
[quoted text clipped - 16 lines]
> Hopefully regards
> Snoopy

Reply to this Message

Snoopy - 18 Sep 2007 13:44 GMT

> .Subject = Range("C45").Value
>
[quoted text clipped - 30 lines]
>
> - Vis sitert tekst -

Thanks Bob
I still don't get it

This is my macro:
Private Sub CommandButton1_Click()
Columns("A:K").Select
Selection.Copy
Range("A1").Select
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.DisplayGridlines = False
'
Application.Dialogs(xlDialogSendMail).Show

End Sub

What next?

Regards
Snoopy

Reply to this Message

Bob Phillips - 18 Sep 2007 14:14 GMT

That is why the code helps :-)

Application.Dialogs(xlDialogSendMail).Show , Range("C45").Value

should do it for you

Signature

HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

>> .Subject = Range("C45").Value
>>
[quoted text clipped - 56 lines]
> Regards
> Snoopy

Reply to this Message