كيف يمكنني إزالة التواقيع القديمة من نماذج Outlook؟
-
21-08-2019 - |
سؤال
و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
المحلول 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