Tjyylli

Why didn't Eitri join the fight?

Why do we bend a book to keep it straight?

Denied boarding although I have proper visa and documentation. To whom should I make a complaint?

When the Haste spell ends on a creature, do attackers have advantage against that creature?

Can anything be seen from the center of the Boötes void? How dark would it be?

Extracting terms with certain heads in a function

Maximum summed powersets with non-adjacent items

Using audio cues to encourage good posture

Around usage results

What is homebrew?

Delete nth line from bottom

Is it ethical to give a final exam after the professor has quit before teaching the remaining chapters of the course?

Using et al. for a last / senior author rather than for a first author

Can melee weapons be used to deliver Contact Poisons?

What do you call the main part of a joke?

What is the longest distance a player character can jump in one leap?

How can I use the Python library networkx from Mathematica?

Integration Help

Fantasy story; one type of magic grows in power with use, but the more powerful they are, they more they are drawn to travel to their source

Do I really need to have a message in a novel to appeal to readers?

Most bit efficient text communication method?

For a new assistant professor in CS, how to build/manage a publication pipeline

Does classifying an integer as a discrete log require it be part of a multiplicative group?

First console to have temporary backward compatibility

How to fix the Error to send the excel sheet and same pasted on email body [on hold]

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty{ height:90px;width:728px;box-sizing:border-box;
}

-1

Sub Send_Email_With_snapshot()

Dim sh As Worksheet

Set sh = ThisWorkbook.Sheets("Summary")

ActiveWorkbook.RefreshAll

Dim lr As Integer



lr = sh.Range("A" & Application.Rows.Count).End(xlUp).Row



sh.Range("D1:AS274").Select



Dim fso As Object

Dim ts As Object

Dim TempFile As String

Dim TempWB As Workbook



TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".html"



'Copy the range and create a new workbook to past the data in

sh.Range("D1:AS274").Select

Set TempWB = Workbooks.Add(1)

With TempWB.Sheets(1)

.Cells(1).PasteSpecial Paste:=8

.Cells(1).PasteSpecial xlPasteValues, , False, False

.Cells(1).PasteSpecial xlPasteFormats, , False, False

.Cells(1).Select

Application.CutCopyMode = False

On Error Resume Next

.DrawingObjects.Visible = True

.DrawingObjects.Delete

On Error GoTo 0

End With

With Selection.Parent.MailEnvelope.Item

    .to = "Test@Test.com"

    .cc = ""

    .Subject = sh.Range("A3").Value

    .send



End With

Application.DisplayAlerts = False

ThisWorkbook.Save

Application.DisplayAlerts = False

Application.Quit

End Sub

microsoft-excel vba

share|improve this question

edited 14 hours ago

bummi

1,50331422

asked 14 hours ago

Shaf3067Shaf3067

1

New contributor

Shaf3067 is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

put on hold as unclear what you're asking by Máté Juhász, DavidPostill♦ 14 hours ago

Please clarify your specific problem or add additional details to highlight exactly what you need. As it's currently written, it’s hard to tell exactly what you're asking. See the How to Ask page for help clarifying this question. If this question can be reworded to fit the rules in the help center, please edit the question.

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  What is the error?
  
  – Máté Juhász
  14 hours ago
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  HI I m Unable to run this code getting error 1004 i like to send the same on email and same file as a attachment without macro or paste values also Request you to please help and fix these vba code I m using 2016 excel
  
  – Shaf3067
  14 hours ago
  
  
  

  
  
  
  

add a comment | 

-1

Sub Send_Email_With_snapshot()

Dim sh As Worksheet

Set sh = ThisWorkbook.Sheets("Summary")

ActiveWorkbook.RefreshAll

Dim lr As Integer



lr = sh.Range("A" & Application.Rows.Count).End(xlUp).Row



sh.Range("D1:AS274").Select



Dim fso As Object

Dim ts As Object

Dim TempFile As String

Dim TempWB As Workbook



TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".html"



'Copy the range and create a new workbook to past the data in

sh.Range("D1:AS274").Select

Set TempWB = Workbooks.Add(1)

With TempWB.Sheets(1)

.Cells(1).PasteSpecial Paste:=8

.Cells(1).PasteSpecial xlPasteValues, , False, False

.Cells(1).PasteSpecial xlPasteFormats, , False, False

.Cells(1).Select

Application.CutCopyMode = False

On Error Resume Next

.DrawingObjects.Visible = True

.DrawingObjects.Delete

On Error GoTo 0

End With

