Ron,
I had already read your website, but it cant work.
When i press Excel email icon, there are three selections : recipient,
cc and subject. And then, i press 'send this sheet', the active sheet
data will send out.
The problem was the 'email subject' cannot automatically update from
specific cell.
Therefore, i modify your macro as follows:
Sub Mail_ActiveSheet()
Dim wb As Workbook
Dim strdate As String
Dim cell As Range
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Application.ScreenUpdating = False
Set wb = ActiveWorkbook
With wb
..SendMail "(e-mail address removed)", _
"Form No. " & Range("R1") & " Serial No. " & Range("R9")
..ChangeFileAccess xlReadOnly
Kill .FullName
..Close False
End With
For Each cell In Sheets("mySheet").Range("A1:V50")
Next cell
Application.ScreenUpdating = True
End Sub
------------
In the subject line, it can update automatically
"Form No. " & Range("R1") & " Serial No. " & Range("R9")
But the body text cant update, it did not send out.
So, i use the following but it still cant work
..SendMail Sheets("mysheet").Range("A1:V50")
Now, i have two aspects.
May i update the 'subject line' from specific cell (Cell R1 and R9)when
i use Excel email icon (is it possible not to update Microsoft Outlook
Library).
Second one, how do i update the macro to include body text?
Actually, i prefer the first one (this is my preference) because my
colleagues are not too familiar with Macro although i request them to
hit several keys.
Thanks in advance.
Raymond
