Microsoft Outlook'ta, başkalarına tekrar eden bir randevu, toplantı veya görevi kolayca gönderebilirsiniz. Ancak herhangi bir randevu, toplantı veya görev olmadan sadece tekrar eden bir e-posta göndermek istiyorsanız, nasıl yapabilirsiniz? Maalesef Outlook, düzenli yinelenen e-posta gönderme özelliği sağlamaz, ancak eğitimimizde size Outlook'ta yinelenen bir e-postayı nasıl göndereceğinizi göstereceğiz.
Outlook'ta VBA kodu ile yinelenen bir e-posta programı gönderin
Bu eğitim dört bölüme ayrılmıştır, bu bölümleri tamamladıktan sonra tekrar eden bir program e-postası göndermeyi başaracaksınız. Lütfen aşağıdaki işlemleri yapın.
Birinci Bölüm: Yeni bir randevu oluşturun
1. Lütfen şuraya gidin: Takvim tıklayarak görüntüle Takvim içinde Gezinti Bölmesive ardından üzerine tıklayarak yeni bir randevu oluşturun. Yeni randevu altında Anasayfa sekmesi.
3. içinde Randevu altında diyalog Randevu sekmesi. Gerek:
| A: yazın Konu | B: Alıcıların e-posta adreslerini Konum |
| C: Yapılandırın Başlangıç saati ve Bitiş zamanı | D: Altından hatırlatıcıyı seçin Hatırlatma açılır liste. 15 dakikayı seçerseniz, e-posta gönderildiğinde size 15 dakika önceden hatırlatacağı anlamına gelir. |
| E: Randevu metninizi oluşturun. |
not: Randevu Konusu yinelenen e-posta konusu olacak; ve Randevu organı alıcılar e-postayı aldığında yinelenen e-posta gövdesi haline gelecektir.
İkinci Bölüm: Yeni bir kategori oluşturun
Şimdi "" adında yeni bir kategori oluşturmanız gerekiyorPlanlı Yinelenen E-posta Gönderin" aşağıdaki gibi:
1. içinde Randevu iletişim kutusu lütfen tıklayın sınıflandırmak > Tüm Kategoriler içinde Etiketler altında grup Randevu sekmesi.
2. Ne zaman Renk Kategorileri iletişim kutusu açılıyor, lütfen tıklayın yeni buton. İçinde Yeni Kategori Ekle iletişim kutusu, yazın "Planlı Yinelenen E-posta Gönderin" içinde İsim alan; ve sonra bir renk seçin Renk açılır liste. Sonra tıklayın OK.
3. Ardından "Planlı Yinelenen E-posta Gönderin”Kategorisi listelenmiştir, lütfen kutuyu işaretleyin ve ardından tıklayın OK düğmesine basın.
Üçüncü Bölüm: Yinelemeyi Ayarlayın
Şimdi, randevu için yinelemeyi ayarlama zamanı.
1. tık Tekrar içinde Opsiyonlar altında grup Randevu sekmesi. Ekran görüntüsüne bakın:
2. içinde Randevu Tekrarlama iletişim kutusu, yapılandırın Tekrar Desen. Bir bitiş zamanına ihtiyacınız varsa, lütfen altında yapılandırın Tekrarlama aralığı. Ve sonra tıklayın OK.
3. Geri döndüğünde Randevu iletişim kutusu lütfen tıklayın Kaydet kapat buton. Ekran görüntüsüne bakın:
Son: Planlı Yinelenen E-postayı göndermek için VBA kodunu kullanın
1. Lütfen basın Ara Toplam + F11 açmak için Uygulamalar için Microsoft Visual Basic iletişim.
2. Üzerine çift tıklayın Project1 > Microsoft Outlook Nesnesi > Bu OutlookOturumu sol bölmede. Ekran görüntüsüne bakın:
3. Aşağıdaki VBA kodunu kopyalayıp VBA düzenleyicisine yapıştırın. Ve sonra tıklayın İndirim düğmesine basın.
VBA: planlı yinelenen e-posta gönderme
Private Sub Application_Reminder(ByVal Item As Object)
'Updated by Extendoffice 20200522
Dim xMailItem As MailItem
Dim xItemDoc As Word.Document
Dim xNewDoc As Word.Document
Dim xFldPath As String
On Error Resume Next
If Item.Class <> OlObjectClass.olAppointment Then Exit Sub
If Item.Categories <> "Send Schedule Recurring Email" Then Exit Sub
Set xMailItem = Outlook.Application.CreateItem(olMailItem)
Set xItemDoc = Item.GetInspector.WordEditor
xFldPath = CStr(Environ("USERPROFILE"))
xFldPath = xFldPath & "\MyReminder"
If Dir(xFldPath, vbDirectory) = "" Then
MkDir xFldPath
End If
xFldPath = xFldPath & "\AppointmentBody.xml"
xItemDoc.SaveAs2 xFldPath, wdFormatXMLDocument ' wdFormatXML
Set xNewDoc = xMailItem.GetInspector.WordEditor
VBA.DoEvents
xNewDoc.Application.Selection.HomeKey
xNewDoc.Activate
xNewDoc.Application.Selection.InsertFile FileName:=xFldPath, Attachment:=False
With xMailItem
.To = Item.Location
.Recipients.ResolveAll
.Subject = Item.Subject
.Send
End With
Set xMailItem = Nothing
VBA.Kill xFldPath
End Sub
4. tık Araçlar > Referanslar açmak için Referanslar - Proje iletişim. İletişim kutusunda, kontrol edin Microsoft Word Nesne Kitaplığı seçeneğini tıklayın ve OK düğmesine basın.
5. Tuşuna basın. Ara Toplam + Q anahtarları aynı anda kapatmak için Uygulamalar için Microsoft Visual Basic pencere.
Zaman Hatırlatma açıldığında, e-posta otomatik olarak ilk bölümde Konum alanına yazdığınız alıcılara gönderilecektir. Sonra tıklayın reddetmek içinde Hatırlatma iletişim. Ve bu saatte e-posta her gün yinelenecek şekilde gönderilecektir. Ekran görüntüsüne bakın:
not: VBA kodu, Outlook 2010 ve sonraki sürümlerde başarıyla test edilmiştir.
