[Macros4outlook-commitlog] SF.net SVN: macros4outlook:[89] quotefixmacro/trunk/QuoteFixMacro.bas

[<ol...@us...>]

Revision: 89
          http://macros4outlook.svn.sourceforge.net/macros4outlook/?rev=89&view=rev
Author:   olly98
Date:     2011-04-28 22:07:49 +0000 (Thu, 28 Apr 2011)

Log Message:
-----------
added support for USE_QUOTING_TEMPLATE

Modified Paths:
--------------
    quotefixmacro/trunk/QuoteFixMacro.bas

Modified: quotefixmacro/trunk/QuoteFixMacro.bas
===================================================================
--- quotefixmacro/trunk/QuoteFixMacro.bas	2011-04-28 20:55:38 UTC (rev 88)
+++ quotefixmacro/trunk/QuoteFixMacro.bas	2011-04-28 22:07:49 UTC (rev 89)
@@ -91,7 +91,8 @@
 '  * Added CONDENSE_EMBEDDED_QUOTED_OUTLOOK_HEADERS, which condenses quoted outlook headers
 '    The format of the condensed header is configured at CONDENSED_HEADER_FORMAT
 '  * Added CONDENSE_FIRST_EMBEDDED_QUOTED_OUTLOOK_HEADER
-'  * Fixed compile time constants to work with Outlook 2007
+'  * Fixed compile time constants to work with Outlook 2007 and 2010
+'  * Added support for custom template configured in the macro (QUOTING_TEMPLATE) - this can be used instead of the signature configuration
 
 'Ideas were taken from
 '  * Daniele Bochicchio
@@ -151,7 +152,14 @@
 'Automatically convert HTML/RTF-Mails to plain text?
 Private Const CONVERT_TO_PLAIN As Boolean = False
 
+'Enable QUOTING_TEMPLATE
+Private Const USE_QUOTING_TEMPLATE As Boolean = False
 
+'If the constant USE_QUOTING_TEMPLATE is set, this template is used instead of the signature
+Private Const QUOTING_TEMPLATE As String = _
+"%SN wrote on %D:" & vbCr & _
+"%Q"
+
 '--------------------------------------------------------
 '*** Configuration of condensing ***
 '--------------------------------------------------------
@@ -708,6 +716,10 @@
     MySignature = getSignature(BodyLines, lineCounter)
     ' lineCounter now indicates the line after the signature
    
+    If USE_QUOTING_TEMPLATE Then
+        'Override MySignature in case the QUOTING_TEMPLATE should be used
+        MySignature = QUOTING_TEMPLATE
+    End If
 
     Dim senderName As String
     Dim firstName As String


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.