Aşağıdaki VBA kodu, Outlook'ta iletileri yanıtlarken otomatik olarak kişiselleştirilmiş karşılama ekleyebilir. Aşağıdaki gibi yapabilirsiniz:

1. Yanıtlayacağınız e-posta mesajını seçin.

2. Tuşuna basın. Ara Toplam + F11 Microsoft Visual Basic for Applications penceresini açmak için tuşlar.

3. Tıklayın Ekle > modülve aşağıdaki VBA kodunu yeni modül penceresine yapıştırın.

VBA: Kişiselleştirilmiş karşılama ile yanıtlayın

Sub ReplyWithGreeting()
Dim oMItem As Outlook.MailItem
Dim oMItemReply As Outlook.MailItem
Dim sGreetName As String
Dim iGreetType As Long
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set oMItem = ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set oMItem = ActiveInspector.CurrentItem
Case Else
End Select
On Error GoTo 0
If oMItem Is Nothing Then GoTo ExitProc
On Error Resume Next
iGreetType = InputBox("How to greet:" & vbCr & vbCr & "Type '1' for name, '2' for time of day")
On Error GoTo 0
If iGreetType = False Then GoTo ExitProc
If iGreetType = 1 Then
sGreetName = oMItem.SenderName
ElseIf iGreetType = 2 Then
Select Case Time
Case Is < 0.5
sGreetName = "Good morning"
Case 0.5 To 0.75
sGreetName = "Good afternoon"
Case Else
sGreetName = "Good evening"
End Select
Else
GoTo ExitProc
End If
Set oMItemReply = oMItem.Reply
With oMItemReply
.HTMLBody = "<span style=""font-size : 10pt""><p>Hi " & sGreetName & ",</p></span>" & .HTMLBody
.Display
End With
ExitProc:
Set oMItem = Nothing
Set oMItemReply = Nothing
End Sub

4. Tuşuna basın. F5 Anahtar veya tıklama koşmak Bu VBA'yı çalıştırmak için düğmesine basın. Aşağıda gösterilen ekran görüntüsü gibi bir iletişim kutusu açılacaktır. İhtiyaçlarınıza göre 1 veya 2 yazın ve ardından OK düğmesine basın.

Alıcı adıyla selamlama için 1 yazın:	Günün saatiyle selamlama için 2 yazın:

not: Outlook 2013'te, Okuma Bölmesi'ndeki iletileri yanıtlarsanız bu VBA kodu çalışmaz. Tıklayın Outlook 2013'te Okuma Bölmesi'nde yanıtlamanın nasıl devre dışı bırakılacağını öğrenmek için burada.

Bazı kullanıcılar Outlook'ta VBA kodunu uygulamaktan hoşlanmayabilir. Bu nedenle ikinci yöntemi tanıtıyorum: Kutools for Outlook's Otomatik Karşılama yardımcı programı tüm yanıtlanan mesajlara kişiselleştirilmiş selamlamayı kolayca ekleyecektir.

Outlook için Kutools Düzinelerce kullanışlı özellik ekleyerek Outlook üzerinden günlük e-posta iletişiminizi basitleştirir. Devamını Oku      Şimdi Bedava İndirin

1. Tıklayın Kutools > Opsiyonlar.

2. Açılan Seçenekler iletişim kutusunda, cevap sekmesi, kontrol edin Cevap verirken tebrik ekle seçenek, Hi yazın < >, aşağıdaki kutuya girin ve OK düğmesine basın.

Şu andan itibaren, Outlook'ta iletileri yanıtlarken, kişiselleştirilmiş karşılama mesajı aşağıda gösterildiği gibi e-posta gövdesine otomatik olarak eklenecektir:

not: Outlook 2013'te, Okuma Bölmesi'nde iletileri yanıtlarsanız bu yardımcı program çalışmaz. Tıklayın Outlook 2013'te Okuma Bölmesi'nde yanıtlamanın nasıl devre dışı bırakılacağını öğrenmek için burada.

Outlook için Kutools'u Ücretsiz İndirin