Outlook'ta mesaj yazarken imlecin bulunduğu yere belirli bir metin nasıl eklenir?

Diyelim ki e-posta yazarken sıklıkla kullandığınız bazı özel metin dizeleriniz var. Bu metinleri her seferinde elle yazmak yerine, posta gövdesinde imlecin bulunduğu yere otomatik olarak eklemek istiyorsunuz. Bu makalede, bu görevi hızlı ve kolayca nasıl halledebileceğinizi öğreneceksiniz.

VBA koduyla mesaj yazarken imlecin bulunduğu yere belirli bir metin veya tarih ekleyin

---

VBA koduyla mesaj yazarken imlecin bulunduğu yere belirli bir metin veya tarih ekleyin

Aşağıdaki VBA kodu, imlecin bulunduğu yere belirli bir metin dizesi veya geçerli tarih eklemenize yardımcı olur. Lütfen aşağıdaki adımları uygulayın:

1. Microsoft Visual Basic for Applications penceresini açmak için [[ALT + F11]] tuşlarına basılı tutun.

2. Ardından, Ekle > Modül seçeneğine tıklayın ve aşağıda verilen kodu açılan boş modüle kopyalayıp yapıştırın:

VBA kodu: İmlecin bulunduğu yere belirli bir metin veya tarih ekleyin

Option Explicit
Public Sub InsertInfoToSelection()
    Dim xDoc As Word.Document
    Dim xSel As Word.Selection
    On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set xDoc = Application.ActiveExplorer.Selection(1).GetInspector.WordEditor
        Case "Inspector"
            Set xDoc = Application.ActiveInspector.WordEditor
    End Select
    Set xSel = xDoc.Application.Selection
    xSel.InsertBefore Format("ExtendOffice")
    Set xDoc = Nothing
    Set xSel = Nothing
End Sub

Not: Yukarıdaki kodda, ExtendOffice, eklemek istediğiniz özel metindir. Metin yerine geçerli tarihi eklemek istiyorsanız, bu betikteki xSel.InsertBefore Format("ExtendOffice") satırını xSel.InsertBefore Format(Now, "GG/AA/YYYY") şeklinde değiştirin.

3. Ardından kod penceresini Kaydet ve Kapat, yeni bir e-posta oluşturun ve Mesaj penceresinde Hızlı Erişim Araç Çubuğunu Özelleştir açılır menüsünden Diğer Komutlar seçeneğini seçin; ekran görüntüsüne bakın:

4.Outlook Seçenekleriiletişim kutusunda aşağıdaki işlemleri yapın:

(1.)Makrolarseçeneğini Komut seçme ölçütüaçılır menüsünden seçin;

(2.) Eklediğiniz makro adını tıklayın;

(3.) Ardından, bu makroyu Hızlı Erişim Araç Çubuğunu Özelleştirlistesine eklemek için Ekledüğmesine tıklayın.

5. Ardından, Tamam düğmesine tıklayarak iletişim kutusunu kapatın. Artık makro simgesi, Hızlı Erişim Araç Çubuğunu Özelleştir bölümüne eklenmiştir. Metni eklemek istediğiniz yere imleci getirin ve ardından bu makro düğmesine tıklayın; belirtilen metin hemen eklenecektir. Ekran görüntüsüne bakın:

---

Mesaj yazarken belirli bir metni istediğiniz konuma ekleyin: Kutools for Outlook 'nin Otomatik Metin özelliğine sahip olarak, ihtiyacınız olduğunda mesaj yazarken kullanmak üzere bir otomatik metin oluşturabilir ve bunu dilediğiniz yere ekleyebilirsiniz. 👉 Outlook'ta daha akıllı çalışın!İndirin Kutools for Outlookzamandan tasarruf eden özelliklerle üretkenliğinizi artırın — 30 gün boyunca ücretsiz!