With Selection.Parent.MailEnvelope.Item

    .to = "Test@Test.com"

    .cc = ""

    .Subject = sh.Range("A3").Value

    .send



End With

Application.DisplayAlerts = False

ThisWorkbook.Save

Application.DisplayAlerts = False

Application.Quit

End Sub

microsoft-excel vba

share|improve this question

edited 14 hours ago

bummi

1,50331422

asked 14 hours ago

Shaf3067Shaf3067

1

New contributor

Shaf3067 is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

put on hold as unclear what you're asking by Máté Juhász, DavidPostill♦ 14 hours ago

Please clarify your specific problem or add additional details to highlight exactly what you need. As it's currently written, it’s hard to tell exactly what you're asking. See the How to Ask page for help clarifying this question. If this question can be reworded to fit the rules in the help center, please edit the question.

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  What is the error?
  
  – Máté Juhász
  14 hours ago
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  HI I m Unable to run this code getting error 1004 i like to send the same on email and same file as a attachment without macro or paste values also Request you to please help and fix these vba code I m using 2016 excel
  
  – Shaf3067
  14 hours ago
  
  
  

  
  
  
  

add a comment | 

Sub Send_Email_With_snapshot()

Dim sh As Worksheet

Set sh = ThisWorkbook.Sheets("Summary")

ActiveWorkbook.RefreshAll

Dim lr As Integer



lr = sh.Range("A" & Application.Rows.Count).End(xlUp).Row



sh.Range("D1:AS274").Select



Dim fso As Object

Dim ts As Object

Dim TempFile As String

Dim TempWB As Workbook



TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".html"



'Copy the range and create a new workbook to past the data in

sh.Range("D1:AS274").Select

Set TempWB = Workbooks.Add(1)

With TempWB.Sheets(1)

.Cells(1).PasteSpecial Paste:=8

.Cells(1).PasteSpecial xlPasteValues, , False, False

.Cells(1).PasteSpecial xlPasteFormats, , False, False

.Cells(1).Select

Application.CutCopyMode = False

On Error Resume Next

.DrawingObjects.Visible = True

.DrawingObjects.Delete

On Error GoTo 0

End With

With Selection.Parent.MailEnvelope.Item

    .to = "Test@Test.com"

    .cc = ""

    .Subject = sh.Range("A3").Value

    .send



End With

Application.DisplayAlerts = False

ThisWorkbook.Save

Application.DisplayAlerts = False

Application.Quit

End Sub

microsoft-excel vba

share|improve this question

edited 14 hours ago

bummi

1,50331422

asked 14 hours ago

Shaf3067Shaf3067

1

New contributor

Shaf3067 is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

Sub Send_Email_With_snapshot()

Dim sh As Worksheet

Set sh = ThisWorkbook.Sheets("Summary")

ActiveWorkbook.RefreshAll

Dim lr As Integer



lr = sh.Range("A" & Application.Rows.Count).End(xlUp).Row



sh.Range("D1:AS274").Select



Dim fso As Object

Dim ts As Object

Dim TempFile As String

Dim TempWB As Workbook



TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".html"



'Copy the range and create a new workbook to past the data in

sh.Range("D1:AS274").Select

Set TempWB = Workbooks.Add(1)

With TempWB.Sheets(1)

.Cells(1).PasteSpecial Paste:=8

.Cells(1).PasteSpecial xlPasteValues, , False, False

.Cells(1).PasteSpecial xlPasteFormats, , False, False

.Cells(1).Select

Application.CutCopyMode = False

On Error Resume Next

.DrawingObjects.Visible = True

.DrawingObjects.Delete

On Error GoTo 0

End With

With Selection.Parent.MailEnvelope.Item

    .to = "Test@Test.com"

    .cc = ""

    .Subject = sh.Range("A3").Value

    .send



End With

Application.DisplayAlerts = False

ThisWorkbook.Save

Application.DisplayAlerts = False

Application.Quit

End Sub

share|improve this question

edited 14 hours ago

bummi

1,50331422

asked 14 hours ago

Shaf3067Shaf3067

1

New contributor

Shaf3067 is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

share|improve this question

edited 14 hours ago

bummi

1,50331422

asked 14 hours ago

Shaf3067Shaf3067

1

New contributor

Shaf3067 is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

edited 14 hours ago

bummi

1,50331422

edited 14 hours ago

bummi

1,50331422

asked 14 hours ago

Shaf3067Shaf3067

1

New contributor

Shaf3067 is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

asked 14 hours ago

Shaf3067Shaf3067

1