email sheet or range to cell value vba

[Ralter649]

I would like to make a macro to E-mail of Sheet5 or Sheet5 (A:1,J:300) to Sheet5 H5 (an e-mail address) in vba.
Can you guide me in the right direction? I can make the macro I just don't know how to wright the code.

 

[MARK858]

See if the links in the link below help....

https://www.rondebruin.nl/win/s1/outlook/mail.htm

 

[Logit]

.

Option Explicit


Sub Email_Worksheet_As_Workbook()
    Sheets("Sheet1").Copy                        '<--- edit as required"
    With ActiveWorkbook
        '.Windows(1).Visible = False
        Application.DisplayAlerts = False
        .SaveAs Environ("TMP") & "\Your Sheet Name.xlsx", FileFormat:=xlWorkbookDefault, ConflictResolution:=xlLocalSessionChanges
        Application.DisplayAlerts = True
        .Close (True)
    End With
    
    With CreateObject("Outlook.Application").CreateItem(0)
        .To = "me@yahoo.com"
        .Subject = "Worksheet: " & ActiveSheet.Name
        .Body = ""
        .Attachments.Add Environ("TMP") & "\Your Sheet Name.xlsx"
        .Display
        '.send
    End With
End Sub