Cześć,
Próbuję wysłać wiadomość e-mail na podstawie pośredniej zmiany wartości komórki (np. > 7), z załącznikiem do wiadomości e-mail i konkretnym odwołaniem do zmienionych komórek w treści mojej poczty wychodzącej. Mam pośrednią zmianę wartości komórki w dół na podstawie kryteriów. Jednak otrzymuję błąd 424 podczas próby ustawienia zmiennej, aby wywołać adres komórki w moim e-mailu. Czy mógłbyś pomóc? Czuję, że jestem blisko.
Dim xRg jako zakres
Dim xRgSel jako zakres
'Ustaw zasięg i cel
Prywatny Sub Worksheet_Change (ByVal Target As Range)
Dim xRgPre jako zakres
On Error Resume Next
Jeśli Target.Cells.Count > 1, to wyjdź z Sub
Ustaw xRg = Zakres("Q2:Q43")
Ustaw xRgPre = xRg.Precedenty
Ustaw xRgSel = Przecięcie (cel, xRg)
ActiveWorkbook.Save
Jeśli xRg.Wartość > 7 Wtedy
Zadzwoń do Mail_small_Text_Outlook
ElseIf (Not xRgPre nie jest niczym) And (Intersect(Target, xRgPre).Address = Target.Address) Then
End If
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp jako obiekt
Dim xOutMail jako obiekt
Dim xMailBody jako ciąg
Ustaw xOutApp = CreateObject("Outlook.Application")
Ustaw xOutMail = xOutApp.CreateItem(0)
xMailBody = "Cześć, komórki(e)" & xRgSel.Address(False, False) & _
" w arkuszu '" & Ja.Imię & "' są 3 dni po przyjęciu" & vbNewLine & vbNewLine & _
"Proszę przejrzeć i skontaktować się z potencjalnymi klientami" & vbNewLine & _
"Dziękuję Ci"
On Error Resume Next
Z xOutMail
.To = "rdavis@bridge.partners"
.CC = „”
.BCC = „”
.Subject = "Dni od przyjęcia ołowiu"
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Wyświetl 'lub .Wyślij
Kończyć z
Przy błędzie GoTo 0
Ustaw xOutMail = Nic
Ustaw xOutApp = Nic
End Sub
Dzięki!
Próbuję wysłać wiadomość e-mail na podstawie pośredniej zmiany wartości komórki (np. > 7), z załącznikiem do wiadomości e-mail i konkretnym odwołaniem do zmienionych komórek w treści mojej poczty wychodzącej. Mam pośrednią zmianę wartości komórki w dół na podstawie kryteriów. Jednak otrzymuję błąd 424 podczas próby ustawienia zmiennej, aby wywołać adres komórki w moim e-mailu. Czy mógłbyś pomóc? Czuję, że jestem blisko.
Dim xRg jako zakres
Dim xRgSel jako zakres
'Ustaw zasięg i cel
Prywatny Sub Worksheet_Change (ByVal Target As Range)
Dim xRgPre jako zakres
On Error Resume Next
Jeśli Target.Cells.Count > 1, to wyjdź z Sub
Ustaw xRg = Zakres("Q2:Q43")
Ustaw xRgPre = xRg.Precedenty
Ustaw xRgSel = Przecięcie (cel, xRg)
ActiveWorkbook.Save
Jeśli xRg.Wartość > 7 Wtedy
Zadzwoń do Mail_small_Text_Outlook
ElseIf (Not xRgPre nie jest niczym) And (Intersect(Target, xRgPre).Address = Target.Address) Then
End If
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp jako obiekt
Dim xOutMail jako obiekt
Dim xMailBody jako ciąg
Ustaw xOutApp = CreateObject("Outlook.Application")
Ustaw xOutMail = xOutApp.CreateItem(0)
xMailBody = "Cześć, komórki(e)" & xRgSel.Address(False, False) & _
" w arkuszu '" & Ja.Imię & "' są 3 dni po przyjęciu" & vbNewLine & vbNewLine & _
"Proszę przejrzeć i skontaktować się z potencjalnymi klientami" & vbNewLine & _
"Dziękuję Ci"
On Error Resume Next
Z xOutMail
.To = "rdavis@bridge.partners"
.CC = „”
.BCC = „”
.Subject = "Dni od przyjęcia ołowiu"
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Wyświetl 'lub .Wyślij
Kończyć z
Przy błędzie GoTo 0
Ustaw xOutMail = Nic
Ustaw xOutApp = Nic
End Sub
Dzięki!