從Excel發送Outlook電子郵件將最後一行範圍文本放在正文消息中

Question

我想從我的Excel電子表格中發送一封電子郵件，其中包含從列A到列G的最後一行範圍的正文。

我試圖添加我的最後一行範圍到下面的代碼沒有成功。

你能幫忙嗎？

Sub Mail_LastRowRange_Outlook() 

Dim OutApp As Object 
Dim OutMail As Object 
Dim strbody As String 

Set OutApp = CreateObject("Outlook.Application") 
Set OutMail = OutApp.CreateItem(0) 

strbody = "Thanks for your help" & '**I Would like to insert_ 
      my last row range from column A to G in here** 

On Error Resume Next 
With OutMail 
    .To = "" 
    .CC = "" 
    .BCC = "" 
    .Subject = "Looking for a solution" 
    .Body = strbody 
    .Attachments.Add ("C:\test.txt") 
    .Send 
End With 
On Error GoTo 0 

Set OutMail = Nothing 
Set OutApp = Nothing 
End Sub 

Answer 1

Sub test1() 
    Dim lastRow As Long 
    'get last row from column A of worksheet with 'codename' Sheet1 
    lastRow = getLastRow(Sheet1, 1) 

    Dim r As Range 
    Set r = Sheet1.Range("A" & lastRow & ":G" & lastRow) 

    Dim str As String 
    'Join the cell texts with a space - lazy coding... 
    str = Join(Application.Transpose(Application.Transpose(r.Value2)), " ") 

    MsgBox str 
End Sub 


Public Function getLastRow(ws As Worksheet, Optional col As Long) As Long 
    Dim arr As Variant 

    If col > 0 Then 
     arr = Intersect(ws.UsedRange, ws.Columns(col)).Value2 
    Else 
     arr = ws.UsedRange.Value2 
    End If 

    Dim i As Long, j As Long 
    For i = UBound(arr) To 1 Step -1 
     For j = UBound(arr, 2) To 1 Step -1 
       If Len(arr(i, j)) > 0 Then 
        getLastRow = i + ws.UsedRange.Row - 1 
        Exit Function 
       End If 
     Next j 
    Next i 
End Function 

上面的函數是的最強大的功能來獲得的最後一行工作表/列中的實際數據值。一切是脆弱的，包括Range.Find("*", , , , , xlPrevious)這是易受activeCell在過濾的ListObject

下面的功能易受像過濾行有兩件事情，有數據最後一排，等等等等

Public Function getLastRow2(ws As Worksheet, col As Long) As Long 
    getLastRow2 = ws.Cells(ws.Rows.Count, col).End(xlUp).Row 
End Function 

Answer 2

這應該工作，只要有在A列中沒有空白單元格從單元格A1到最後一行A列中的數據替換，你也行「strbody = ....」與所有這些。

Cells(1,1).Select 
Selection.End(xlDown).Select 

Dim s As String 
s = ActiveCell.Value  'A 
ActiveCell.Offset(0, 1).Select 
s = s & ActiveCell.Value 'B 
ActiveCell.Offset(0, 1).Select 
s = s & ActiveCell.Value 'C 
ActiveCell.Offset(0, 1).Select 
s = s & ActiveCell.Value 'D 
ActiveCell.Offset(0, 1).Select 
s = s & ActiveCell.Value 'E 
ActiveCell.Offset(0, 1).Select 
s = s & ActiveCell.Value 'F 
ActiveCell.Offset(0, 1).Select 
s = s & ActiveCell.Value 'G 

strbody = "Thanks for your help" & s 

Answer 3

確定具體的行，並創建一個範圍對象，並遍歷它，例如：

Dim rng As range 
    Dim item As range 
    Dim row As Long 

    Set rng = range(Cells(row, 1), Cells(row, 7)) 

    For Each item In rng 
     strBody = strBody & " " & item 
    Next item