Hej,
Jeg forsøger at sende en e-mail baseret på en indirekte celleværdiændring (f.eks. > 7), med den vedhæftede e-mail og specifik cellereference til de ændrede celler i min udflugtsmail-tekst. Jeg har fået den indirekte celleværdiændring ned baseret på kriterierne. Men jeg får en 424-fejl, når jeg forsøger at indstille en variabel til at kalde celleadressen ind i min e-mail. Kunne du hjælpe? Jeg føler, jeg er tæt på.
Dim xRg As Range
Dim xRgSel As Range
'Indstil rækkevidde og mål
Privat Sub Worksheet_Change (ByVal Target As Range)
Dim xRgPre As Range
On Error Resume Next
Hvis Target.Cells.Count > 1 Afslut Sub
Indstil xRg = Range("Q2:Q43")
Indstil xRgPre = xRg.Precedents
Indstil xRgSel = Intersect(Target, xRg)
ActiveWorkbook.Save
Hvis xRg.Value > 7 Så
Ring til Mail_small_Text_Outlook
ElseIf (Ikke xRgPre Is Nothing) Og (Skæringspunkt(Target, xRgPre).Address = Target.Adress) Så
End If
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp som objekt
Dim xOutMail som objekt
Dim xMailBody As String
Indstil xOutApp = CreateObject("Outlook.Application")
Indstil xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hej, celler" & xRgSel.Address(False, False) & _
" i arbejdsarket '" & Me.Name & "' er 3 dage efter indtag" & vbNewLine & vbNewLine & _
"Gennemgå og kontakt kundeemnerne" & vbNewLine & _
"Tak skal du have"
On Error Resume Next
Med xOutMail
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "Dage siden blyindtag"
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Vis 'eller .Send
Slut med
På Fejl GoTo 0
Indstil xOutMail = Ingenting
Indstil xOutApp = Ingenting
End Sub
Tak!
Jeg forsøger at sende en e-mail baseret på en indirekte celleværdiændring (f.eks. > 7), med den vedhæftede e-mail og specifik cellereference til de ændrede celler i min udflugtsmail-tekst. Jeg har fået den indirekte celleværdiændring ned baseret på kriterierne. Men jeg får en 424-fejl, når jeg forsøger at indstille en variabel til at kalde celleadressen ind i min e-mail. Kunne du hjælpe? Jeg føler, jeg er tæt på.
Dim xRg As Range
Dim xRgSel As Range
'Indstil rækkevidde og mål
Privat Sub Worksheet_Change (ByVal Target As Range)
Dim xRgPre As Range
On Error Resume Next
Hvis Target.Cells.Count > 1 Afslut Sub
Indstil xRg = Range("Q2:Q43")
Indstil xRgPre = xRg.Precedents
Indstil xRgSel = Intersect(Target, xRg)
ActiveWorkbook.Save
Hvis xRg.Value > 7 Så
Ring til Mail_small_Text_Outlook
ElseIf (Ikke xRgPre Is Nothing) Og (Skæringspunkt(Target, xRgPre).Address = Target.Adress) Så
End If
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp som objekt
Dim xOutMail som objekt
Dim xMailBody As String
Indstil xOutApp = CreateObject("Outlook.Application")
Indstil xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hej, celler" & xRgSel.Address(False, False) & _
" i arbejdsarket '" & Me.Name & "' er 3 dage efter indtag" & vbNewLine & vbNewLine & _
"Gennemgå og kontakt kundeemnerne" & vbNewLine & _
"Tak skal du have"
On Error Resume Next
Med xOutMail
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "Dage siden blyindtag"
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Vis 'eller .Send
Slut med
På Fejl GoTo 0
Indstil xOutMail = Ingenting
Indstil xOutApp = Ingenting
End Sub
Tak!