SendMail Add-in

[AccessHelp]

Hello,

I use SendMail add-in to send my workbooks and worksheets using Outlook.
What I like to do is I would like to be able to populate the message "Sent
xx-xx-xx" (e.g. Sent 10-25-05) automatically in cell H1 of the sheet that I
use SendMail to mail my sheet. Can you guys help me with the coding?

At the same time, I don't want to mail any sheets using SendMail when there
is above message in cell H1. Please help.

Thanks.

 

[Ron de Bruin]

Hi AccessHelp

If you want that then use code from my site.
You can change and add what you want then.

http://www.rondebruin.nl/sendmail.htm

 

[AccessHelp]

Hi Ron,

Thanks for your message. I had been to your site before posting my
requests, and the page that I saw closed to what I need is "Send a mail when
a cell reaches a certain value". I think that page will give me what I need
for my send request. The macro from that page do I paste it in the normal
module in Excel?

For my first request, I don't remember seeing a page for what I need. Can
you tell me where I need to go for my first request.

I don't know you have received my email. I also sent you an email for the
same requests to (e-mail address removed).

Thanks.

 

[Ron de Bruin]

Hi AccessHelp

For my first request, I don't remember seeing a page for what I need. Can
you tell me where I need to go for my first request.

The only thing that you must do is add one code line that change the cell you want when you send the mail.

Maube like this ?

Sub Mail_ActiveSheet()
Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Application.ScreenUpdating = False
Range("H1").Value = "Send : " & strdate
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "Part of " & ThisWorkbook.Name _
& " " & strdate & ".xls"
.SendMail "(e-mail address removed)", _
"This is the Subject line"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
End Sub

I don't know you have received my email.

When I get to many mails I must delete some of them (maybe yours to <g>)