How could I save as pdf and send email

Hi all,

I use excel2007 and some users have (probably) an old excel version because they can not read my file sent by email. they see letters, numbers, signs- not my table! Is any way to solve this issue? sholud i change something in the code that i use?
Thanks a lot for your help.

this is the code

Private Sub CommandButton1_Click()

    Dim MyArr As Variant
    Dim last As Long
    Dim shname As Long
    Dim a As Integer
    Dim Arr() As String
    Dim N As Integer
    Dim strdate As String
    For a = 1 To 253 Step 3
        If ThisWorkbook.Sheets("mail").Cells(1, a).Value = "" Then Exit Sub
        Application.ScreenUpdating = False
        
        last = ThisWorkbook.Sheets("mail").Cells(Rows.Count, a).End(xlUp).Row
        N = 0
        For shname = 1 To last
            N = N + 1
            ReDim Preserve Arr(1 To N)
            Arr(N) = ThisWorkbook.Sheets("mail").Cells(shname, a).Value
        Next shname
        ThisWorkbook.Worksheets(Arr).Copy
        strdate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
        ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _
                            & " " & strdate & ".xls"
                On Error Resume Next
        With ThisWorkbook.Sheets("mail")
            MyArr = .Range(.Cells(1, a + 1), .Cells(Rows.Count, a + 1).End(xlUp))
         End With
        ActiveWorkbook.SendMail MyArr, ThisWorkbook.Sheets("mail").Cells(1, a + 2).Value
       
        ActiveWorkbook.ChangeFileAccess xlReadOnly
        Kill ActiveWorkbook.FullName
        ActiveWorkbook.Close False
        Application.ScreenUpdating = True
    Next a
End Sub

john

Hello John,

If your recipients have an older version of Excel (pre-2007) and your workbook is saved in 2007 format then they won't be able to read the workbook, unless they have the Office 2007 Converter installed or you save the workbook in 95-2003 format.

Hi Ross,
thank you for your prompt response. I'm trying to find a solution on my side, should i save my file before sending? i do not want to do it because it takes time, i wanna send the file via excel...is possible to modify the code to save it such as everybody to see the file (old format, pdf)?! i'm very sorry for this question but i do not know how to do it...

john

What's the plan now? Are you planning to convert to pdf?

I haven't got Outlook express, but maybe a CDO approach will work.