извлекать многочисленные строки, чтобы просмотреть электронную почту

Question

У меня есть следующий код, который, когда вы выделяете строку и запускаете макрос, открывает новое электронное письмо с Outlook и вставляет соответствующие данные, чтобы клиент узнал, что его пакет отправлен.

Sub GalleryTracking()
  'This assumes that Outlook is already open to simplify the code
  '
  'The 'Font Name' and 'Font Size' attributes are variables obtained from the Spreadsheet

  Dim OutApp As Object
  Dim OutMail As Object
  Dim var As Variant: var = Selection.Value
  Dim sBody As String
  Dim sFontName As String
  Dim sFontSize As String

  'Set the Font Name and Font Size
  sFontName = "Calibri"
  sFontSize = "11"


  'Get the Email Body from the cell
  sBody = "Hey" & " " & var(1, 1) & vbCrLf & vbCrLf & _
          "Your item has been dispatched. Please find the tracking details below (Please allow 12hrs for tracking to go live): " & vbCrLf & vbCrLf & _
          "consignment number: " & var(1, 26) & vbCrLf & vbCrLf & "Please track here:  " & " https://www.tnt.com/express/en_gb/site/shipping-tools/tracking.html?searchType=con&cons=" & var(1, 26) & _
           vbCrLf & vbCrLf & _
          "IMPORTANT: Please note that when signing for the goods you must ensure you're satisfied with the packaging, if it looks damaged in any way please sign for as 'damaged'. 
   Please open your parcel with great care, particularly when using a knife to ensure that it does 
   not cut too deeply into the parcel damaging the item. You must inspect the goods promptly and 
    relay any issues to us within 24 hours, quoting reference " & var(1, 3) & "." & vbCrLf & 
   vbCrLf 
    & _
    "Have a great day, very best regards,"
    'Replace ASCII NEW LINE with HTML NEW LINE
    sBody = Replace(sBody, vbCrLf, "<BR>")                    'Converts text body to HTML
    sBody = Replace(sBody, vbLf, "<BR>")
    sBody = Replace(sBody, vbCr, "<BR>")


   'Attempt to create an Outlook object
    On Error Resume Next
    Set OutApp = GetObject(, "Outlook.Application")
    If Err.Number <> 0 Then
    Err.Clear
    MsgBox "NOTHING DONE.  The Outlook Object could not be created from Excel." & vbCrLf & _
           "Try again when Outlook is open."
     Exit Sub

     End If
     On Error GoTo 0


    'Create the Outlook Mail Object (using the default Email account)
    Set OutMail = OutApp.CreateItem(0)

    'Grab the Signature
    OutMail.Display                 'Creates .HTMLbody containing the signature

    'Determine the values to be sent
    With OutMail
    .To = var(1, 6)
    .CC = var(1, 13)
       .Subject = "Your Order Has Been Dispatched"

    'Put New .HTMLbody (containing font information)  around sBody (HTML body) and in front of 
    the signature .HTMLBody
    ' .HTMLBody = "<p style='font-family:" & Arial & ";13:" & sFontSize & "pt'>" & sBody & " 
    </p>" & .HTMLBody    'Original - did not compile
      sFontName = "Calibri"
      sFontSize = "11"
     .HTMLBody = "<p style='font-family:" & sFontName & ";font-size:" & sFontSize & "pt'>" & 
    sBody & "</p>" & .HTMLBody

    .Display

    '.Send - comment out the 'Display line' if you want to send
   End With

   'Clear the Object Pointers
   Set OutMail = Nothing
   Set OutApp = Nothing



   End Sub

Теперь мы собираемся делать это по-другому и связываться с веткой со списком предметов, которые были отправлены взамен. Поэтому мне нужно сделать что-то похожее, чтобы, когда я выделил группу строк и запустил ее, она отобразила что-то вроде «Отправленные ниже элементы клиентов», а затем список имен клиентов, их ссылки и номера отслеживания. , Давайте просто скажем, что эти поля находятся в столбцах A, B и C, чтобы упростить его.

Адрес электронной почты будет аналогичен указанному выше, где он будет расположен в ячейке, поэтому, если он может оставаться как данные передаются, а не данные c, это было бы здорово.