Automatic email sending?

  • Thread starter Thread starter EARTHWALKER
  • Start date Start date
E

EARTHWALKER

Hi excel gurus :D Do any of you know if there's a way where, once
spreadsheet has been updated, an automatic note or an email can be sen
to people telling them that x spreadsheet has been updated?

Even perhaps once you've updated the spreadsheet, you could have
macro which sends out lots of net send commands to inform people?

Would be really handy
 
I wouldn't have a clue on where to start there m8.

Where's Ron or Frank when you need them :
 
Hi EARTHWALKER

In OE you must use Sendkeys (not very reliable) to send the mail
Try this small example in the Thisworkbook module

It will send the mail when you save the file.

More info about sending text in the body with OE you can read here
http://www.rondebruin.nl/mail/oebody.htm

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim msg As String
Dim Recipient As String, Subj As String, HLink As String

Recipient = "(e-mail address removed)"
Subj = "Test"
msg = "Hi there the workbook is changed"

HLink = "mailto:" & Recipient & "?"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & msg
ActiveWorkbook.FollowHyperlink (HLink)
Application.Wait (Now + TimeValue("0:00:02"))
SendKeys "%s", True
End Sub

Maybe you can use CDO to do it
http://www.rondebruin.nl/cdo.htm

You don't see it then when the mail is send with CDO



--
Regards Ron de Bruin
http://www.rondebruin.nl


Ron de Bruin said:
I must go now

I give you a example this evening when i come home
Click to expand...
 
Back
Top