كيف يمكنني إزالة التواقيع القديمة من نماذج Outlook؟

Question

وI تعديل شكل القائمة وحفظه على سطح المكتب بصفتي ملف .oft. كلما أبعث هذا النموذج لدي التوقيع القديم التي تظهر.

إذا كنت انقر نقرا مزدوجا فوق ملف .oft أرى الجسم مع أن التوقيع القديم ثم ضعي أحدث واحد أقل من ذلك. أود أن حذف هذا التوقيع القديم التي عالق في الجسم. ما يخلط لي هو أنني عندما فتح هذا الملف في Outlook يشكل ذلك أبدا يتضمن التوقيع في الرسائل، وهذا هو السبب عندما كنت تشغيل النموذج لا أرى هذا التوقيع إلا عندما أبعث ذلك، وأنا أرى ذلك في المعاينة عندما أفتح الرسالة أرى نموذج Outlook بلدي كما ينبغي أن يكون.

---

وتمكنت من حفظ الملف ك HTML. أرى التوقيع على الجزء السفلي من الصفحة.

وكيف يمكنني إزالة أو تعديل ملف HTML لإزالة هذا التوقيع ونعود الملف الغفور الأصلي.

وكما أنني حاولت حفظ ك أتش تي أم أل، وإزالة التوقيع، والادخار، ثم استخدام ماكرو لتحميل أتش تي أم أل. ولكن غير قادر على حفظ العودة إلى كثيرا.

Sub MakeHTMLMsg()
Set objMsg =3D Application.CreateItem(olMailItem)
Set fso =3D CreateObject("Scripting.FileSystemObject")
Set ts =3D fso.OpenTextFile("c:\testfile.htm", 1)=20
strText =3D ts.ReadAll
objMsg.HTMLBody =3D strText
objMsg.Display
Set fso =3D Nothing
Set ts =3D Nothing=20
Set objMsg =3D Nothing
End Sub

Answer 1

وحصلت عليه، إضافة مربع الرسالة. ثم انتقل إلى تشغيل هذا النموذج. وفويلا. إزالة التوقيع غير المرغوب فيها. حفظ ك

وشكرا

Answer 2

إذا كنت أنت أو أحد متعاون ينقذ بطريق الخطأ نموذج Outlook .oft مع RTF في نص الرسالة (التي تشمل التوقيعات)، وهذا النص الغني سوف يكون عالقا إلى الأبد في .oft، بقدر ما استطيع ان اقول (إلا إذا قررت الإختراق عنه في محرر عرافة). كما يقترح البعض الآخر في الزوايا المظلمة من شبكة الإنترنت، ويمكنك تشغيل النموذج، وحذف نص الرسالة، وحفظه باعتباره .oft - ولكن للأسف، هذا لا يعمل مع RTF. وRTF عالق. الطريقة الوحيدة لقد وجدت لإخفاء هذا النص مع هذا الماكرو فبسكريبت Outlook لتغيير نوع BodyFormat في MailItem إلى نص عادي. ستبقى بايت RTF في .oft الخاص بك، ولكن على الأقل لا أحد سوف تبحث عليهم.

Sub ChangeToPlainTextAndPublishForm()
    Dim objOL       ' As Outlook.Application
    Dim objItem     ' As Outlook.ContactItem
    Dim objFD       ' As Outlook.FormDescription
    Const olPersonalRegistry = 2
    Const olDiscard = 1

    Set objOL = CreateObject("Outlook.Application")
    Set objItem = objOL.CreateItemFromTemplate("C:\MyPath\MyForm.oft")
    Set objFD = objItem.FormDescription

    objItem.BodyFormat = OlBodyFormat.olFormatPlain

    'Publish to personal forms library
    With objFD
        .DisplayName = "myForm"
        .PublishForm olPersonalRegistry
    End With
    objItem.Close olDiscard

    Set objFD = Nothing
    Set objItem = Nothing
    Set objOL = Nothing
End Sub