Mixing
Pasting to Outlook from excel drops the last row's border line
0
I have this code that auto filters based on criteria and then copies selected columns to a new email. The problem I have been having is that if I have less than 11 records the data pasted to outlook drops the bottom line of the border (very odd behavior). I have tried other column numbers to test the "less than 11" theory and it behaves the same way regardless of the column that I am auto filtering from. I am using a popular function called RangetoHTML.
Here is the code for both my auto filter code and the RangetoHTML function:
Sub EmailNoAppraisal()
ActiveSheet.Unprotect
Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object
Dim Signature As String
Dim LastRw As String
Dim r As Range
Set r = ActiveSheet.Range("$a$9:$bu$500")
If (ActiveSheet.AutoFilterMode And ActiveSheet.FilterMode) Or ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
ActiveSheet.Range("$a$9:$bu$500").AutoFilter Field:=41, Criteria1:=""
ActiveSheet.Range("$a$9:$bu$500").AutoFilter Field:=2, Criteria1:="<>"
Range(Cells(r.Rows.Count + 1, 1), Cells(Rows.Count, Columns.Count)).EntireRow.Hidden = True
Range("$a$9:$bu$500").Sort Key1:=Range("L10"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.ScrollColumn = 41
Set rng = Nothing
' Only send the visible cells in the selection.
LastRw = ActiveSheet.Range("E9").End(xlDown).Row
Set rng = Application.Union(ActiveSheet.Range("A9:B" & LastRw), _
ActiveSheet.Range("AG9:AG" & LastRw), _
ActiveSheet.Range("C9:C" & LastRw), _
ActiveSheet.Range("E9:E" & LastRw), _
ActiveSheet.Range("I9:I" & LastRw), _
ActiveSheet.Range("H9:H" & LastRw), _
ActiveSheet.Range("O9:O" & LastRw), _
ActiveSheet.Range("E9:E" & LastRw), _
ActiveSheet.Range("Y9:Y" & LastRw), _
ActiveSheet.Range("AH9:AH" & LastRw), _
ActiveSheet.Range("AC9:AC" & LastRw), _
ActiveSheet.Range("AZ9:AZ" & LastRw), _
ActiveSheet.Range("AO9:AO" & LastRw), _
ActiveSheet.Range("BL9:BL" & LastRw))
If rng Is Nothing Then
MsgBox "The selection is not a range or the sheet is protected. " & _
vbNewLine & "Please correct and try again.", vbOKOnly
Exit Sub
End If
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.Display
End With
Signature = OutMail.HTMLBody
strbody = "Team, please see list below of loans that have no appraisal ordered. Please make sure that the loan notes indicate the point of contact for appraisal and that" & "<u><b> the fee is collected.</u></b>" & "<br />" & "<br />" & "<u><b>Summary:</u></b>" & "<br />" & "Loan Summary: " & ActiveSheet.Range("B1") & "<br />" & "Total" & Split(ActiveSheet.Range("B2").Text, ".")(0) & "<br />"
With OutMail
.to = "Team Cerrato"
'.cc =
.Subject = "Loans with appraisal not ordered"
.HTMLBody = "<BODY style=font-size:11pt;font-family:Calibri>" & "</p>" & strbody & RangetoHTML(rng) & Signature
.Display
End With
On Error GoTo 0
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
Range("A8").Value = "Current Filter = Loans with no appraisal ordered"
End Sub
Function RangetoHTML(rng As Range)
ActiveSheet.Unprotect
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") & ".htm"
'Copy the range and create a new workbook to past the data in
rng.Borders.LineStyle = xlContinuous
rng.Copy
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
'Publish the sheet to a htm file
With TempWB.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=TempFile, _
Sheet:=TempWB.Sheets(1).Name, _
Source:=TempWB.Sheets(1).UsedRange.Address, _
HtmlType:=xlHtmlStatic)
.Publish (True)
End With
'Read all data from the htm file into RangetoHTML
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
RangetoHTML = ts.ReadAll
ts.Close
RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", "align=left x:publishsource=")
'Close TempWB
TempWB.Close savechanges:=False
'Delete the htm file we used in this function
Kill TempFile
Set ts = Nothing
Set fso = Nothing
Set TempWB = Nothing
End Function
excel vba excel-vba
edited Jan 7 at 8:47
Pᴇʜ
25k63052
asked Jan 2 at 23:19
MECMEC
697
add a comment |
0
I have this code that auto filters based on criteria and then copies selected columns to a new email. The problem I have been having is that if I have less than 11 records the data pasted to outlook drops the bottom line of the border (very odd behavior). I have tried other column numbers to test the "less than 11" theory and it behaves the same way regardless of the column that I am auto filtering from. I am using a popular function called RangetoHTML.
Here is the code for both my auto filter code and the RangetoHTML function:
Sub EmailNoAppraisal()
ActiveSheet.Unprotect
Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object
Dim Signature As String
Dim LastRw As String
Dim r As Range
Set r = ActiveSheet.Range("$a$9:$bu$500")
If (ActiveSheet.AutoFilterMode And ActiveSheet.FilterMode) Or ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
ActiveSheet.Range("$a$9:$bu$500").AutoFilter Field:=41, Criteria1:=""
ActiveSheet.Range("$a$9:$bu$500").AutoFilter Field:=2, Criteria1:="<>"
Range(Cells(r.Rows.Count + 1, 1), Cells(Rows.Count, Columns.Count)).EntireRow.Hidden = True
Range("$a$9:$bu$500").Sort Key1:=Range("L10"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.ScrollColumn = 41
Set rng = Nothing
' Only send the visible cells in the selection.
LastRw = ActiveSheet.Range("E9").End(xlDown).Row
Set rng = Application.Union(ActiveSheet.Range("A9:B" & LastRw), _
ActiveSheet.Range("AG9:AG" & LastRw), _
ActiveSheet.Range("C9:C" & LastRw), _
ActiveSheet.Range("E9:E" & LastRw), _
ActiveSheet.Range("I9:I" & LastRw), _
ActiveSheet.Range("H9:H" & LastRw), _
ActiveSheet.Range("O9:O" & LastRw), _
ActiveSheet.Range("E9:E" & LastRw), _
ActiveSheet.Range("Y9:Y" & LastRw), _
ActiveSheet.Range("AH9:AH" & LastRw), _
ActiveSheet.Range("AC9:AC" & LastRw), _
ActiveSheet.Range("AZ9:AZ" & LastRw), _
ActiveSheet.Range("AO9:AO" & LastRw), _
ActiveSheet.Range("BL9:BL" & LastRw))
If rng Is Nothing Then
MsgBox "The selection is not a range or the sheet is protected. " & _
vbNewLine & "Please correct and try again.", vbOKOnly
Exit Sub
End If
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.Display
End With
Signature = OutMail.HTMLBody
strbody = "Team, please see list below of loans that have no appraisal ordered. Please make sure that the loan notes indicate the point of contact for appraisal and that" & "<u><b> the fee is collected.</u></b>" & "<br />" & "<br />" & "<u><b>Summary:</u></b>" & "<br />" & "Loan Summary: " & ActiveSheet.Range("B1") & "<br />" & "Total" & Split(ActiveSheet.Range("B2").Text, ".")(0) & "<br />"
With OutMail
.to = "Team Cerrato"
'.cc =
.Subject = "Loans with appraisal not ordered"
.HTMLBody = "<BODY style=font-size:11pt;font-family:Calibri>" & "</p>" & strbody & RangetoHTML(rng) & Signature
.Display
End With
On Error GoTo 0
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
Range("A8").Value = "Current Filter = Loans with no appraisal ordered"
End Sub
Function RangetoHTML(rng As Range)
ActiveSheet.Unprotect
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") & ".htm"
'Copy the range and create a new workbook to past the data in
rng.Borders.LineStyle = xlContinuous
rng.Copy
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
'Publish the sheet to a htm file
With TempWB.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=TempFile, _
Sheet:=TempWB.Sheets(1).Name, _
Source:=TempWB.Sheets(1).UsedRange.Address, _
HtmlType:=xlHtmlStatic)
.Publish (True)
End With
'Read all data from the htm file into RangetoHTML
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
RangetoHTML = ts.ReadAll
ts.Close
RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", "align=left x:publishsource=")
'Close TempWB
TempWB.Close savechanges:=False
'Delete the htm file we used in this function
Kill TempFile
Set ts = Nothing
Set fso = Nothing
Set TempWB = Nothing
End Function
excel vba excel-vba
edited Jan 7 at 8:47
Pᴇʜ
25k63052
asked Jan 2 at 23:19
MECMEC
697
add a comment |
0
0
0
I have this code that auto filters based on criteria and then copies selected columns to a new email. The problem I have been having is that if I have less than 11 records the data pasted to outlook drops the bottom line of the border (very odd behavior). I have tried other column numbers to test the "less than 11" theory and it behaves the same way regardless of the column that I am auto filtering from. I am using a popular function called RangetoHTML.
Here is the code for both my auto filter code and the RangetoHTML function:
Sub EmailNoAppraisal()
ActiveSheet.Unprotect
Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object
Dim Signature As String
Dim LastRw As String
Dim r As Range
Set r = ActiveSheet.Range("$a$9:$bu$500")
If (ActiveSheet.AutoFilterMode And ActiveSheet.FilterMode) Or ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
ActiveSheet.Range("$a$9:$bu$500").AutoFilter Field:=41, Criteria1:=""
ActiveSheet.Range("$a$9:$bu$500").AutoFilter Field:=2, Criteria1:="<>"
Range(Cells(r.Rows.Count + 1, 1), Cells(Rows.Count, Columns.Count)).EntireRow.Hidden = True
Range("$a$9:$bu$500").Sort Key1:=Range("L10"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.ScrollColumn = 41
Set rng = Nothing
' Only send the visible cells in the selection.
LastRw = ActiveSheet.Range("E9").End(xlDown).Row
Set rng = Application.Union(ActiveSheet.Range("A9:B" & LastRw), _
ActiveSheet.Range("AG9:AG" & LastRw), _
ActiveSheet.Range("C9:C" & LastRw), _
ActiveSheet.Range("E9:E" & LastRw), _
ActiveSheet.Range("I9:I" & LastRw), _
ActiveSheet.Range("H9:H" & LastRw), _
ActiveSheet.Range("O9:O" & LastRw), _
ActiveSheet.Range("E9:E" & LastRw), _
ActiveSheet.Range("Y9:Y" & LastRw), _
ActiveSheet.Range("AH9:AH" & LastRw), _
ActiveSheet.Range("AC9:AC" & LastRw), _
ActiveSheet.Range("AZ9:AZ" & LastRw), _
ActiveSheet.Range("AO9:AO" & LastRw), _
ActiveSheet.Range("BL9:BL" & LastRw))
If rng Is Nothing Then
MsgBox "The selection is not a range or the sheet is protected. " & _
vbNewLine & "Please correct and try again.", vbOKOnly
Exit Sub
End If
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.Display
End With
Signature = OutMail.HTMLBody
strbody = "Team, please see list below of loans that have no appraisal ordered. Please make sure that the loan notes indicate the point of contact for appraisal and that" & "<u><b> the fee is collected.</u></b>" & "<br />" & "<br />" & "<u><b>Summary:</u></b>" & "<br />" & "Loan Summary: " & ActiveSheet.Range("B1") & "<br />" & "Total" & Split(ActiveSheet.Range("B2").Text, ".")(0) & "<br />"
With OutMail
.to = "Team Cerrato"
'.cc =
.Subject = "Loans with appraisal not ordered"
.HTMLBody = "<BODY style=font-size:11pt;font-family:Calibri>" & "</p>" & strbody & RangetoHTML(rng) & Signature
.Display
End With
On Error GoTo 0
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
Range("A8").Value = "Current Filter = Loans with no appraisal ordered"
End Sub
Function RangetoHTML(rng As Range)
ActiveSheet.Unprotect
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") & ".htm"
'Copy the range and create a new workbook to past the data in
rng.Borders.LineStyle = xlContinuous
rng.Copy
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
'Publish the sheet to a htm file
With TempWB.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=TempFile, _
Sheet:=TempWB.Sheets(1).Name, _
Source:=TempWB.Sheets(1).UsedRange.Address, _
HtmlType:=xlHtmlStatic)
.Publish (True)
End With
'Read all data from the htm file into RangetoHTML
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
RangetoHTML = ts.ReadAll
ts.Close
RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", "align=left x:publishsource=")
'Close TempWB
TempWB.Close savechanges:=False
'Delete the htm file we used in this function
Kill TempFile
Set ts = Nothing
Set fso = Nothing
Set TempWB = Nothing
End Function
excel vba excel-vba
edited Jan 7 at 8:47
Pᴇʜ
25k63052
asked Jan 2 at 23:19
MECMEC
697
I have this code that auto filters based on criteria and then copies selected columns to a new email. The problem I have been having is that if I have less than 11 records the data pasted to outlook drops the bottom line of the border (very odd behavior). I have tried other column numbers to test the "less than 11" theory and it behaves the same way regardless of the column that I am auto filtering from. I am using a popular function called RangetoHTML.
Here is the code for both my auto filter code and the RangetoHTML function:
Sub EmailNoAppraisal()
ActiveSheet.Unprotect
Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object
Dim Signature As String
Dim LastRw As String
Dim r As Range
Set r = ActiveSheet.Range("$a$9:$bu$500")
If (ActiveSheet.AutoFilterMode And ActiveSheet.FilterMode) Or ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
ActiveSheet.Range("$a$9:$bu$500").AutoFilter Field:=41, Criteria1:=""
ActiveSheet.Range("$a$9:$bu$500").AutoFilter Field:=2, Criteria1:="<>"
Range(Cells(r.Rows.Count + 1, 1), Cells(Rows.Count, Columns.Count)).EntireRow.Hidden = True
Range("$a$9:$bu$500").Sort Key1:=Range("L10"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.ScrollColumn = 41
Set rng = Nothing
' Only send the visible cells in the selection.
LastRw = ActiveSheet.Range("E9").End(xlDown).Row
Set rng = Application.Union(ActiveSheet.Range("A9:B" & LastRw), _
ActiveSheet.Range("AG9:AG" & LastRw), _
ActiveSheet.Range("C9:C" & LastRw), _
ActiveSheet.Range("E9:E" & LastRw), _
ActiveSheet.Range("I9:I" & LastRw), _
ActiveSheet.Range("H9:H" & LastRw), _
ActiveSheet.Range("O9:O" & LastRw), _
ActiveSheet.Range("E9:E" & LastRw), _
ActiveSheet.Range("Y9:Y" & LastRw), _
ActiveSheet.Range("AH9:AH" & LastRw), _
ActiveSheet.Range("AC9:AC" & LastRw), _
ActiveSheet.Range("AZ9:AZ" & LastRw), _
ActiveSheet.Range("AO9:AO" & LastRw), _
ActiveSheet.Range("BL9:BL" & LastRw))
If rng Is Nothing Then
MsgBox "The selection is not a range or the sheet is protected. " & _
vbNewLine & "Please correct and try again.", vbOKOnly
Exit Sub
End If
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.Display
End With
Signature = OutMail.HTMLBody
strbody = "Team, please see list below of loans that have no appraisal ordered. Please make sure that the loan notes indicate the point of contact for appraisal and that" & "<u><b> the fee is collected.</u></b>" & "<br />" & "<br />" & "<u><b>Summary:</u></b>" & "<br />" & "Loan Summary: " & ActiveSheet.Range("B1") & "<br />" & "Total" & Split(ActiveSheet.Range("B2").Text, ".")(0) & "<br />"
With OutMail
.to = "Team Cerrato"
'.cc =
.Subject = "Loans with appraisal not ordered"
.HTMLBody = "<BODY style=font-size:11pt;font-family:Calibri>" & "</p>" & strbody & RangetoHTML(rng) & Signature
.Display
End With
On Error GoTo 0
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
Range("A8").Value = "Current Filter = Loans with no appraisal ordered"
End Sub
Function RangetoHTML(rng As Range)
ActiveSheet.Unprotect
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") & ".htm"
'Copy the range and create a new workbook to past the data in
rng.Borders.LineStyle = xlContinuous
rng.Copy
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
'Publish the sheet to a htm file
With TempWB.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=TempFile, _
Sheet:=TempWB.Sheets(1).Name, _
Source:=TempWB.Sheets(1).UsedRange.Address, _
HtmlType:=xlHtmlStatic)
.Publish (True)
End With
'Read all data from the htm file into RangetoHTML
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
RangetoHTML = ts.ReadAll
ts.Close
RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", "align=left x:publishsource=")
'Close TempWB
TempWB.Close savechanges:=False
'Delete the htm file we used in this function
Kill TempFile
Set ts = Nothing
Set fso = Nothing
Set TempWB = Nothing
End Function
excel vba excel-vba
excel vba excel-vba
edited Jan 7 at 8:47
Pᴇʜ
25k63052
asked Jan 2 at 23:19
MECMEC
697
edited Jan 7 at 8:47
Pᴇʜ
25k63052
asked Jan 2 at 23:19
MECMEC
697
edited Jan 7 at 8:47
Pᴇʜ
25k63052
edited Jan 7 at 8:47
Pᴇʜ
25k63052
edited Jan 7 at 8:47
Pᴇʜ
25k63052
25k63052
asked Jan 2 at 23:19
MECMEC
697
asked Jan 2 at 23:19
MECMEC
697
asked Jan 2 at 23:19
MECMEC
697
697
add a comment |
add a comment |
0
active
oldest
votes
Your Answer
StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");
StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});
function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});
}
});
draft saved
draft discarded
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f54014449%2fpasting-to-outlook-from-excel-drops-the-last-rows-border-line%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
0
active
oldest
votes
0
active
oldest
votes
active
oldest
votes
active
oldest
votes
draft saved
draft discarded
Thanks for contributing an answer to Stack Overflow!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
draft saved
draft discarded
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f54014449%2fpasting-to-outlook-from-excel-drops-the-last-rows-border-line%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
