Corey wrote:
this link may assist you
http://www.cpearson.com/excel/ontime.htm
--
Regards
Corey
wrote in message
oups.com...
Does anyone know how can I automate
an email of an excel workbook(attached)
to be sent out weekly?
Thanks!!
Michelle
Okay so here's this frankenstein code I patched together. I keep
getting an error about the Outlook.Appplication being not defined.
I'm wondering if I could put this code in an outlook project... but how
can I make it run if the workbook is closed?
GAR!
Sub Send_Msg()
Dim objOL As New Outlook.Application
Dim objMail As MailItem
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
If today() = "Saturday" Then
Exit Sub
Else
If today() = "Sunday" Then
Exit Sub
Else
If today() = "Monday" Then
Exit Sub
Else
If today() = "Tuesday" Then
Exit Sub
Else
If today() = "Wednesday" Then
Exit Sub
Else
If today() = "Thursday" Then
Exit Sub
Else
If today() = "Friday" Then
Application.OnTime ("24:00:00")
With objMail
.To = "
.Subject = "Project Status Report"
.Body = Range("A1:" & CurrentRegion)
.AddAttachment "C:\Sales\Projects
Status.xls"
.Display
End With
End If
End If
End If
End If
End If
End If
End If
Set objMail = Nothing
Set objOL = Nothing
End Sub
Any help would be great!, thanks!!! :)