Hello,
I have a piece of code that automatically saves and send a file. However this code works fine in Excel 2000 - 2007 but doesn't work in Excel 97.
Does anyone know how to fix this problem?
Thank you in advance.
DitzySuz
Sub SaveandSend()
ThisFile = Range("C6").Value
ThisFile1 = Range("C5").Value
ThisFile2 = Range("C3").Value
ActiveWorkbook.SaveAs Filename:="Survey - " & ThisFile & ThisFile1 & ThisFile2
'Working in 2000-2007
'This example send the last saved version of the Activeworkbook
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = ""
.CC = ""
.BCC = "lees6@anz.com"
.Subject = "BM Survey"
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Configuration: Windows XP Internet Explorer 6.0
Cod4 pc error starting up Code 28 error dvd drive windows 7 Connection vb to access code Directx error cod2 windows 7 Error cod4 could not find zone Error code 0xe0000227 Geforce 8500 gt error code 10 How to close all other applications through vb coding How to fix c:/windows/system32?isaas.exe terminated unexpectedly with status code 1073740972 error message How to fix code 646 error How to write a vb code to open a file and replace the content from excel table by clicking a command button in excel Http 400 error when trying to go to website Mobile broadband network connection operation (context activation) failed with error code 0 Vb code for finding taxt from excel file Vb code for opening ftp and transferring files Vb code to read computer name Visual basic 400 error Wlm 9 error code regedit