J
Jeff C
John Conklin answered a question earlier with the following:
I found this on a website somewhere and just put it into my database, and it
works great.
Set outl = CreateObject("Outlook.Application")
Set mail = outl.CreateItem(olMailItem)
mail.To = "(e-mail address removed)"
mail.Subject = ActiveWorkbook.Name
mail.attachments.Add (ActiveWorkbook.FullName)
mail.display
SendKeys "^{ENTER}"
Set outl = Nothing
Set mail = Nothing
It doesn't bring up that pesty Outlook warning message when sending. I have
this send an email after a certain field value is changed. I put it inthe
BeforeUpdate Event of my control.
My question - I have about 100 "send to" macros e-mailing reports to
different people. Can this be automated to send on example: every Friday?
If so how..I am too new to understand how to use John's formula above
I found this on a website somewhere and just put it into my database, and it
works great.
Set outl = CreateObject("Outlook.Application")
Set mail = outl.CreateItem(olMailItem)
mail.To = "(e-mail address removed)"
mail.Subject = ActiveWorkbook.Name
mail.attachments.Add (ActiveWorkbook.FullName)
mail.display
SendKeys "^{ENTER}"
Set outl = Nothing
Set mail = Nothing
It doesn't bring up that pesty Outlook warning message when sending. I have
this send an email after a certain field value is changed. I put it inthe
BeforeUpdate Event of my control.
My question - I have about 100 "send to" macros e-mailing reports to
different people. Can this be automated to send on example: every Friday?
If so how..I am too new to understand how to use John's formula above