J
John
I get an error on the ActiveWorkbook.Sheets("Impulse").Export _
Filename:=Fname, FilterName:="GIF" ... line saying error 438
Sub emailimpulse()
'Working in 2000-2007
Dim OutApp As Object
Dim OutMail As Object
Dim Fname As String
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
'fill in the file path/name of the gif file
Fname = "C:\My_impulse.gif"
'Save Chart sheet as Gif file
ActiveWorkbook.Sheets("Impulse").Export _
Filename:=Fname, FilterName:="GIF"
On Error Resume Next
With OutMail
.To = "(e-mail address removed)"
.CC = ""
.BCC = ""
.Subject = "Impulse" & " " & Format(Now, "mm-dd-yy h:mm:ss")
.Body = ""
.Attachments.Add Fname
.display 'or use .Display
End With
On Error GoTo 0
Kill Fname
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
CAN you help?
Filename:=Fname, FilterName:="GIF" ... line saying error 438
Sub emailimpulse()
'Working in 2000-2007
Dim OutApp As Object
Dim OutMail As Object
Dim Fname As String
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
'fill in the file path/name of the gif file
Fname = "C:\My_impulse.gif"
'Save Chart sheet as Gif file
ActiveWorkbook.Sheets("Impulse").Export _
Filename:=Fname, FilterName:="GIF"
On Error Resume Next
With OutMail
.To = "(e-mail address removed)"
.CC = ""
.BCC = ""
.Subject = "Impulse" & " " & Format(Now, "mm-dd-yy h:mm:ss")
.Body = ""
.Attachments.Add Fname
.display 'or use .Display
End With
On Error GoTo 0
Kill Fname
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
CAN you help?