Temat: Makro do wysyłanie załącznika mailem zmiana formatu na...

Witam,
Używam excela 2010 i mam pytanie wie ktoś może jak przerobić to makro aby wysyłany mailem plik był zawsze formacie excela 2003? a następnie także zapisywany w formacie excela 2003 w podanej scieżce "C:\Users\michal\test" pod nazwą wprowadzą w InputBox. Obecenie plik jest zawsze wysyłany w formacie "xlsx"

Sub aaa()

Dim Filename As String

Filename = Application.InputBox("Podaj nazwe pliku do wysłania  i zapisania")

ActiveWorkbook.Worksheets("Arkusz1").Copy

ActiveWorkbook.SaveAs Filename

ActiveWorkbook.SendMail "michalzolyniak@o2.pl", Filename



ActiveWorkbook.SaveAs Filename:="C:\Users\michal\test\Filename"

ActiveWorkbook.Close

End Sub

Temat: Makro do wysyłanie załącznika mailem zmiana formatu na...

Dziękuje działa pierwsza część odnośnie wysyłania mailem teraz już zapisuje się formacie xls

Sub aaa()

Dim Filename As String

Dim FileFormatNum As Long

Filename = Application.InputBox("Podaj nazwe pliku do i wysłania zapisania")

ActiveWorkbook.Worksheets("Arkusz1").Copy

ActiveWorkbook.SaveAs Filename, FileFormat:=56

ActiveWorkbook.SendMail "michalzolyniak@o2.pl", Filename

Mam tylko jeszcze pytanie jak zapisać wysłany mailem plik którego nazwa jest wprowadzana zapomocą InputBox w formacie excela 2003 na dysku w scieżce: C:\Users\michal\test\"tutaj nazwa z InputBox"

ActiveWorkbook.SaveAs "C:\Users\michal\test\Filename, FileFormat:=56"

Ten kod niestety nie działa