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