Excel VBA - Skicka e-post baserat på indirekt förändring i cell, med bilaga och cellreferens i e-posttext

Hallå,

Jag försöker skicka ett e-postmeddelande baserat på en indirekt cellvärdeförändring (t.ex. > 7), med e-postbilagan och specifik cellreferens till de ändrade cellerna i min utflyktsposttext. Jag har sänkt den indirekta cellvärdets förändring baserat på kriterierna. Men jag får ett 424-fel när jag försöker ställa in en variabel för att anropa celladressen i min e-post. Kan du hjälpa till? Jag känner att jag är nära.

Dim xRg As Range
Dim xRgSel As Range
'Ställ in räckvidd och mål
Privata delarkivsförändring (ByVal-mål som område)
Dim xRgPre As Range
On Error Resume Next
Om Target.Cells.Count > 1 Avsluta Sub
Ställ in xRg = Range("Q2:Q43")
Ställ in xRgPre = xRg.Precedents
Ställ in xRgSel = Intersect(Target, xRg)
ActiveWorkbook.Save
Om xRg.Value > 7 Då
Ring Mail_small_Text_Outlook
ElseIf (Inte xRgPre Is Nothing) Och (Skära(Target, xRgPre).Address = Target.Adress) Då
End If
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp som objekt
Dim xOutMail som objekt
Dim xMailBody As String
Ställ in xOutApp = CreateObject("Outlook.Application")
Ställ in xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hej, celler(er)" & xRgSel.Address(False, False) & _
" i arbetsbladet '" & Me.Name & "' är 3 dagar efter intag" & vbNewLine & vbNewLine & _
"Vänligen granska och nå ut till lead(erna)" & vbNewLine & _
"Tack"
On Error Resume Next
Med xOutMail
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "Dagar sedan blyintag"
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Visa 'eller .Skicka
Sluta med
På Fel GoTo 0
Ställ in xOutMail = Ingenting
Ställ in xOutApp = Ingenting
End Sub


Tack!