Range to a txt file attachment

[Masha92]

Hi all,

I found some articles over the internet addressing similar problems like mine but for some reason couldnt tweak it to my needs. So appreciate if you can help me with it.

I have a range in a tab that i want to attach in outlook email as a text file.

Lets assume my range is
code: Sht1.range("A2:D"&sht1.cells(cells.rows.count,"D").end(xlup).row

The txt file should be called
Code: Date & "_Error Log"

Can you please help me with it?

Thanks,
Masha

 

[DanteAmor]

Let's start with this

Change data in red by your information.

Sub Macro3()
    Dim sh As Worksheet, sh2 As Worksheet
    Dim l2 As Workbook, wFile As String, wPath As String
    Dim dam
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    Set sh = Sheets("[COLOR=#ff0000]Sheet1[/COLOR]")
    Set l2 = Workbooks.Add
    Set sh2 = l2.Sheets(1)
    sh.Range("[COLOR=#ff0000]A2:D" & sh.Range("D"[/COLOR] & Rows.Count).End(xlUp).Row).Copy
    sh2.Range("A1").PasteSpecial xlPasteAll
    
    wPath = ThisWorkbook.Path & "\"
    wFile = Format(Date, "[COLOR=#ff0000]mm-dd-yyyy[/COLOR]") & "_Error Log.txt"
    
    l2.SaveAs Filename:=wPath & wFile, FileFormat:=xlTextPrinter, CreateBackup:=False
    l2.Close False
    
    Set dam = CreateObject("Outlook.Application").CreateItem(0)
    dam.To = "[COLOR=#ff0000]mail@gmail.com[/COLOR]"
    dam.Subject = "[COLOR=#ff0000]Subject[/COLOR]"
    dam.Body = "[COLOR=#ff0000]Body[/COLOR]"
    dam.Attachments.Add wPath & wFile
    dam.Send                                'send
    'dam.Display                             'show
    MsgBox "Sent"
End Sub

 

[Masha92]

Thank you Dante!

It works pretty good.

I really appreciate it

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.