Bu makale, Excel'de belirli bir aralıktaki herhangi bir hücre değiştirilirse Outlook aracılığıyla e-posta göndermekten bahsediyor.
Belirli bir aralıktaki hücre VBA kodu ile değiştirilirse e-posta gönderin
A2: E11 aralığındaki hücreler belirli bir çalışma sayfasında değiştirildiğinde eklenen etkin çalışma kitabıyla otomatik olarak yeni bir e-posta oluşturmanız gerekirse, aşağıdaki VBA kodu size yardımcı olabilir.
1. Belirli bir aralıktaki değiştirilmiş hücreye göre e-posta göndermeniz gereken çalışma sayfasında, sayfa sekmesine sağ tıklayın ve ardından Kodu Görüntüle bağlam menüsünden. Ekran görüntüsüne bakın:
2. Açılırken Uygulamalar için Microsoft Visual Basic penceresi, lütfen VBA kodunu kopyalayıp Kod penceresine yapıştırın.
VBA kodu: Belirtilen aralıktaki hücre Excel'de değiştirilirse e-posta gönderin
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/12
Dim xRgSel As Range
Dim xOutApp As Object
Dim xMailItem As Object
Dim xMailBody As String
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xRg = Range("A2:E11")
Set xRgSel = Intersect(Target, xRg)
ActiveWorkbook.Save
If Not xRgSel Is Nothing Then
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xMailBody = "Cell(s) " & xRgSel.Address(False, False) & _
" in the worksheet '" & Me.Name & "' were modified on " & _
Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _
" by " & Environ$("username") & "."
With xMailItem
.To = "Email Address"
.Subject = "Worksheet modified in " & ThisWorkbook.FullName
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Display
End With
Set xRgSel = Nothing
Set xOutApp = Nothing
Set xMailItem = Nothing
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Subnotlar:
3. Tuşuna basın. Ara Toplam + Q kapatmak için aynı anda tuşları Uygulamalar için Microsoft Visual Basic pencere.
Şu andan itibaren, A2: E11 aralığındaki herhangi bir hücre değiştirilir, güncellenmiş çalışma kitabının ekli olduğu yeni bir e-posta oluşturulur. Ve konu, alıcı ve e-posta gövdesi gibi belirtilen tüm alanlar e-postada listelenecektir. Lütfen e-postayı gönderin.
not: VBA kodu yalnızca Outlook'u e-posta programınız olarak kullandığınızda çalışır.
