Chào bạn,
Tôi đang cố gắng gửi email dựa trên sự thay đổi giá trị ô gián tiếp (ví dụ:> 7), với tệp đính kèm email và tham chiếu ô cụ thể đến các ô đã thay đổi trong nội dung thư đi của tôi. Tôi đã nhận được sự thay đổi giá trị ô gián tiếp dựa trên các tiêu chí. Tuy nhiên, tôi gặp lỗi 424 khi cố gắng đặt một biến để gọi địa chỉ ô vào email của mình. Bạn có thể hỗ trợ? Tôi cảm thấy tôi gần gũi.
Dim xRg theo phạm vi
Dim xRgSel theo phạm vi
'Đặt phạm vi & mục tiêu
Private Sub Worksheet_Change (ByVal Target As Range)
Dim xRgPre dưới dạng phạm vi
On Error Resume Next
If Target.Cells.Count> 1 Then Exit Sub
Đặt xRg = Range ("Q2: Q43")
Đặt xRgPre = xRg.Precedents
Đặt xRgSel = Intersect (Target, xRg)
ActiveWorkbook.Save
Nếu xRg.Value> 7 Thì
Gọi Mail_small_Text_Outlook
ElseIf (Không phải xRgPre là không có gì) Và (Giao nhau (Target, xRgPre) .Address = Target.Adress) Sau đó
Cuối Nếu
Cuối Nếu
End Sub
Sub Mail_small_Text_Outlook ()
Dim xOutApp làm đối tượng
Làm mờ xOutMail làm đối tượng
Dim xMailBody dưới dạng chuỗi
Đặt xOutApp = CreateObject ("Outlook.Application")
Đặt xOutMail = xOutApp.CreateItem (0)
xMailBody = "Xin chào, (các) ô" & xRgSel.Address (Sai, Sai) & _
"in the worksheet '" & Me.Name & "" là 3 ngày qua "& vbNewLine & vbNewLine & _
"Vui lòng xem lại và liên hệ với (các) khách hàng tiềm năng" & vbNewLine & _
"Cảm ơn bạn"
On Error Resume Next
Với xOutMail
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "Số ngày kể từ khi nhận được khách hàng tiềm năng"
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Display 'hoặc .Send
Kết thúc với
Về lỗi GoTo 0
Đặt xOutMail = Không có gì
Đặt xOutApp = Không có gì
End Sub
Cảm ơn!
Tôi đang cố gắng gửi email dựa trên sự thay đổi giá trị ô gián tiếp (ví dụ:> 7), với tệp đính kèm email và tham chiếu ô cụ thể đến các ô đã thay đổi trong nội dung thư đi của tôi. Tôi đã nhận được sự thay đổi giá trị ô gián tiếp dựa trên các tiêu chí. Tuy nhiên, tôi gặp lỗi 424 khi cố gắng đặt một biến để gọi địa chỉ ô vào email của mình. Bạn có thể hỗ trợ? Tôi cảm thấy tôi gần gũi.
Dim xRg theo phạm vi
Dim xRgSel theo phạm vi
'Đặt phạm vi & mục tiêu
Private Sub Worksheet_Change (ByVal Target As Range)
Dim xRgPre dưới dạng phạm vi
On Error Resume Next
If Target.Cells.Count> 1 Then Exit Sub
Đặt xRg = Range ("Q2: Q43")
Đặt xRgPre = xRg.Precedents
Đặt xRgSel = Intersect (Target, xRg)
ActiveWorkbook.Save
Nếu xRg.Value> 7 Thì
Gọi Mail_small_Text_Outlook
ElseIf (Không phải xRgPre là không có gì) Và (Giao nhau (Target, xRgPre) .Address = Target.Adress) Sau đó
Cuối Nếu
Cuối Nếu
End Sub
Sub Mail_small_Text_Outlook ()
Dim xOutApp làm đối tượng
Làm mờ xOutMail làm đối tượng
Dim xMailBody dưới dạng chuỗi
Đặt xOutApp = CreateObject ("Outlook.Application")
Đặt xOutMail = xOutApp.CreateItem (0)
xMailBody = "Xin chào, (các) ô" & xRgSel.Address (Sai, Sai) & _
"in the worksheet '" & Me.Name & "" là 3 ngày qua "& vbNewLine & vbNewLine & _
"Vui lòng xem lại và liên hệ với (các) khách hàng tiềm năng" & vbNewLine & _
"Cảm ơn bạn"
On Error Resume Next
Với xOutMail
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "Số ngày kể từ khi nhận được khách hàng tiềm năng"
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Display 'hoặc .Send
Kết thúc với
Về lỗi GoTo 0
Đặt xOutMail = Không có gì
Đặt xOutApp = Không có gì
End Sub
Cảm ơn!