Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Run-time error 1004 - can anyone help with this macro please
Sub SendBradley()
Dim AWorksheet As Worksheet Dim Sendrng As Range Dim rng As Range On Error GoTo StopMacro With Application .ScreenUpdating = False .EnableEvents = False End With 'Fill in the Worksheet/range you want to mail 'Note: if you use one cell it will send the whole worksheet Set Sendrng = Worksheets("Bradley Dickinson").Range("A1:I40") 'Remember the activesheet Set AWorksheet = ActiveSheet 'Create the mail and send it With Sendrng ' Select the worksheet with the range you want to send .Parent.Select 'Remember the ActiveCell on that worksheet Set rng = ActiveCell 'Select the range you want to mail .Select ' Create the mail and send it ActiveWorkbook.EnvelopeVisible = True With .Parent.MailEnvelope ' Set the optional introduction field thats adds ' some header text to the email body. .Introduction = "Holiday Update Attached." ' In the "With .Item" part you can add more options ' See the tips on this Outlook example page. ' http://www.rondebruin.nl/mail/tips2.htm With .Item .To = ; " .Subject = "Bradleys Holiday Card has been updated" .Send End With End With 'select the original ActiveCell rng.Select End With 'Activate the sheet that was active before you run the macro AWorksheet.Select StopMacro: With Application .ScreenUpdating = True .EnableEvents = True End With ActiveWorkbook.EnvelopeVisible = False End Sub |
#2
|
|||
|
|||
Its this bit that's highlighted yellow:-
End With ActiveWorkbook.EnvelopeVisible = False Any help apprecitated Thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|