Ek Excel dosyası alıcılar tarafından açıldığında nasıl e-posta gönderilir?
Çoğumuz, müşterilerimize bir Excel dosyası eki içeren bazı önemli iletiler gönderebiliriz, bu nedenle, alıcının iletiyi alıp dosya ekini açıp açmadığını bilmemiz gerekir. Bu durumda, alıcı çalışma kitabını açıp kodu etkinleştirdiğinde Excel ek dosyanız için bir VBA kodu oluşturabilirsiniz, ardından size otomatik olarak bir istem e-postası gönderilecektir.
Ek Excel dosyası alıcılar tarafından VBA kodu ile açıldığında bir e-posta gönderin
Ek Excel dosyası alıcılar tarafından VBA kodu ile açıldığında bir e-posta gönderin
Bu Excel dosyasını göndermeden önce aşağıdaki gibi bir kod oluşturmalısınız:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. Ardından çift tıklayın Bu Çalışma Kitabı altında VBAProjesi bölümünde boş bir modül açın ve ardından aşağıdaki kodu modüle kopyalayıp yapıştırın:
VBA kodu: Excel dosyası açıldığında bir e-posta gönderin:
Private Sub Workbook_Open()
'Updateby Extendoffice
Dim olkObj As Object
Dim olkEm As Object
Dim strbody As String
Set olkObj = CreateObject("Outlook.Application")
Set olkEm = olkObj.CreateItem(0)
strbody = "Hi there" & vbNewLine & vbNewLine & _
ThisWorkbook.Name & vbNewLine & _
"was opened by" & vbNewLine & _
Environ("username")
On Error Resume Next
With olkEm
.To = ""
.CC = ""
.BCC = ""
.Subject = "File opened"
.Body = strbody
.Send
End With
On Error GoTo 0
Set olkEm = Nothing
Set olkObj = Nothing
End Sub
not: Yukarıdaki kodda, istem e-postasını almak istediğiniz e-posta adresini kendi adresinizle değiştirmeli ve konuyu ihtiyacınıza göre değiştirmelisiniz.
3. Sonra bu çalışma kitabını farklı kaydedin Excel Makro Etkin Çalışma Kitabı dosya biçimi, ekran görüntüsüne bakın:
4. Ardından, ihtiyacınız olan alıcılara bu dosya ekini içeren bir mesaj gönderin, alıcılar bu Excel dosyasını indirip açıp kodu etkinleştirdiğinde, size otomatik olarak bir e-posta gönderilecek ve dosyanın aşağıdaki gibi kimler tarafından açıldığını söyleyecektir. gösterilen ekran görüntüsü:
not: Bu yöntem yalnızca Outlook'u posta programınız olarak kullandığınızda kullanılabilir.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
