Excel hücresindeki tarihe göre hızlı bir şekilde e-posta nasıl gönderilir?
Excel hücresindeki tarihe göre bir E-posta göndermeyi hiç denediniz mi? Örneğin, burada A sütunundaki tarihlerin bir listesi var ve sonra konuyu, mesaj gövdesini bir alıcıya içeren bir E-posta göndermek istiyorsunuz (ayrıca başkalarına CC ve BCC de olabilir), bunu nasıl halledebilirsiniz?
VBA ile tarihe göre e-posta gönder
VBA ile tarihe göre e-posta gönder
Excel'deki tarihe göre e-posta göndermek için yalnızca bir makro kodu uygulayabilirsiniz.
1. Kullandığınız verileri ve tarihi içeren sayfayı etkinleştirin ve düğmesine basın. Alt + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modülve aşağıdaki kodu boş komut dosyasına yapıştırın.
VBA: Tarihe göre gönder
Sub email()
'UpdatebyExtendoffice20170831
Dim xRg As Range
Dim xRgEach As Range
Dim xAddress As String
Dim xEmail_Subject, xEmail_Send_From, xEmail_Send_To, xEmail_Cc, xEmail_Bcc, xEmail_Body As String
Dim xMail_Object, xMail_Single As Object
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xRgEach In xRg
If xRgEach.Value = Date Then
xEmail_Subject = Application.InputBox("Subject: ", "Kutools", , , , , , 2)
xEmail_Send_From = Application.InputBox("Send from: ", "KuTools For Excel", , , , , , 2)
xEmail_Send_To = Application.InputBox("Send to: ", "KuTools For Excel", , , , , , 2)
If xEmail_Send_To = "" Then Exit Sub
xEmail_Cc = Application.InputBox("CC: ", "KuTools For Excel", , , , , , 2)
xEmail_Bcc = Application.InputBox("BCC: ", "KuTools For Excel", , , , , , 2)
xEmail_Body = Application.InputBox("Message Body: ", "KuTools For Excel", , , , , , 2)
Set xMail_Object = CreateObject("Outlook.Application")
Set xMail_Single = xMail_Object.CreateItem(0)
With xMail_Single
.Subject = xEmail_Subject
.To = xEmail_Send_To
.cc = xEmail_Cc
.BCC = xEmail_Bcc
.Body = xEmail_Body
.Send
End With
End If
Next
End Sub
3. tık koşmak tuşuna basın veya tuşuna basın. F5 tuşuna bastığınızda, size bir tarih listesi seçmenizi hatırlatan bir iletişim kutusu açılır. Ekran görüntüsüne bakın:
4. Tamam'a tıklayın ve e-posta konusunu, gönderenin e-posta adresini, alıcının e-posta adresini, CC, BCC ve mesaj gövdesini belirtmeye devam edin. Ekran görüntüsüne bakın:
5. tık OK > OK sonuncusuna kadar ve ardından e-posta gönderildi.
Not: gönderenin e-posta adresi Outlook'unuzdaki varsayılan hesap olmalıdır.
Posta Listesi Oluşturun ve E-posta Gönderin |
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!