Zdravo,
Poskušam poslati e-pošto na podlagi posredne spremembe vrednosti celice (npr. > 7), s priponko e-pošte in posebnim sklicem celice na spremenjene celice v mojem telesu izhodne pošte. Na podlagi meril imam znižano posredno spremembo vrednosti celice. Vendar dobivam napako 424, ko poskušam nastaviti spremenljivko za klicanje naslova celice v mojo e-pošto. Ali lahko pomagate? Čutim, da sem blizu.
Dim xRg As Range
Dim xRgSel As Range
»Nastavi obseg in cilj
Zasebni poddelovni list_Spremeni (ByVal Target As Range)
Dim xRgPre As Range
On Error Resume Next
Če je Target.Cells.Count > 1, potem Exit Sub
Nastavite xRg = obseg ("Q2:Q43")
Nastavite xRgPre = xRg.Precedents
Nastavi xRgSel = preseči (cilj, xRg)
ActiveWorkbook.Save
Če je xRg.Value > 7 Potem
Pokličite Mail_small_Text_Outlook
ElseIf (Not xRgPre Is Nothing) In (Intersect(Target, xRgPre).Address = Target.Adress) Potem
Konec Če
Konec Če
End Sub
Sub Mail_small_Text_Outlook()
Zatemnite xOutApp kot objekt
Zatemni xOutMail kot objekt
Zatemni xMailBody kot niz
Nastavi xOutApp = CreateObject("Outlook.Application")
Nastavi xOutMail = xOutApp.CreateItem(0)
xMailBody = "Pozdravljeni, celice(e)" & xRgSel.Address(False, False) & _
" v delovnem listu '" & Me.Name & "' so 3 dni po vnosu" & vbNewLine & vbNewLine & _
"Prosimo, preglejte in se obrnite na potencialne stranke" & vbNewLine & _
"Hvala vam"
On Error Resume Next
Z xOutMail
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "Dnevi od vnosa svinca"
.Telo = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Prikaži 'ali .Pošlji
Končaj s
Ob napaki Pojdi na 0
Nastavite xOutMail = Nič
Nastavite xOutApp = Nič
End Sub
Hvala!
Poskušam poslati e-pošto na podlagi posredne spremembe vrednosti celice (npr. > 7), s priponko e-pošte in posebnim sklicem celice na spremenjene celice v mojem telesu izhodne pošte. Na podlagi meril imam znižano posredno spremembo vrednosti celice. Vendar dobivam napako 424, ko poskušam nastaviti spremenljivko za klicanje naslova celice v mojo e-pošto. Ali lahko pomagate? Čutim, da sem blizu.
Dim xRg As Range
Dim xRgSel As Range
»Nastavi obseg in cilj
Zasebni poddelovni list_Spremeni (ByVal Target As Range)
Dim xRgPre As Range
On Error Resume Next
Če je Target.Cells.Count > 1, potem Exit Sub
Nastavite xRg = obseg ("Q2:Q43")
Nastavite xRgPre = xRg.Precedents
Nastavi xRgSel = preseči (cilj, xRg)
ActiveWorkbook.Save
Če je xRg.Value > 7 Potem
Pokličite Mail_small_Text_Outlook
ElseIf (Not xRgPre Is Nothing) In (Intersect(Target, xRgPre).Address = Target.Adress) Potem
Konec Če
Konec Če
End Sub
Sub Mail_small_Text_Outlook()
Zatemnite xOutApp kot objekt
Zatemni xOutMail kot objekt
Zatemni xMailBody kot niz
Nastavi xOutApp = CreateObject("Outlook.Application")
Nastavi xOutMail = xOutApp.CreateItem(0)
xMailBody = "Pozdravljeni, celice(e)" & xRgSel.Address(False, False) & _
" v delovnem listu '" & Me.Name & "' so 3 dni po vnosu" & vbNewLine & vbNewLine & _
"Prosimo, preglejte in se obrnite na potencialne stranke" & vbNewLine & _
"Hvala vam"
On Error Resume Next
Z xOutMail
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "Dnevi od vnosa svinca"
.Telo = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Prikaži 'ali .Pošlji
Končaj s
Ob napaki Pojdi na 0
Nastavite xOutMail = Nič
Nastavite xOutApp = Nič
End Sub
Hvala!