Outlook toplantı isteklerine otomatik olarak imza nasıl eklenir?

Outlook'ta, imzayı e-postalara kolayca otomatik olarak ekleyebilirsiniz, ancak imzayı toplantı davetlerine otomatik olarak eklemek istiyorsanız, bu görevi çözmeniz için doğrudan bir yol yoktur. Bu makalede, Outlook toplantı isteklerine otomatik olarak imza eklemek için bazı yararlı yöntemler hakkında konuşacağım.

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

VBA kodu ile Outlook toplantı isteklerine otomatik olarak imza ekleyin

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

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

1. Lütfen şuraya gidin: Takvim pencere ve tıklayın Ana Sayfa > Yeni Buluşma yeniyi açmak Toplantı pencere.

2. Sonra tıklayın Ekle > imzave eklemek istediğiniz imzayı seçin, ekran görüntüsüne bakın:

3. İmzayı ekledikten sonra, tıklamaya devam edin Geliştirici > Bu Formu Tasarla yeni Toplantı pencere, ekran görüntüsüne bakın:

4. Yeni ekranda Geliştirici > Yayınlamak > Formu Farklı Olarak Yayınla, ekran görüntüsüne bakın:

5. Dışarı fırladı Formu Farklı Olarak Yayınla iletişim kutusuna bir ad yazın. ekran metin kutusunu adlandırın ve ardından Yayınlamak düğmesi, ekran görüntüsüne bakın:

6. Ardından, mevcut toplantı penceresini kaydetmeden kapatın.

7. Şu andan itibaren imzalı yeni bir toplantı oluşturmak istediğinizde lütfen tıklayınız. Ana Sayfa > Yeni öğeler > Özel Formlarve ardından şimdi oluşturduğunuz formu seçin. İmza toplantı gövdesine otomatik olarak eklenir, ekran görüntüsüne bakın:

VBA kodu ile Outlook toplantı isteklerine otomatik olarak imza ekleyin

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

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. In Uygulamalar için Microsoft Visual Basic pencere, çift tıklama Bu OutlookOturumu itibaren Proje1 (VbaProject.OTM) bölmesini 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 ekleyin:

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 sonra kod penceresini kaydedip kapatın, o zamandan beri giden bir toplantı daveti gönderdiğinizde, belirli imza otomatik olarak eklenecektir. Gidebilirsin Gönderilen öğe sonucu kontrol etmek için klasör:

---

En İyi Ofis Üretkenlik Araçları

Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik

🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...

???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir)  /  E-posta Gönderimini Planla  /  E-posta Gönderirken Kurallara Göre Otomatik CC/BCC  /  Otomatik İletme (Gelişmiş Kurallar)   /  Otomatik Karşılama Ekleme   /  Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...

📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın  /  Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin  /  Yinelenen E-postaları Silin  /  gelişmiş Arama  /  Klasörleri Birleştir ...

📁 Ekler Pro: Toplu Kaydetme  /  Toplu Ayır  /  Toplu Sıkıştırma  /  Otomatik kaydet   /  Otomatik Ayır  /  Otomatik Sıkıştır ...

🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji   /  Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın  /  Outlook'u Kapatmak Yerine Küçültün ...

👍 Tek Tıklamayla Harikalar: Tümünü Gelen Eklerle Yanıtla  /   Kimlik Avına Karşı E-postalar  /  🕘Gönderenin Saat Dilimini Göster ...

👩🏼‍🤝‍👩🏻 Kişiler ve Takvim: Seçilen E-postalardan Toplu Kişi Ekleme  /  Kişi Grubunu Bireysel Gruplara Bölme  /  Doğum Günü Hatırlatıcılarını Kaldır ...

üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.

Devamını Oku       Bedava indir      Satın alma