Outlook toplantı isteklerine imzayı otomatik olarak nasıl ekleyebilirim?

Outlook’ta e-postalara imzayı kolayca otomatik olarak ekleyebilirsiniz; ancak toplantı davetiyelerine imzayı otomatik olarak eklemek istiyorsanız bunun için doğrudan bir yol mevcut değildir. Bu makalede, Outlook toplantı isteklerine imzayı otomatik olarak eklemenize yardımcı olacak bazı yararlı yöntemleri paylaşacağım.

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

VBA kodu ile Outlook toplantı isteklerine imzayı otomatik olarak ekleme

---

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

Outlook’ta toplantı isteklerine imzanızı otomatik olarak eklemek için özel bir form oluşturabilirsiniz. Aşağıdaki adımları izleyin:

1. Lütfen Takvim penceresine gidin ve yeni Toplantı penceresini açmak için Giriş > Toplantı seçeneğine tıklayın.

2.Ardından Ekle>İmzaseçeneğine tıklayın ve eklemek istediğiniz imzayı seçin (ekran görüntüsüne bakın):

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

4. Yeni ekranda Geliştirici > Yayımla > Formu Farklı Yayımla seçeneğine tıklayın (ekran görüntüsüne bakın):

5.Açılan Formu Farklı Yayımlailetişim kutusunda,Görüntülemeadı metin kutusuna bir ad girin ve ardından Yayımladüğmesine tıklayın (ekran görüntüsüne bakın):

6. Ardından, geçerli toplantı penceresini kaydetmeden kapatın.

7. Bundan sonra, imzalı bir Toplantı oluşturmak istediğinizde lütfen Giriş > Yeni Öğeler > Özel Formlar seçeneğine tıklayın ve az önce oluşturduğunuz formu seçin. Böylece imza, toplantı gövdesine otomatik olarak eklenecektir (ekran görüntüsüne bakın):

---

VBA kodu ile Outlook toplantı isteklerine imzayı otomatik olarak ekleme

Aşağıdaki VBA kodu, toplantı isteklerine otomatik olarak imza eklemenize yardımcı olabilir. Lütfen aşağıdaki adımları uygulayın:

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

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

VBA kodu: Toplantı isteklerine imzayı otomatik olarak 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. Ardından, kod penceresini **Kaydet ve Kapat** ile kapatın. Bundan sonra gönderdiğiniz her toplantı davetiyesine belirtilen imza otomatik olarak eklenecektir. Sonucu kontrol etmek için Giden Öğeler klasörüne göz atabilirsiniz: