bacon
09-21-2004, 02:52 AM
Hello,
I have a script that automatically attaches a spreadsheet to an email and sends it to an address list.. Some of the users of the spreadsheet have asked for the facilicty to add a comment to the email before it sends.. is this possible?
the code is:
Sub eMailActiveWorkbook()
Dim OL As Object
Dim EmailItem As Object
Dim Wb As Workbook
ActiveWorkbook.Save
Application.ScreenUpdating = False
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(olMailItem)
Set Wb = ActiveWorkbook
Wb.Save
With EmailItem
.Subject = "I Fowards Spreadsheet has been updated"
.Body = "" & vbCrLf & _
"" & vbCrLf & _
""
.To = "email address list
.Importance = olImportanceHigh 'Or olImprotanceHigh Or olImprotanceLow
.Attachments.Add Wb.FullName
.Send
End With
Application.ScreenUpdating = True
Set Wb = Nothing
Set OL = Nothing
Set EmailItem = Nothing
End Sub
Many many thanks
Bacon
I have a script that automatically attaches a spreadsheet to an email and sends it to an address list.. Some of the users of the spreadsheet have asked for the facilicty to add a comment to the email before it sends.. is this possible?
the code is:
Sub eMailActiveWorkbook()
Dim OL As Object
Dim EmailItem As Object
Dim Wb As Workbook
ActiveWorkbook.Save
Application.ScreenUpdating = False
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(olMailItem)
Set Wb = ActiveWorkbook
Wb.Save
With EmailItem
.Subject = "I Fowards Spreadsheet has been updated"
.Body = "" & vbCrLf & _
"" & vbCrLf & _
""
.To = "email address list
.Importance = olImportanceHigh 'Or olImprotanceHigh Or olImprotanceLow
.Attachments.Add Wb.FullName
.Send
End With
Application.ScreenUpdating = True
Set Wb = Nothing
Set OL = Nothing
Set EmailItem = Nothing
End Sub
Many many thanks
Bacon