Outlook toplantı isteklerine otomatik olarak imza eklemek nasıl yapılır?

Author: Xiaoyang Last Modified: 2025-06-10

Outlook'ta, imzayı e-postalara kolayca otomatik olarak ekleyebilirsiniz. Ancak, imzayı toplantı davetiyelerine otomatik olarak eklemek isterseniz, bu görevi çözmek için doğrudan bir yolunuz yoktur. Bu makalede, Outlook toplantı isteklerine otomatik olarak imza eklemek için bazı yararlı yöntemlerden bahsedeceğim.

Özel Form ile Outlook toplantı isteklerine otomatik olarak imza ekleme

VBA kodu ile Outlook toplantı isteklerine otomatik olarak imza ekleme

Özel Form ile Outlook toplantı isteklerine otomatik olarak imza ekleme

Outlook'ta, imzayı toplantı isteklerine otomatik olarak eklemek için özel bir form oluşturabilirsiniz, lütfen şu adımları izleyin:

1. Lütfen Takvim penceresine gidin ve Ana Sayfa > Yeni Toplantı'ya tıklayarak yeni Toplantı penceresini açın.

2. Ardından Ekle > İmza'ya tıklayın ve eklemek istediğiniz bir imza seçin, aşağıdaki ekran görüntüsüne bakın:

3. İmzayı ekledikten sonra, yeni Toplantı penceresinde Geliştirici > Bu Formu Tasarla seçeneğine devam edin, aşağıdaki ekran görüntüsüne bakın:

4. Yeni ekranda, Geliştirici > Yayınla > Form Olarak Yayınla'ya tıklayın, aşağıdaki ekran görüntüsüne bakın:

5. Açılan Yayınla Form Olarak iletişim kutusunda, Görünen Ad metin kutusuna bir isim yazın ve ardından Yayınla düğmesine tıklayın, aşağıdaki ekran görüntüsüne bakın:

6. Ve ardından, mevcut toplantı penceresini kaydetmeden kapatın.

7. Bundan böyle, imza içeren yeni bir toplantı oluşturmak istediğinizde, lütfen Ana Sayfa > Yeni Öğeler > Özel Formlar'a tıklayın ve daha önce oluşturduğunuz formu seçin. İmza, toplantı içeriğine otomatik olarak eklenecektir, aşağıdaki ekran görüntüsüne bakın:

Outlook'daki AI Mail Asistanı: Daha Akıllı Yanıtlar, Daha Açık İletişim (tek tıklama sihirbazlığı!) ÜCRETSİZ

Kutools for Outlook'un AI Mail Asistanı ile günlük Outlook görevlerinizi kolaylaştırın. Bu güçlü araç, geçmiş e-postalarınızdan öğrenerek size akıllı ve doğru yanıtlar sunar, e-posta içeriğinizi optimize eder ve mesaj taslaklarını hazırlamada ve geliştirmede size yardımcı olur.

Bu özellik şunları destekler:

Akıllı Yanıtlar: Geçmiş konuşmalarınızdan oluşturulan, kişiselleştirilmiş, kesin ve kullanıma hazır yanıtlar alın.
Geliştirilmiş İçerik: E-posta metniniz otomatik olarak netlik ve etki için iyileştirilir.
Kolay Taslak Oluşturma: Sadece anahtar kelimeler sağlayın ve AI'nın gerisini halletmesine izin verin; birden fazla yazım stiliyle.
Akıllı Genişletmeler: Bağlam farkındalığına sahip önerilerle düşüncelerinizi genişletin.
Özetleme: Uzun e-postaların kısa ve öz bir özetini anında alın.
Küresel Kapsam: E-postalarınızı herhangi bir dile kolayca çevirin.

Bu özellik şunları destekler:

Akıllı e-posta yanıtları
Optimize edilmiş içerik
Anahtar kelimeye dayalı taslaklar
Akıllı içerik genişletme
E-posta özetleme
Çok dilli çeviri

En önemlisi, bu özellik sonsuza kadar tamamen ücretsiz! Boşuna beklemeyin—şimdi AI Mail Asistanını indirin ve keyfini çıkarın

VBA kodu ile Outlook toplantı isteklerine otomatik olarak imza ekleme

Aşağıdaki VBA kodu da toplantı isteklerine otomatik olarak imza eklemenize yardımcı olabilir, lütfen aşağıdaki adımları izleyin:

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

