Merhaba,
Dolaylı hücre değeri değişikliğine (örneğin > 7) dayalı bir e-posta göndermeye çalışıyorum, e-posta eki ve giden posta gövdemdeki değiştirilen hücrelere özel hücre referansı var. Kriterlere göre dolaylı hücre değeri değişikliğini aldım. Ancak hücre adresini e-postama çağırmak için bir değişken ayarlamaya çalışırken 424 hatası alıyorum. yardımcı olabilir misiniz? yakın olduğumu hissediyorum.
Aralık olarak Dim xRg
Aralık olarak Dim xRgSel
'Aralığı ve hedefi belirle
Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
Dim xRgPre As Aralık
On Error Resume Next
Target.Cells.Count > 1 ise Sub Exit
xRg = Aralık ("Q2:Q43") olarak ayarla
xRgPre = xRg olarak ayarlayın.Öncelikler
xRgSel'i ayarla = Kesiştir(Hedef, xRg)
ActiveWorkbook.Save
xRg.Value > 7 ise
Mail_small_Text_Outlook'u arayın
ElseIf (xRgPre Değildir) Ve (Intersect(Target, xRgPre).Address = Target.Adres) Sonra
Eğer son
Eğer son
End Sub
Alt Mail_small_Text_Outlook()
xOutApp'i Nesne Olarak Karartın
Nesne Olarak xOutMail'i Karartın
Dize olarak xMailBody'yi karart
xOutApp = CreateObject("Outlook.Application") olarak ayarlayın
xOutMail = xOutApp.CreateItem(0) olarak ayarlayın
xMailBody = "Merhaba, hücreler(ler)" & xRgSel.Address(Yanlış, Yanlış) & _
" çalışma sayfasında '" & Me.Name & "' alımdan 3 gün sonra" & vbNewLine & vbNewLine & _
"Lütfen gözden geçirin ve müşteri adaylarına ulaşın" & vbNewLine & _
"Teşekkür ederim"
On Error Resume Next
xOutMail ile
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "Kurşun alımından bu yana geçen gün sayısı"
.Gövde = xMailBody
.Ekler.Add (ThisWorkbook.FullName)
.Göster veya .Gönder
İle bitmek
Hata Dönüsünde 0
xOutMail'i ayarla = Hiçbir şey
xOutApp'ı ayarla = Hiçbir şey
End Sub
Teşekkürler!
Dolaylı hücre değeri değişikliğine (örneğin > 7) dayalı bir e-posta göndermeye çalışıyorum, e-posta eki ve giden posta gövdemdeki değiştirilen hücrelere özel hücre referansı var. Kriterlere göre dolaylı hücre değeri değişikliğini aldım. Ancak hücre adresini e-postama çağırmak için bir değişken ayarlamaya çalışırken 424 hatası alıyorum. yardımcı olabilir misiniz? yakın olduğumu hissediyorum.
Aralık olarak Dim xRg
Aralık olarak Dim xRgSel
'Aralığı ve hedefi belirle
Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
Dim xRgPre As Aralık
On Error Resume Next
Target.Cells.Count > 1 ise Sub Exit
xRg = Aralık ("Q2:Q43") olarak ayarla
xRgPre = xRg olarak ayarlayın.Öncelikler
xRgSel'i ayarla = Kesiştir(Hedef, xRg)
ActiveWorkbook.Save
xRg.Value > 7 ise
Mail_small_Text_Outlook'u arayın
ElseIf (xRgPre Değildir) Ve (Intersect(Target, xRgPre).Address = Target.Adres) Sonra
Eğer son
Eğer son
End Sub
Alt Mail_small_Text_Outlook()
xOutApp'i Nesne Olarak Karartın
Nesne Olarak xOutMail'i Karartın
Dize olarak xMailBody'yi karart
xOutApp = CreateObject("Outlook.Application") olarak ayarlayın
xOutMail = xOutApp.CreateItem(0) olarak ayarlayın
xMailBody = "Merhaba, hücreler(ler)" & xRgSel.Address(Yanlış, Yanlış) & _
" çalışma sayfasında '" & Me.Name & "' alımdan 3 gün sonra" & vbNewLine & vbNewLine & _
"Lütfen gözden geçirin ve müşteri adaylarına ulaşın" & vbNewLine & _
"Teşekkür ederim"
On Error Resume Next
xOutMail ile
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "Kurşun alımından bu yana geçen gün sayısı"
.Gövde = xMailBody
.Ekler.Add (ThisWorkbook.FullName)
.Göster veya .Gönder
İle bitmek
Hata Dönüsünde 0
xOutMail'i ayarla = Hiçbir şey
xOutApp'ı ayarla = Hiçbir şey
End Sub
Teşekkürler!