Hallo,
Ik probeer een e-mail te verzenden op basis van een indirecte wijziging van de celwaarde (bijv. > 7), met de e-mailbijlage en specifieke celverwijzing naar de gewijzigde cellen in de hoofdtekst van mijn uitje. Ik heb de indirecte celwaarde gewijzigd op basis van de criteria. Ik krijg echter een 424-fout wanneer ik probeer een variabele in te stellen om het celadres in mijn e-mail te bellen. Zou je kunnen helpen? Ik voel dat ik dichtbij ben.
Dim xRg als bereik
Dim xRgSel als bereik
'Bereik & doel instellen'
Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Dim xRgPre als bereik
On Error Resume Next
Als Target.Cells.Count > 1 Sub afsluiten
Stel xRg = bereik ("Q2:Q43") in
Stel xRgPre = xRg.Precedenten in
Stel xRgSel = Intersect (Doel, xRg) in
ActiveWorkbook.Opslaan
Als xRg.Waarde > 7 Dan
Bel Mail_small_Text_Outlook
ElseIf (Niet xRgPre is niets) en (Intersect(Target, xRgPre).Address = Target.Adress) Dan
End If
End If
End Sub
Submail_small_Text_Outlook()
Dim xOutApp als object
Dim xOutMail als object
Dim xMailBody als tekenreeks
Stel xOutApp = CreateObject ("Outlook.Application") in
Stel xOutMail = xOutApp.CreateItem(0) in
xMailBody = "Hallo, cellen(s)" & xRgSel.Address(False, False) & _
" in het werkblad '" & Ik.Naam & "' zijn 3 dagen na intake" & vbNewLine & vbNewLine & _
"Controleer en neem contact op met de lead(s)" & vbNewLine & _
"Dank u"
On Error Resume Next
Met xOutMail
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "Dagen sinds leadopname"
.Body = xMailBody
.Bijlagen.Toevoegen (ThisWorkbook.FullName)
.Weergeven 'of .Verzenden'
Eindigt met
On Error GoTo 0
Stel xOutMail = Niets in
Stel xOutApp = Niets in
End Sub
Bedankt!
Ik probeer een e-mail te verzenden op basis van een indirecte wijziging van de celwaarde (bijv. > 7), met de e-mailbijlage en specifieke celverwijzing naar de gewijzigde cellen in de hoofdtekst van mijn uitje. Ik heb de indirecte celwaarde gewijzigd op basis van de criteria. Ik krijg echter een 424-fout wanneer ik probeer een variabele in te stellen om het celadres in mijn e-mail te bellen. Zou je kunnen helpen? Ik voel dat ik dichtbij ben.
Dim xRg als bereik
Dim xRgSel als bereik
'Bereik & doel instellen'
Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Dim xRgPre als bereik
On Error Resume Next
Als Target.Cells.Count > 1 Sub afsluiten
Stel xRg = bereik ("Q2:Q43") in
Stel xRgPre = xRg.Precedenten in
Stel xRgSel = Intersect (Doel, xRg) in
ActiveWorkbook.Opslaan
Als xRg.Waarde > 7 Dan
Bel Mail_small_Text_Outlook
ElseIf (Niet xRgPre is niets) en (Intersect(Target, xRgPre).Address = Target.Adress) Dan
End If
End If
End Sub
Submail_small_Text_Outlook()
Dim xOutApp als object
Dim xOutMail als object
Dim xMailBody als tekenreeks
Stel xOutApp = CreateObject ("Outlook.Application") in
Stel xOutMail = xOutApp.CreateItem(0) in
xMailBody = "Hallo, cellen(s)" & xRgSel.Address(False, False) & _
" in het werkblad '" & Ik.Naam & "' zijn 3 dagen na intake" & vbNewLine & vbNewLine & _
"Controleer en neem contact op met de lead(s)" & vbNewLine & _
"Dank u"
On Error Resume Next
Met xOutMail
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "Dagen sinds leadopname"
.Body = xMailBody
.Bijlagen.Toevoegen (ThisWorkbook.FullName)
.Weergeven 'of .Verzenden'
Eindigt met
On Error GoTo 0
Stel xOutMail = Niets in
Stel xOutApp = Niets in
End Sub
Bedankt!