emailing a workbook from within excel

[Guest]

I have tried using both of the following methods, to send an email from
within a workbook, both have failed. The purpose for this is to notify a
manager that a report is to be looked at. I hope that someone can help.
Cheers D



Sub Mail_workbook_Outlook()
'This example send the last saved version of the Activeworkbook
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = cboxProjectDirector.Value & "@aqis.gov.au"
.CC = ""
.BCC = ""
.Subject = cboxProjectList.Value & " Status Report" & Format(Date,
"dd/mmm/yy") & ".xls"
.Body = "Hi there"
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub



Private Sub MailWorkbook()

ThisWorkbook.SendMail (cboxProjectDirector.Value &
"@aqis.gov.au",cboxProjectList.Value & " Status Report" & Format(Date,
"dd/mmm/yy"))

End Sub

 

[Corey]

Damien,
Have a look here:
http://www.rondebruin.nl/sendmail.htm

 

[Guest]

Hi Corey,
I have looked at Ron's website and with the following code I still get an
error message saying object required on the .To= cboxProjectDirector.Value &
"@aqis.gov.au" line of code. D

Sub Mail_workbook_Outlook()
'This example send the last saved version of the Activeworkbook
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = cboxProjectDirector.Value & "@aqis.gov.au"
.CC = ""
.BCC = ""
.Subject = cboxProjectList.Value & " Status Report" & Format(Date,
"dd/mmm/yy") & ".xls"
.Body = "Test email"
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

 

[Simon Lloyd]

Hi, there is a lot of help on this at Ron De Bruin's web site in hi
Excel Tips, but heres a link to is add-in that will do all that yo
need!

Regards,
Simon

http://www.rondebruin.nl/mail/add-in.ht

 

[Ron de Bruin]

Hi Damien

Is cboxProjectDirector a named cell or ?