Export text file with VBA (1 Viewer)

Public Sub save()
    
Dim path As String

Application.DisplayAlerts = False

path = ThisWorkbook.path & "\" & ThisWorkbook.Name

ThisWorkbook.save

'put your code to combine tabs and delete blank rows in here

ThisWorkbook.SaveAs Filename:="C:\documents and settings\%username%\Desktop\BookName.csv", FileFormat:=xlCSVMSDOS, CreateBackup:=False

thisworkbook.sendmail recipients:= "cbdfw@yahoo.com", subject:= "workbook"

Workbooks.Open path
Application.DisplayAlerts = True
Workbooks("BookName.csv").Close False
End Sub

' ' requires a reference to the Microsoft Outlook 8.0 Object Library
Sub SendAnEmailWithOutlook()
Dim desktopPath As String
desktopPath = fGetSpecialFolderLocation(CSIDL_DESKTOPDIRECTORY)
' creates and sends a new e-mail message with Outlook
Dim OLF As Outlook.MAPIFolder, olMailItem As Outlook.MailItem
Dim ToContact As Outlook.Recipient
    Set OLF = GetObject("", _
        "Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    Set olMailItem = OLF.Items.Add ' creates a new e-mail message
    With olMailItem
        .Subject = "Region 68 CDL Spreadsheet" ' message subject
        Set ToContact = .Recipients.Add("insert email address") ' add a recipient
        Set ToContact = .Recipients.Add("insert email address") ' add a recipient
        ToContact.Type = olCC ' set latest recipient as CC
        'Set ToContact = .Recipients.Add("insert email address") ' add a recipient
        'ToContact.Type = olBCC ' set latest recipient as BCC
        .Body = "Test SendAnEmailWithOutlook" & Chr(13)
        ' the message text with a line break
        .Attachments.Add "C:\R0068 CDL.csv", olByValue, , _
        "Attachment" ' insert attachment
'        .Attachments.Add "C:\FolderName\Filename.txt", olByReference, , _
             "Shortcut to Attachment" ' insert shortcut
'        .Attachments.Add "C:\FolderName\Filename.txt", olEmbeddedItem, , _
             "Embedded Attachment" ' embedded attachment
'        .Attachments.Add "C:\FolderName\Filename.txt", olOLE, , _
             "OLE Attachment" ' OLE attachment
        '.OriginatorDeliveryReportRequested = True ' delivery confirmation
        '.ReadReceiptRequested = True ' read confirmation
        '.Save ' saves the message for later editing
        .Send ' sends the e-mail message (puts it in the Outbox)
    End With
    Set ToContact = Nothing
    Set olMailItem = Nothing
    Set OLF = Nothing
End Sub