Can anyone please help?
I am trying to send quotations by email direct from a worksheet without sending the whole workbook.
I have tried the routine below, but it comes up with the error "Run-time error '438' Object doesn't support this property or method"
[vba]Sub Email()
Dim EAdd, Def, Prom, Tit
Def = "paulked@o2.co.uk"
Prom = "Email Address?"
Tit = "Enter Email Recipient"
Application.ScreenUpdating = False
With Sheets("Email")
.PageSetup.PrintArea = "C2:J57"
If Range("F29").Value = 0 Then
.Rows("29").Hidden = True 'discount
.Rows("51:52").Hidden = True
End If
EAdd = InputBox(Prom, Tit, Def)
.SendMail Recipients:=EAdd
.Rows("29").Hidden = False
.Rows("51:52").Hidden = False
End With
ActiveWindow.View = xlNormalView
End Sub
[/vba]
I would appreciate any help whatsoever.
Many thanks
Paul
Edited 10-Apr-06 by GeekGirlau. Reason: put code in VBA tags