2. Microsoft Visual Basic for Applications penceresinde, Project1(VbaProject.OTM) bölmesinden ThisOutlookSession öğesine çift tıklayarak modülü açın ve ardından aşağıdaki kodu boş modüle kopyalayıp yapıştırın.

VBA kodu: Toplantı isteklerine otomatik olarak imza ekleme:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xMeetingItem As Outlook.MeetingItem
Dim xFSO As Scripting.FileSystemObject
Dim xSignStream, xWriteStream, xReadStream As Scripting.TextStream
Dim xSignFld, xSignSubFld As Scripting.Folder
Dim xSignFile As Scripting.File
Dim xSignText, xSignPath As String
Dim xMailRTFText, xMeetingRTFText, xAllRTFText As String
Dim xByte() As Byte
Dim xPos As Integer
Dim xFilePath, xFldPath, xFldName As String
Dim xMailItem As MailItem
On Error Resume Next
If Item.Class = olMeetingRequest Then
    Set xMeetingItem = Item
    Set xFSO = CreateObject("scripting.FileSystemObject")
    xSignPath = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\"
    Set xSignFld = xFSO.GetFolder(xSignPath)
    If xSignFld.SubFolders.Count <> 0 Then
        For Each xSignSubFld In xSignFld.SubFolders
            xFldName = xSignSubFld.Name
            xFldPath = xSignSubFld.Path
        Next
    End If
    For Each xSignFile In xSignFld.Files
        If xFSO.GetExtensionName(xSignFile.Path) = "htm" Then
            Set xSignStream = xFSO.OpenTextFile(xSignFile.Path)
            xSignText = xSignStream.ReadAll
            If InStr(xSignText, xFldName) <> 0 Then
                xSignText = Replace(xSignText, xFldName, xFldPath)
            End If
            Set xMailItem = Outlook.Application.CreateItem(olMailItem)
            xMailItem.HTMLBody = xSignText
            xMailRTFText = StrConv(xMailItem.RTFBody, vbUnicode)
            xMeetingRTFText = StrConv(xMeetingItem.RTFBody, vbUnicode)
            xPos = InStrRev(xMeetingRTFText, "{\*\htmltag104 </div>}\htmlrtf }\htmlrtf0")
            xFilePath = CreateObject("WScript.Shell").SpecialFolders(16)
            xFilePath = xFilePath & "\MeetingText.txt"
            If xFSO.FileExists(xFilePath) Then
                xFSO.DeleteFile xFilePath
            End If
            Set xWriteStream = xFSO.OpenTextFile(xFilePath, 8, True)
            xMeetingRTFText = Mid(xMeetingRTFText, 1, xPos - 1) & "{\*\htmltag72 </p>}{\*\htmltag0 \par }{\*\htmltag0 \par }" _
            & "{\*\htmltag64 <p class=MsoNormal>}\htmlrtf {\htmlrtf0 {\*\htmltag148 <span lang=EN-US style='color:#00B050'>}\htmlrtf {\htmlrtf0" _
            & "{\*\htmltag244 <o:p>}{\*\htmltag84 &nbsp;}\htmlrtf \'a0\htmlrtf0{\*\htmltag252 </o:p>}" _
            & "{\*\htmltag156 </span>}\htmlrtf }\htmlrtf0 \htmlrtf\par}\htmlrtf0" _
            & vbCrLf & xMailRTFText & vbCrLf & Mid(xMeetingRTFText, xPos, Len(xMeetingRTFText) - xPos + 1)
            xWriteStream.WriteLine xMeetingRTFText
            Set xReadStream = xFSO.OpenTextFile(xFilePath)
            xAllRTFText = xReadStream.ReadAll
            PackBytes xByte, xAllRTFText
            xMeetingItem.RTFBody = xByte
            xMeetingItem.Save
            xMailItem.Close olDiscard
        End If
    Next
End If
End Sub
Private Sub PackBytes(ByteArray() As Byte, ByVal PostData As String)
    ByteArray() = StrConv(PostData, vbFromUnicode)
End Sub

3. Ve ardından kod penceresini kaydedip kapatın, bundan sonra giden bir toplantı davetiyesi gönderdiğinizde belirli imza otomatik olarak eklenecektir. Gönderilen Öğeler klasörüne giderek sonucu kontrol edebilirsiniz: